diff options
author | Stefan O'Rear <stefanor@cox.net> | 2007-06-04 06:47:15 +0200 |
---|---|---|
committer | Stefan O'Rear <stefanor@cox.net> | 2007-06-04 06:47:15 +0200 |
commit | ac9ed21ed01867c61aa2fc5c8253bf877d4b55de (patch) | |
tree | 9ef0881e02b64f47af1bc6e67ea31c8cce38e25a /Operations.hs | |
parent | a1737a36132b2867a1c795c5c5bb32cb130b74c0 (diff) | |
download | xmonad-ac9ed21ed01867c61aa2fc5c8253bf877d4b55de.tar.gz xmonad-ac9ed21ed01867c61aa2fc5c8253bf877d4b55de.tar.xz xmonad-ac9ed21ed01867c61aa2fc5c8253bf877d4b55de.zip |
Remove no-longer-needed 'dimensions' state (-5 loc)
darcs-hash:20070604044715-e3110-7bd7ba2b78f80046e2148fb37aa0f5fe3eca08c6.gz
Diffstat (limited to 'Operations.hs')
-rw-r--r-- | Operations.hs | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/Operations.hs b/Operations.hs index 79ccbcc..f419edf 100644 --- a/Operations.hs +++ b/Operations.hs @@ -235,12 +235,7 @@ rescreen :: X () rescreen = do xinesc <- withDisplay (io . getScreenInfo) - -- TODO: This stuff is necessary because Xlib apparently caches screen - -- width/height. Find a better solution later. I hate Xlib. - 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 - - modify (\s -> s { xineScreens = xinesc , dimensions = (sx, sy) + modify (\s -> s { xineScreens = xinesc , statusGaps = take (length xinesc) $ (statusGaps s) ++ repeat (0,0,0,0) }) windows $ \ws@(W.StackSet { W.current = v, W.visible = vs, W.hidden = hs }) -> |