From 659411687c04f6e07a39a92717ec6dc0895b9918 Mon Sep 17 00:00:00 2001 From: Don Stewart Date: Sun, 27 May 2007 17:08:05 +0200 Subject: only set gap on current physical screen darcs-hash:20070527150805-9c5c1-6774cc60f8f39b8ac16c465d7ab0d2884a984fc1 --- Operations.hs | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/Operations.hs b/Operations.hs index ef17095..741866a 100644 --- a/Operations.hs +++ b/Operations.hs @@ -137,10 +137,13 @@ refresh = do let n = W.tag (W.workspace w) this = W.view n ws Just l = fmap fst $ M.lookup n fls - Rectangle sx sy sw sh = genericIndex xinesc (W.screen w) - -- now tile the windows on this workspace - rs <- doLayout l (Rectangle sx (sy + fromIntegral gap) - sw (sh - fromIntegral gap)) (W.index this) + r@(Rectangle sx sy sw sh) = genericIndex xinesc (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 (sy + fromIntegral gap) + sw (sh - fromIntegral gap) + else r) (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