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

Replaced more stuff in X.L.Maximize with pure versions

Browse Source
This commit is contained in:
Jan Vornberger 2009-05-16 23:35:57 +00:00
parent b5b9a3dc67
commit 2b9b770e12
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
XMonad/Layout/Maximize.hs
View File

@ -72,12 +72,12 @@ instance LayoutModifier Maximize Window where
(rect_width rect - 50) (rect_height rect - 50)
pureModifier _ _ _ wrs = (wrs, Nothing)
handleMess (Maximize mw) m = case fromMessage m of
pureMess (Maximize mw) m = case fromMessage m of
Just (MaximizeRestore w) -> case mw of
Just w' -> if (w == w')
then return $ Just $ Maximize Nothing -- restore window
else return $ Just $ Maximize $ Just w -- maximize different window
Nothing -> return $ Just $ Maximize $ Just w -- maximize window
_ -> return Nothing
then Just $ Maximize Nothing -- restore window
else Just $ Maximize $ Just w -- maximize different window
Nothing -> Just $ Maximize $ Just w -- maximize window
_ -> Nothing
-- vim: sw=4:et