diff options
| author | Matthias Schiffer <matthias@gamezock.de> | 2010-02-13 19:04:33 +0100 |
|---|---|---|
| committer | Matthias Schiffer <matthias@gamezock.de> | 2010-02-13 19:04:33 +0100 |
| commit | 03965e79a12d8798bc4612b42eb2d9e82d443488 (patch) | |
| tree | a39cc5a4e540adc622f15a591b07822f9fff7b95 | |
| parent | 2cc660607d728d0c93f891840f2b15b5dee51b1e (diff) | |
| download | xmonad-conf-03965e79a12d8798bc4612b42eb2d9e82d443488.tar xmonad-conf-03965e79a12d8798bc4612b42eb2d9e82d443488.zip | |
NoBorders: Fixed a bug with fullscreen windows
| -rw-r--r-- | lib/NoBorders.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/NoBorders.hs b/lib/NoBorders.hs index 645464e..0920692 100644 --- a/lib/NoBorders.hs +++ b/lib/NoBorders.hs @@ -117,7 +117,7 @@ instance (Read p, Show p, SetsAmbiguous p) => LayoutModifier (ConfigurableBorder redoLayout (ConfigurableBorder p sold) _ mst wrs = do wsh <- withWindowSet (\wset -> return (hiddens p wset mst wrs)) - s <- mapM (\w -> winBorderWidth w >>= \bw -> return (w,bw)) ws >>= return . M.fromList + s <- mapM (\w -> winBorderWidth w >>= \bw -> return (w,bw)) (ws ++ wsh) >>= return . M.fromList let snew = M.mapWithKey (\w bw -> M.findWithDefault bw w sold) s setBorders $ M.toList $ M.filterWithKey (\w _ -> notElem w wsh) sold |