twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-02 05:01:51 -07:00
Code Issues Packages Projects Releases Wiki Activity

fix bug in smartBorders when combined with decorated windows.

Browse Source
This commit is contained in:
David Roundy
2008-05-16 18:48:55 +00:00
parent 52d2a731c9
commit 6c2489e4a5
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
XMonad/Layout/NoBorders.hs
View File

@@ -75,13 +75,13 @@ data SmartBorder a = SmartBorder [a] deriving (Read, Show)
instance LayoutModifier SmartBorder Window where instance LayoutModifier SmartBorder Window where
unhook (SmartBorder s) = asks (borderWidth . config) >>= setBorders s unhook (SmartBorder s) = asks (borderWidth . config) >>= setBorders s
redoLayout (SmartBorder s) _ _ wrs = do redoLayout (SmartBorder s) _ st wrs = do
wset <- gets windowset wset <- gets windowset
let let managedwindows = W.integrate st
screens = filter (nonzerorect . screenRect . W.screenDetail) . W.screens $ wset screens = filter (nonzerorect . screenRect . W.screenDetail) . W.screens $ wset
ws = tiled ++ floating ws = tiled ++ floating
tiled = case wrs of tiled = case filter (`elem` managedwindows) $ map fst wrs of
[(w, _)] | singleton screens -> [w] [w] | singleton screens -> [w]
_ -> [] _ -> []
floating = floating =
[ w | [ w |