diff options
author | Andrea Rossato <andrea.rossato@unibz.it> | 2007-07-05 00:41:10 +0200 |
---|---|---|
committer | Andrea Rossato <andrea.rossato@unibz.it> | 2007-07-05 00:41:10 +0200 |
commit | 031a3feb87bd66d181fb118f6459d815330e3e5a (patch) | |
tree | dd52b6488d0471dfcbed21c22c098768494762c0 /LayoutScreens.hs | |
parent | d527881597824ea31832240e02801ad1f45f0672 (diff) | |
download | XMonadContrib-031a3feb87bd66d181fb118f6459d815330e3e5a.tar.gz XMonadContrib-031a3feb87bd66d181fb118f6459d815330e3e5a.tar.xz XMonadContrib-031a3feb87bd66d181fb118f6459d815330e3e5a.zip |
the gaps list should be filled with the default value from Config.hs
darcs-hash:20070704224110-32816-ce3187b16a035c7ec9118f60390d50b90c880653.gz
Diffstat (limited to '')
-rw-r--r-- | LayoutScreens.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/LayoutScreens.hs b/LayoutScreens.hs index 18e6ec4..d9fb876 100644 --- a/LayoutScreens.hs +++ b/LayoutScreens.hs @@ -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 |