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

add emptyLayout to MultiToggle

Browse Source
This commit is contained in:
Lukas Mai 2008-01-28 17:53:13 +00:00
parent ced1792bfa
commit d1dc49575b
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
XMonad/Layout/MultiToggle.hs
View File

@ -200,6 +200,8 @@ instance (Typeable a, Show ts, HList ts a, LayoutClass l a) => LayoutClass (Mult
doLayout mt r s = currLayout mt `unEL` \l -> acceptChange mt (fmap . fmap) (doLayout l r s) doLayout mt r s = currLayout mt `unEL` \l -> acceptChange mt (fmap . fmap) (doLayout l r s)
emptyLayout mt r = currLayout mt `unEL` \l -> acceptChange mt (fmap . fmap) (emptyLayout l r)
handleMessage mt m handleMessage mt m
| Just (Toggle t) <- fromMessage m | Just (Toggle t) <- fromMessage m
, i@(Just _) <- find (transformers mt) t , i@(Just _) <- find (transformers mt) t