From 18dd26cb46d51d2d64626449de858962530f2a29 Mon Sep 17 00:00:00 2001 From: Andrea Rossato Date: Sun, 27 Jan 2008 10:24:15 +0100 Subject: Make LayoutCombinators deal with emptyLayout darcs-hash:20080127092415-32816-35b3d878a2c1cb87f5e58711767c4c293d2d544b.gz --- XMonad/Layout/LayoutCombinators.hs | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'XMonad') 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 -- cgit v1.2.3