twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-07-31 12:11:53 -07:00
Code Issues Packages Projects Releases Wiki Activity

Use (Int,Int,Int,Int) for arbitrary gaps on any side of the screen

Browse Source
This commit is contained in:
Don Stewart
2007-05-28 02:51:35 +00:00
parent b0cfe9b6ab
commit 1d2c5ca35a
4 changed files with 28 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
Operations.hs
View File

@@ -68,8 +68,8 @@ view :: WorkspaceId -> X ()
view = windows . W.view
-- | Modify the size of the status gap at the top of the screen
modifyGap :: (Int -> Int) -> X ()
modifyGap f = modify (\s -> s { statusGap = max 0 (f (statusGap s)) }) >> refresh
modifyGap :: ((Int,Int,Int,Int) -> (Int,Int,Int,Int)) -> X ()
modifyGap f = modify (\s -> s { statusGap = f (statusGap s) }) >> refresh
-- | Kill the currently focused client. If we do kill it, we'll get a
-- delete notify back from X.
@@ -127,7 +127,7 @@ hide w = withDisplay $ \d -> do
--
refresh :: X ()
refresh = do
XState { windowset = ws, layouts = fls, xineScreens = xinesc, statusGap = gap } <- get
XState { windowset = ws, layouts = fls, xineScreens = xinesc, statusGap = (gt,gb,gl,gr) } <- get
d <- asks display
-- for each workspace, layout the currently visible workspaces
@@ -139,7 +139,10 @@ refresh = do
-- 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)
then Rectangle (sx + fromIntegral gl)
(sy + fromIntegral gt)
(sw - fromIntegral (gl + gr))
(sh - fromIntegral (gt + gb))
else r) (W.index this)
mapM_ (\(win,rect) -> io (tileWindow d win rect)) rs