diff options
author | Andrea Rossato <andrea.rossato@unibz.it> | 2008-02-22 18:58:15 +0100 |
---|---|---|
committer | Andrea Rossato <andrea.rossato@unibz.it> | 2008-02-22 18:58:15 +0100 |
commit | b84cd8cf7dbe9ccb8837752b73acf132ee59d1e4 (patch) | |
tree | 6d7975a22ad3481559bfb9c61d63b1bf3a89320b /XMonad/Operations.hs | |
parent | e0850802f7e84f827badf5671ec4342ad364a012 (diff) | |
download | xmonad-b84cd8cf7dbe9ccb8837752b73acf132ee59d1e4.tar.gz xmonad-b84cd8cf7dbe9ccb8837752b73acf132ee59d1e4.tar.xz xmonad-b84cd8cf7dbe9ccb8837752b73acf132ee59d1e4.zip |
runLayout is now a LayoutClass method and takes the Workspace and the screen Rectangle
darcs-hash:20080222175815-32816-e3893760e1024bcbf30a4fbb71ca7c2b4d8bb403.gz
Diffstat (limited to '')
-rw-r--r-- | XMonad/Operations.hs | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/XMonad/Operations.hs b/XMonad/Operations.hs index e95593e..9d6164b 100644 --- a/XMonad/Operations.hs +++ b/XMonad/Operations.hs @@ -128,10 +128,10 @@ windows f = do let allscreens = W.screens ws summed_visible = scanl (++) [] $ map (W.integrate' . W.stack . W.workspace) allscreens visible <- fmap concat $ forM (zip allscreens summed_visible) $ \ (w, vis) -> do - let n = W.tag (W.workspace w) - this = W.view n ws - l = W.layout (W.workspace w) - flt = filter (flip M.member (W.floating ws)) (W.index this) + let wsp = W.workspace w + this = W.view n ws + n = W.tag wsp + flt = filter (flip M.member (W.floating ws)) (W.index this) tiled = (W.stack . W.workspace . W.current $ this) >>= W.filter (`M.notMember` W.floating ws) >>= W.filter (`notElem` vis) @@ -142,7 +142,7 @@ windows f = do -- just the tiled windows: -- now tile the windows on this workspace, modified by the gap - (rs, ml') <- runLayout l viewrect tiled `catchX` runLayout (Layout Full) viewrect tiled + (rs, ml') <- runLayout wsp { W.stack = tiled } viewrect`catchX` runLayout wsp { W.layout = Layout Full, W.stack = tiled } viewrect mapM_ (uncurry tileWindow) rs whenJust ml' $ \l' -> runOnWorkspaces (\ww -> if W.tag ww == n then return $ ww { W.layout = l'} |