diff options
| author | Andrea Rossato <andrea.rossato@unibz.it> | 2008-01-27 10:24:15 +0100 |
|---|---|---|
| committer | Andrea Rossato <andrea.rossato@unibz.it> | 2008-01-27 10:24:15 +0100 |
| commit | 18dd26cb46d51d2d64626449de858962530f2a29 (patch) | |
| tree | b8593f9f12f9fe3c30b61d1dd42311d0d27973b3 | |
| parent | d53b46fdd2de0f9ea1e884a550ca0e80dc3ddba5 (diff) | |
| download | XMonadContrib-18dd26cb46d51d2d64626449de858962530f2a29.tar.gz XMonadContrib-18dd26cb46d51d2d64626449de858962530f2a29.tar.xz XMonadContrib-18dd26cb46d51d2d64626449de858962530f2a29.zip | |
Make LayoutCombinators deal with emptyLayout
darcs-hash:20080127092415-32816-35b3d878a2c1cb87f5e58711767c4c293d2d544b.gz
| -rw-r--r-- | XMonad/Layout/LayoutCombinators.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/XMonad/Layout/LayoutCombinators.hs b/XMonad/Layout/LayoutCombinators.hs index 1cfd067..c4e36f3 100644 --- a/XMonad/Layout/LayoutCombinators.hs +++ b/XMonad/Layout/LayoutCombinators.hs @@ -163,6 +163,10 @@ instance (LayoutClass l1 a, LayoutClass l2 a) => LayoutClass (NewSelect l1 l2) a return (wrs, (\l1' -> NewSelect True l1' l2) `fmap` ml1') doLayout (NewSelect False l1 l2) r s = do (wrs, ml2') <- doLayout l2 r s return (wrs, (\l2' -> NewSelect False l1 l2') `fmap` ml2') + emptyLayout (NewSelect True l1 l2) r = do (wrs, ml1') <- emptyLayout l1 r + return (wrs, (\l1' -> NewSelect True l1' l2) `fmap` ml1') + emptyLayout (NewSelect False l1 l2) r = do (wrs, ml2') <- emptyLayout l2 r + return (wrs, (\l2' -> NewSelect False l1 l2') `fmap` ml2') description (NewSelect True l1 _) = description l1 description (NewSelect False _ l2) = description l2 handleMessage l@(NewSelect False _ _) m |