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

be sure to reset the gap list on rescreen

Browse Source
This commit is contained in:
Don Stewart
2007-05-28 03:18:35 +00:00
parent c613073cb6
commit 0cca848c54
2 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
Operations.hs
View File

@@ -179,7 +179,7 @@ tileWindow d w r = do
-- --------------------------------------------------------------------- -- ---------------------------------------------------------------------
-- | rescreen. The screen configuration may have changed (due to -- | rescreen. The screen configuration may have changed (due to
-- xrandr), update the state and refresh the screen. -- xrandr), update the state and refresh the screen, and reset the gap.
rescreen :: X () rescreen :: X ()
rescreen = do rescreen = do
xinesc <- withDisplay (io . getScreenInfo) xinesc <- withDisplay (io . getScreenInfo)
@@ -189,7 +189,8 @@ rescreen = do
let sx = maximum $ map (\r -> rect_x r + fromIntegral (rect_width r)) xinesc let sx = maximum $ map (\r -> rect_x r + fromIntegral (rect_width r)) xinesc
sy = maximum $ map (\r -> rect_y r + fromIntegral (rect_height r)) xinesc sy = maximum $ map (\r -> rect_y r + fromIntegral (rect_height r)) xinesc
modify (\s -> s { xineScreens = xinesc, dimensions = (sx, sy) }) modify (\s -> s { xineScreens = xinesc , dimensions = (sx, sy)
, statusGaps = take (length xinesc) $ (statusGaps s) ++ repeat (0,0,0,0) })
windows $ \ws@(W.StackSet { W.current = v, W.visible = vs, W.hidden = hs }) -> windows $ \ws@(W.StackSet { W.current = v, W.visible = vs, W.hidden = hs }) ->
let (x:xs, ys) = splitAt (length xinesc) $ map W.workspace (v:vs) ++ hs let (x:xs, ys) = splitAt (length xinesc) $ map W.workspace (v:vs) ++ hs