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

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) (rect_width rect - 50) (rect_height rect - 50)
pureModifier _ _ _ wrs = (wrs, Nothing) 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 (MaximizeRestore w) -> case mw of
Just w' -> if (w == w') Just w' -> if (w == w')
then return $ Just $ Maximize Nothing -- restore window then Just $ Maximize Nothing -- restore window
else return $ Just $ Maximize $ Just w -- maximize different window else Just $ Maximize $ Just w -- maximize different window
Nothing -> return $ Just $ Maximize $ Just w -- maximize window Nothing -> Just $ Maximize $ Just w -- maximize window
_ -> return Nothing _ -> Nothing
-- vim: sw=4:et -- vim: sw=4:et