summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDavid Roundy <droundy@darcs.net>2007-06-09 16:50:36 +0200
committerDavid Roundy <droundy@darcs.net>2007-06-09 16:50:36 +0200
commit3aa0d4f0bb1fef818ea1fec92b39f6716e4e48e0 (patch)
tree73523934708eb567d0258d3958f40559f431033f
parent66dc293ddb6faf7d7766552ce8be208746e49687 (diff)
downloadmetatile-3aa0d4f0bb1fef818ea1fec92b39f6716e4e48e0.tar
metatile-3aa0d4f0bb1fef818ea1fec92b39f6716e4e48e0.zip
doLayout cleanup and commented exception-handling.
darcs-hash:20070609145036-72aca-161f75345ce8925c8db5df7ac283481de952edf4
-rw-r--r--Operations.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/Operations.hs b/Operations.hs
index 0716533..80b0e48 100644
--- a/Operations.hs
+++ b/Operations.hs
@@ -137,12 +137,12 @@ windows f = do
(flt, tiled) = partition (flip M.member (W.floating ws)) (W.index this)
(Rectangle sx sy sw sh) = genericIndex xinesc (W.screen w)
(gt,gb,gl,gr) = genericIndex gaps (W.screen w)
+ viewrect = Rectangle (sx + fromIntegral gl) (sy + fromIntegral gt)
+ (sw - fromIntegral (gl + gr)) (sh - fromIntegral (gt + gb))
-- just the tiled windows:
-- now tile the windows on this workspace, modified by the gap
- rs <- doLayout l (Rectangle
- (sx + fromIntegral gl) (sy + fromIntegral gt)
- (sw - fromIntegral (gl + gr)) (sh - fromIntegral (gt + gb))) tiled
+ rs <- doLayout l viewrect tiled -- `mplus` doLayout full viewrect tiled
mapM_ (uncurry tileWindow) rs
-- now the floating windows: