twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-05-19 11:30:22 -07:00
Code Issues Packages Projects Releases Wiki Activity

MagicFocus: update to work with runLayout changes

Browse Source
This commit is contained in:
Brent Yorgey 2008-03-11 18:16:25 +00:00
parent 8b27f8e0aa
commit eb18de22c8
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
XMonad/Layout/MagicFocus.hs
View File

@ -46,7 +46,7 @@ magicFocus :: LayoutClass l Window => MagicFocus l Window -> Rectangle
-> Stack Window -> X ([(Window, Rectangle)], Maybe (MagicFocus l Window)) -> Stack Window -> X ([(Window, Rectangle)], Maybe (MagicFocus l Window))
magicFocus (MagicFocus l) r s = magicFocus (MagicFocus l) r s =
withWindowSet $ \wset -> do 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 case nl of
Nothing -> return (ws, Nothing) Nothing -> return (ws, Nothing)
Just l' -> return (ws, Just $ MagicFocus l') Just l' -> return (ws, Just $ MagicFocus l')