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

Merge emptyLayoutMod into redoLayout

Browse Source 
This removes the emptyLayoutMod method from the LayoutModifier class, and
change the Stack parameter to redoLayout to a Maybe Stack one. It also changes
all affected code. This should should be a refactoring without any change in
program behaviour.
This commit is contained in:
Joachim Breitner
2008-10-05 19:02:20 +00:00
parent 2102a565fd
commit 2480ba1f02
9 changed files with 29 additions and 56 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
XMonad/Layout/NoBorders.hs
View File

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