summaryrefslogtreecommitdiffstats
path: root/Operations.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Operations.hs')
-rw-r--r--Operations.hs11
1 files 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.