diff options
| author | Brent Yorgey <byorgey@gmail.com> | 2008-03-11 19:15:37 +0100 |
|---|---|---|
| committer | Brent Yorgey <byorgey@gmail.com> | 2008-03-11 19:15:37 +0100 |
| commit | 62ae89b7c8cf7dc75fa089417b1cc27fdb1024d6 (patch) | |
| tree | bbbcc59bb85063a7022d098fe526b3ddd278dc63 /XMonad/Layout/LayoutScreens.hs | |
| parent | 4b71b208e6e31f9ab177cda9391a882766b39eff (diff) | |
| download | XMonadContrib-62ae89b7c8cf7dc75fa089417b1cc27fdb1024d6.tar.gz XMonadContrib-62ae89b7c8cf7dc75fa089417b1cc27fdb1024d6.tar.xz XMonadContrib-62ae89b7c8cf7dc75fa089417b1cc27fdb1024d6.zip | |
LayoutScreens: update to work with runLayout changes
darcs-hash:20080311181537-bd4d7-5343abb3ffd4bd0bea3beb78f73893c66bb75a7b.gz
Diffstat (limited to 'XMonad/Layout/LayoutScreens.hs')
| -rw-r--r-- | XMonad/Layout/LayoutScreens.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/XMonad/Layout/LayoutScreens.hs b/XMonad/Layout/LayoutScreens.hs index 923ddba..e74b9b4 100644 --- a/XMonad/Layout/LayoutScreens.hs +++ b/XMonad/Layout/LayoutScreens.hs @@ -58,7 +58,7 @@ layoutScreens :: LayoutClass l Int => Int -> l Int -> X () layoutScreens nscr _ | nscr < 1 = trace $ "Can't layoutScreens with only " ++ show nscr ++ " screens." layoutScreens nscr l = do rtrect <- asks theRoot >>= getWindowRectangle - (wss, _) <- doLayout l rtrect W.Stack { W.focus=1, W.up=[],W.down=[1..nscr-1] } + (wss, _) <- runLayout (W.Workspace "" l (Just $ W.Stack { W.focus=1, W.up=[],W.down=[1..nscr-1] })) rtrect 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 |