From 708e311bac3c44174b5cf3bdf52326ff89c9e202 Mon Sep 17 00:00:00 2001 From: Don Stewart Date: Mon, 28 May 2007 06:47:22 +0200 Subject: apply gap to each screen darcs-hash:20070528044722-9c5c1-7f8faeac3a2a375f58c94c822f16dc8e3beaea38.gz --- Operations.hs | 18 ++++++++---------- 1 file changed, 8 insertions(+), 10 deletions(-) (limited to 'Operations.hs') diff --git a/Operations.hs b/Operations.hs index c3a63cd..547c44b 100644 --- a/Operations.hs +++ b/Operations.hs @@ -141,16 +141,14 @@ refresh = do let n = W.tag (W.workspace w) this = W.view n ws Just l = fmap fst $ M.lookup n fls - r@(Rectangle sx sy sw sh) = genericIndex xinesc (W.screen w) - (gt,gb,gl,gr) = genericIndex gaps (W.screen w) - - -- now tile the windows on this workspace, and set gap maybe on current - rs <- doLayout l (if w == W.current ws - then Rectangle (sx + fromIntegral gl) - (sy + fromIntegral gt) - (sw - fromIntegral (gl + gr)) - (sh - fromIntegral (gt + gb)) - else r) (W.index this) + (Rectangle sx sy sw sh) = genericIndex xinesc (W.screen w) + (gt,gb,gl,gr) = genericIndex gaps (W.screen w) + + -- now tile the windows on this workspace, modified by the gap + rs <- doLayout l (Rectangle (sx + fromIntegral gl) + (sy + fromIntegral gt) + (sw - fromIntegral (gl + gr)) + (sh - fromIntegral (gt + gb))) (W.index this) mapM_ (\(win,rect) -> io (tileWindow d win rect)) rs -- and raise the focused window if there is one. -- cgit v1.2.3