aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad
diff options
context:
space:
mode:
authorDavid Roundy <droundy@darcs.net>2007-12-01 16:58:59 +0100
committerDavid Roundy <droundy@darcs.net>2007-12-01 16:58:59 +0100
commit4cdf1fd697efcdb85ce0856c2287feb13f5051ad (patch)
treee59151a8019e73f6b566bd42573c67bf575333e6 /XMonad
parent169f3ace9e8ee77e2797d1691054c5660dc75b3f (diff)
downloadXMonadContrib-4cdf1fd697efcdb85ce0856c2287feb13f5051ad.tar.gz
XMonadContrib-4cdf1fd697efcdb85ce0856c2287feb13f5051ad.tar.xz
XMonadContrib-4cdf1fd697efcdb85ce0856c2287feb13f5051ad.zip
fix bug where we failed to hide combo decorations.
darcs-hash:20071201155859-72aca-1b4460577cbff7f0a50b0f3fc8003cfb7e926fb1.gz
Diffstat (limited to 'XMonad')
-rw-r--r--XMonad/Layout/Combo.hs16
1 files changed, 10 insertions, 6 deletions
diff --git a/XMonad/Layout/Combo.hs b/XMonad/Layout/Combo.hs
index 30f15fe..bfd2c0b 100644
--- a/XMonad/Layout/Combo.hs
+++ b/XMonad/Layout/Combo.hs
@@ -77,12 +77,16 @@ combineTwo = C2 [] []
instance (LayoutClass l (), LayoutClass l1 a, LayoutClass l2 a, Read a, Show a, Eq a, Typeable a)
=> LayoutClass (CombineTwo (l ()) l1 l2) a where
doLayout (C2 f w2 super l1 l2) rinput s = arrange (integrate s)
- where arrange [] = do l1' <- maybe l1 id `fmap` handleMessage l1 (SomeMessage Hide)
- l2' <- maybe l2 id `fmap` handleMessage l2 (SomeMessage Hide)
- return ([], Just $ C2 [] [] super l1' l2')
- arrange [w] = do l1' <- maybe l1 id `fmap` handleMessage l1 (SomeMessage Hide)
- l2' <- maybe l2 id `fmap` handleMessage l2 (SomeMessage Hide)
- return ([(w,rinput)], Just $ C2 [w] [w] super l1' l2')
+ where arrange [] = do l1' <- maybe l1 id `fmap` handleMessage l1 (SomeMessage ReleaseResources)
+ l2' <- maybe l2 id `fmap` handleMessage l2 (SomeMessage ReleaseResources)
+ super' <- maybe super id `fmap`
+ handleMessage super (SomeMessage ReleaseResources)
+ return ([], Just $ C2 [] [] super' l1' l2')
+ arrange [w] = do l1' <- maybe l1 id `fmap` handleMessage l1 (SomeMessage ReleaseResources)
+ l2' <- maybe l2 id `fmap` handleMessage l2 (SomeMessage ReleaseResources)
+ super' <- maybe super id `fmap`
+ handleMessage super (SomeMessage ReleaseResources)
+ return ([(w,rinput)], Just $ C2 [w] [w] super' l1' l2')
arrange origws =
do let w2' = case origws `intersect` w2 of [] -> [head origws]
[x] -> [x]