diff options
| -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 |