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 | 2e316bbf05b78c15cd7e624a1e9814b662ce4600 (patch) | |
tree | 9ef0881e02b64f47af1bc6e67ea31c8cce38e25a /Operations.hs | |
parent | 4af6ab52d6d43e652f5b6bf2a53aabba58d690e1 (diff) | |
download | metatile-2e316bbf05b78c15cd7e624a1e9814b662ce4600.tar metatile-2e316bbf05b78c15cd7e624a1e9814b662ce4600.zip |
Remove no-longer-needed 'dimensions' state (-5 loc)
darcs-hash:20070604044715-e3110-7bd7ba2b78f80046e2148fb37aa0f5fe3eca08c6
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 }) -> |