From d7d8a1a945a0a445d298ba2c46d42636bed2e842 Mon Sep 17 00:00:00 2001
From: Lukas Mai <l.mai@web.de>
Date: Mon, 28 Jan 2008 18:53:13 +0100
Subject: add emptyLayout to MultiToggle
darcs-hash:20080128175313-462cf-69da1283ec40c1d853b0eff783a2d6216ed114ab.gz
---
XMonad/Layout/MultiToggle.hs | 2 ++
1 file changed, 2 insertions(+)
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
--
cgit v1.2.3