diff options
| author | David Roundy <droundy@darcs.net> | 2007-12-01 16:58:59 +0100 |
|---|---|---|
| committer | David Roundy <droundy@darcs.net> | 2007-12-01 16:58:59 +0100 |
| commit | 4cdf1fd697efcdb85ce0856c2287feb13f5051ad (patch) | |
| tree | e59151a8019e73f6b566bd42573c67bf575333e6 /XMonad | |
| parent | 169f3ace9e8ee77e2797d1691054c5660dc75b3f (diff) | |
| download | XMonadContrib-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.hs | 16 |
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] |