diff options
author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-12-08 01:05:47 +0100 |
---|---|---|
committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-12-08 01:05:47 +0100 |
commit | c3f2e16048cc01ae34a4691e86346e21cb12c567 (patch) | |
tree | 9227dafa457a386f4889bda3de55fc6ff09daed5 /XMonad/Layout/LayoutScreens.hs | |
parent | 4db554f471293564a62ececb6f15acdb815b154c (diff) | |
download | XMonadContrib-c3f2e16048cc01ae34a4691e86346e21cb12c567.tar.gz XMonadContrib-c3f2e16048cc01ae34a4691e86346e21cb12c567.tar.xz XMonadContrib-c3f2e16048cc01ae34a4691e86346e21cb12c567.zip |
Remove XMonad.Operations imports
darcs-hash:20071208000547-a5988-874ebc1bfa76ad6ec2191812240fa2303b2d531c.gz
Diffstat (limited to 'XMonad/Layout/LayoutScreens.hs')
-rw-r--r-- | XMonad/Layout/LayoutScreens.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/XMonad/Layout/LayoutScreens.hs b/XMonad/Layout/LayoutScreens.hs index 73b29af..bb705fc 100644 --- a/XMonad/Layout/LayoutScreens.hs +++ b/XMonad/Layout/LayoutScreens.hs @@ -20,7 +20,6 @@ module XMonad.Layout.LayoutScreens ( import XMonad import qualified XMonad.StackSet as W -import qualified XMonad.Operations as O -- $usage -- This module allows you to pretend that you have more than one screen by @@ -58,7 +57,7 @@ layoutScreens nscr _ | nscr < 1 = trace $ "Can't layoutScreens with only " ++ sh layoutScreens nscr l = do rtrect <- asks theRoot >>= getWindowRectangle (wss, _) <- doLayout l rtrect W.Stack { W.focus=1, W.up=[],W.down=[1..nscr-1] } - O.windows $ \ws@(W.StackSet { W.current = v, W.visible = vs, W.hidden = hs }) -> + 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 (head gaps)) |