diff options
| author | Lukas Mai <l.mai@web.de> | 2008-01-28 18:53:13 +0100 |
|---|---|---|
| committer | Lukas Mai <l.mai@web.de> | 2008-01-28 18:53:13 +0100 |
| commit | d7d8a1a945a0a445d298ba2c46d42636bed2e842 (patch) | |
| tree | 9baac91b8653a56effc8fc254e1f1f1308a83769 | |
| parent | bff20bc03815a184effafc2d59f50f9562ddfc47 (diff) | |
| download | XMonadContrib-d7d8a1a945a0a445d298ba2c46d42636bed2e842.tar.gz XMonadContrib-d7d8a1a945a0a445d298ba2c46d42636bed2e842.tar.xz XMonadContrib-d7d8a1a945a0a445d298ba2c46d42636bed2e842.zip | |
add emptyLayout to MultiToggle
darcs-hash:20080128175313-462cf-69da1283ec40c1d853b0eff783a2d6216ed114ab.gz
| -rw-r--r-- | XMonad/Layout/MultiToggle.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/XMonad/Layout/MultiToggle.hs b/XMonad/Layout/MultiToggle.hs index 2b6c8a1..d599d13 100644 --- a/XMonad/Layout/MultiToggle.hs +++ b/XMonad/Layout/MultiToggle.hs @@ -200,6 +200,8 @@ instance (Typeable a, Show ts, HList ts a, LayoutClass l a) => LayoutClass (Mult doLayout mt r s = currLayout mt `unEL` \l -> acceptChange mt (fmap . fmap) (doLayout l r s) + emptyLayout mt r = currLayout mt `unEL` \l -> acceptChange mt (fmap . fmap) (emptyLayout l r) + handleMessage mt m | Just (Toggle t) <- fromMessage m , i@(Just _) <- find (transformers mt) t |