twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-08-01 20:51:55 -07:00
Code Issues Packages Projects Releases Wiki Activity

apply gap to each screen

Browse Source
This commit is contained in:
Don Stewart
2007-05-28 04:47:22 +00:00
parent cf52e66ec1
commit abdbc23551
1 changed files with 7 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
Operations.hs
View File

@@ -141,16 +141,14 @@ refresh = do
let n = W.tag (W.workspace w) let n = W.tag (W.workspace w)
this = W.view n ws this = W.view n ws
Just l = fmap fst $ M.lookup n fls Just l = fmap fst $ M.lookup n fls
r@(Rectangle sx sy sw sh) = genericIndex xinesc (W.screen w) (Rectangle sx sy sw sh) = genericIndex xinesc (W.screen w)
(gt,gb,gl,gr) = genericIndex gaps (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 -- now tile the windows on this workspace, modified by the gap
rs <- doLayout l (if w == W.current ws rs <- doLayout l (Rectangle (sx + fromIntegral gl)
then Rectangle (sx + fromIntegral gl) (sy + fromIntegral gt)
(sy + fromIntegral gt) (sw - fromIntegral (gl + gr))
(sw - fromIntegral (gl + gr)) (sh - fromIntegral (gt + gb))) (W.index this)
(sh - fromIntegral (gt + gb))
else r) (W.index this)
mapM_ (\(win,rect) -> io (tileWindow d win rect)) rs mapM_ (\(win,rect) -> io (tileWindow d win rect)) rs
-- and raise the focused window if there is one. -- and raise the focused window if there is one.