From 2e316bbf05b78c15cd7e624a1e9814b662ce4600 Mon Sep 17 00:00:00 2001 From: Stefan O'Rear Date: Mon, 4 Jun 2007 06:47:15 +0200 Subject: Remove no-longer-needed 'dimensions' state (-5 loc) darcs-hash:20070604044715-e3110-7bd7ba2b78f80046e2148fb37aa0f5fe3eca08c6 --- Operations.hs | 7 +------ 1 file changed, 1 insertion(+), 6 deletions(-) (limited to 'Operations.hs') 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 }) -> -- cgit v1.2.3