neocturne/xmonad-conf
Archived
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

NoBorders: Fixed a bug with fullscreen windows

Browse source
This commit is contained in:
Matthias Schiffer 2010-02-13 19:04:33 +01:00
parent 2cc660607d
commit 03965e79a1
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lib/NoBorders.hs
View file

@ -117,7 +117,7 @@ instance (Read p, Show p, SetsAmbiguous p) => LayoutModifier (ConfigurableBorder
redoLayout (ConfigurableBorder p sold) _ mst wrs = do redoLayout (ConfigurableBorder p sold) _ mst wrs = do
wsh <- withWindowSet (\wset -> return (hiddens p wset mst wrs)) 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 let snew = M.mapWithKey (\w bw -> M.findWithDefault bw w sold) s
setBorders $ M.toList $ M.filterWithKey (\w _ -> notElem w wsh) sold setBorders $ M.toList $ M.filterWithKey (\w _ -> notElem w wsh) sold