diff options
| -rw-r--r-- | Operations.hs | 18 |
1 files changed, 8 insertions, 10 deletions
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. |