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

Make ToggleLayouts and Named implement emptyLayout

Browse Source
This commit is contained in:
Andrea Rossato 2008-01-28 15:15:35 +00:00
parent 97acd14ed5
commit 5dab294a2d
2 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
XMonad/Layout/Named.hs
View File

@ -42,6 +42,9 @@ data Named l a = Named String (l a) deriving ( Read, Show )
instance (LayoutClass l a) => LayoutClass (Named l) a where instance (LayoutClass l a) => LayoutClass (Named l) a where
doLayout (Named n l) r s = do (ws, ml') <- doLayout l r s doLayout (Named n l) r s = do (ws, ml') <- doLayout l r s
return (ws, Named n `fmap` ml') return (ws, Named n `fmap` ml')
emptyLayout (Named n l) r = do (ws, ml') <- emptyLayout l r
return (ws, Named n `fmap` ml')
handleMessage (Named n l) mess = do ml' <- handleMessage l mess handleMessage (Named n l) mess = do ml' <- handleMessage l mess
return $ Named n `fmap` ml' return $ Named n `fmap` ml'
description (Named n _) = n description (Named n _) = n

4
XMonad/Layout/ToggleLayouts.hs
View File

@ -60,6 +60,10 @@ instance (LayoutClass lt a, LayoutClass lf a) => LayoutClass (ToggleLayouts lt l
return (ws,fmap (\lt' -> ToggleLayouts True lt' lf) mlt') return (ws,fmap (\lt' -> ToggleLayouts True lt' lf) mlt')
doLayout (ToggleLayouts False lt lf) r s = do (ws,mlf') <- doLayout lf r s doLayout (ToggleLayouts False lt lf) r s = do (ws,mlf') <- doLayout lf r s
return (ws,fmap (\lf' -> ToggleLayouts False lt lf') mlf') return (ws,fmap (\lf' -> ToggleLayouts False lt lf') mlf')
emptyLayout (ToggleLayouts True lt lf) r = do (ws,mlt') <- emptyLayout lt r
return (ws,fmap (\lt' -> ToggleLayouts True lt' lf) mlt')
emptyLayout (ToggleLayouts False lt lf) r = do (ws,mlf') <- emptyLayout lf r
return (ws,fmap (\lf' -> ToggleLayouts False lt lf') mlf')
description (ToggleLayouts True lt _) = description lt description (ToggleLayouts True lt _) = description lt
description (ToggleLayouts False _ lf) = description lf description (ToggleLayouts False _ lf) = description lf
handleMessage (ToggleLayouts bool lt lf) m handleMessage (ToggleLayouts bool lt lf) m