From c3f2e16048cc01ae34a4691e86346e21cb12c567 Mon Sep 17 00:00:00 2001 From: Spencer Janssen Date: Sat, 8 Dec 2007 01:05:47 +0100 Subject: Remove XMonad.Operations imports darcs-hash:20071208000547-a5988-874ebc1bfa76ad6ec2191812240fa2303b2d531c.gz --- XMonad/Layout/LayoutScreens.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'XMonad/Layout/LayoutScreens.hs') 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)) -- cgit v1.2.3