diff options
| author | David Roundy <droundy@darcs.net> | 2007-06-09 16:50:36 +0200 |
|---|---|---|
| committer | David Roundy <droundy@darcs.net> | 2007-06-09 16:50:36 +0200 |
| commit | 3aa0d4f0bb1fef818ea1fec92b39f6716e4e48e0 (patch) | |
| tree | 73523934708eb567d0258d3958f40559f431033f | |
| parent | 66dc293ddb6faf7d7766552ce8be208746e49687 (diff) | |
| download | metatile-3aa0d4f0bb1fef818ea1fec92b39f6716e4e48e0.tar metatile-3aa0d4f0bb1fef818ea1fec92b39f6716e4e48e0.zip | |
doLayout cleanup and commented exception-handling.
darcs-hash:20070609145036-72aca-161f75345ce8925c8db5df7ac283481de952edf4
| -rw-r--r-- | Operations.hs | 6 |
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: |