diff options
| author | Andrea Rossato <andrea.rossato@unibz.it> | 2008-01-28 16:15:35 +0100 |
|---|---|---|
| committer | Andrea Rossato <andrea.rossato@unibz.it> | 2008-01-28 16:15:35 +0100 |
| commit | ae4e33e3af57f0a255d7552fbafa0a0fb607f7dd (patch) | |
| tree | ce7432c5f1acb1d25d57d7240a6c6ee4ba07d8c9 /XMonad/Layout/ToggleLayouts.hs | |
| parent | 057c2159a12d4342d7ee1d11557fd244f521816c (diff) | |
| download | XMonadContrib-ae4e33e3af57f0a255d7552fbafa0a0fb607f7dd.tar.gz XMonadContrib-ae4e33e3af57f0a255d7552fbafa0a0fb607f7dd.tar.xz XMonadContrib-ae4e33e3af57f0a255d7552fbafa0a0fb607f7dd.zip | |
Make ToggleLayouts and Named implement emptyLayout
darcs-hash:20080128151535-32816-be0f1a2f500c8c0e91f9243a7b50721d60047487.gz
Diffstat (limited to 'XMonad/Layout/ToggleLayouts.hs')
| -rw-r--r-- | XMonad/Layout/ToggleLayouts.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/XMonad/Layout/ToggleLayouts.hs b/XMonad/Layout/ToggleLayouts.hs index f0a614a..7fe68dc 100644 --- a/XMonad/Layout/ToggleLayouts.hs +++ b/XMonad/Layout/ToggleLayouts.hs @@ -60,6 +60,10 @@ instance (LayoutClass lt a, LayoutClass lf a) => LayoutClass (ToggleLayouts lt l return (ws,fmap (\lt' -> ToggleLayouts True lt' lf) mlt') doLayout (ToggleLayouts False lt lf) r s = do (ws,mlf') <- doLayout lf r s 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 False _ lf) = description lf handleMessage (ToggleLayouts bool lt lf) m |