summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMatthias Schiffer <matthias@gamezock.de>2010-02-13 19:04:33 +0100
committerMatthias Schiffer <matthias@gamezock.de>2010-02-13 19:04:33 +0100
commit03965e79a12d8798bc4612b42eb2d9e82d443488 (patch)
treea39cc5a4e540adc622f15a591b07822f9fff7b95
parent2cc660607d728d0c93f891840f2b15b5dee51b1e (diff)
downloadxmonad-conf-03965e79a12d8798bc4612b42eb2d9e82d443488.tar
xmonad-conf-03965e79a12d8798bc4612b42eb2d9e82d443488.zip
NoBorders: Fixed a bug with fullscreen windows
-rw-r--r--lib/NoBorders.hs2
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