aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorLukas Mai <l.mai@web.de>2008-01-28 18:53:13 +0100
committerLukas Mai <l.mai@web.de>2008-01-28 18:53:13 +0100
commitd7d8a1a945a0a445d298ba2c46d42636bed2e842 (patch)
tree9baac91b8653a56effc8fc254e1f1f1308a83769
parentbff20bc03815a184effafc2d59f50f9562ddfc47 (diff)
downloadXMonadContrib-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.hs2
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