twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-08-06 07:01:52 -07:00
Code Issues Packages Projects Releases Wiki Activity

doLayout cleanup and commented exception-handling.

Browse Source
This commit is contained in:
David Roundy
2007-06-09 14:50:36 +00:00
parent 1c3931a0d6
commit 16c8622fbf
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Operations.hs
View File

@@ -137,12 +137,12 @@ windows f = do
(flt, tiled) = partition (flip M.member (W.floating ws)) (W.index this) (flt, tiled) = partition (flip M.member (W.floating ws)) (W.index this)
(Rectangle sx sy sw sh) = genericIndex xinesc (W.screen w) (Rectangle sx sy sw sh) = genericIndex xinesc (W.screen w)
(gt,gb,gl,gr) = genericIndex gaps (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: -- just the tiled windows:
-- now tile the windows on this workspace, modified by the gap -- now tile the windows on this workspace, modified by the gap
rs <- doLayout l (Rectangle rs <- doLayout l viewrect tiled -- `mplus` doLayout full viewrect tiled
(sx + fromIntegral gl) (sy + fromIntegral gt)
(sw - fromIntegral (gl + gr)) (sh - fromIntegral (gt + gb))) tiled
mapM_ (uncurry tileWindow) rs mapM_ (uncurry tileWindow) rs
-- now the floating windows: -- now the floating windows: