diff options
| author | Brent Yorgey <byorgey@gmail.com> | 2008-03-11 19:16:25 +0100 |
|---|---|---|
| committer | Brent Yorgey <byorgey@gmail.com> | 2008-03-11 19:16:25 +0100 |
| commit | 05ae4aeac574eb72ad407c8bbde389463f161f7c (patch) | |
| tree | ce25f7f2205b036a7ccdc4e8ebf787560584dd88 /XMonad/Layout/MagicFocus.hs | |
| parent | 62ae89b7c8cf7dc75fa089417b1cc27fdb1024d6 (diff) | |
| download | XMonadContrib-05ae4aeac574eb72ad407c8bbde389463f161f7c.tar.gz XMonadContrib-05ae4aeac574eb72ad407c8bbde389463f161f7c.tar.xz XMonadContrib-05ae4aeac574eb72ad407c8bbde389463f161f7c.zip | |
MagicFocus: update to work with runLayout changes
darcs-hash:20080311181625-bd4d7-ea27117f280f39c155c49433c09788c49e7eacca.gz
Diffstat (limited to 'XMonad/Layout/MagicFocus.hs')
| -rw-r--r-- | XMonad/Layout/MagicFocus.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/XMonad/Layout/MagicFocus.hs b/XMonad/Layout/MagicFocus.hs index 2a69df5..c9bd76e 100644 --- a/XMonad/Layout/MagicFocus.hs +++ b/XMonad/Layout/MagicFocus.hs @@ -13,7 +13,7 @@ -- Automagically put the focused window in the master area. ----------------------------------------------------------------------------- -module XMonad.Layout.MagicFocus +module XMonad.Layout.MagicFocus (-- * Usage -- $usage MagicFocus(MagicFocus) @@ -44,9 +44,9 @@ instance (LayoutClass l Window) => LayoutClass (MagicFocus l) Window where magicFocus :: LayoutClass l Window => MagicFocus l Window -> Rectangle -> Stack Window -> X ([(Window, Rectangle)], Maybe (MagicFocus l Window)) -magicFocus (MagicFocus l) r s = +magicFocus (MagicFocus l) r s = withWindowSet $ \wset -> do - (ws,nl) <- doLayout l r (swap s $ peek wset) + (ws,nl) <- runLayout (Workspace "" l (Just . swap s $ peek wset)) r case nl of Nothing -> return (ws, Nothing) Just l' -> return (ws, Just $ MagicFocus l') |