From d7d8a1a945a0a445d298ba2c46d42636bed2e842 Mon Sep 17 00:00:00 2001 From: Lukas Mai 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(+) (limited to 'XMonad/Layout/MultiToggle.hs') 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