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

the gaps list should be filled with the default value from Config.hs

Browse Source
This commit is contained in:
Andrea Rossato
2007-07-04 22:41:10 +00:00
parent 9db3764864
commit 3b66626801
1 changed files with 2 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
LayoutScreens.hs
View File

@@ -51,10 +51,9 @@ layoutScreens nscr l =
O.windows $ \ws@(W.StackSet { W.current = v, W.visible = vs, W.hidden = hs }) ->
let (x:xs, ys) = splitAt nscr $ map W.workspace (v:vs) ++ hs
gaps = map (statusGap . W.screenDetail) $ v:vs
(s:ss, g:gg) = (map snd wss, take nscr $ gaps ++ repeat (0,0,0,0))
sd = zipWith SD ss gg
(s:ss, g:gg) = (map snd wss, take nscr $ gaps ++ repeat (head gaps))
in ws { W.current = W.Screen x 0 (SD s g)
, W.visible = zipWith3 W.Screen xs [1 ..] sd
, W.visible = zipWith3 W.Screen xs [1 ..] $ zipWith SD ss gg
, W.hidden = ys }
getWindowRectangle :: Window -> X Rectangle