summaryrefslogtreecommitdiffstats
path: root/Operations.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Operations.hs')
-rw-r--r--Operations.hs5
1 files changed, 2 insertions, 3 deletions
diff --git a/Operations.hs b/Operations.hs
index 92585db..3736081 100644
--- a/Operations.hs
+++ b/Operations.hs
@@ -139,10 +139,9 @@ windows f = do
-- move/resize the floating windows, if there are any
forM_ flt $ \fw -> whenJust (M.lookup fw (W.floating ws)) $
\(W.RationalRect rx ry rw rh) -> do
- let Rectangle px py pw ph = genericIndex xinesc (W.screen w)
tileWindow fw $ Rectangle
- (px + floor (toRational pw*rx)) (py + floor (toRational ph*ry))
- (floor (toRational pw*rw)) (floor (toRational ph*rh))
+ (sx + floor (toRational sw*rx)) (sy + floor (toRational sh*ry))
+ (floor (toRational sw*rw)) (floor (toRational sh*rh))
-- TODO seems fishy?
-- Urgh. This is required because the fullscreen layout assumes that