From d1dc49575bf9bee1f73b4fe1fb57226a04bfc194 Mon Sep 17 00:00:00 2001 From: Lukas Mai Date: Mon, 28 Jan 2008 17:53:13 +0000 Subject: [PATCH] add emptyLayout to MultiToggle --- XMonad/Layout/MultiToggle.hs | 2 ++ 1 file changed, 2 insertions(+) diff --git a/XMonad/Layout/MultiToggle.hs b/XMonad/Layout/MultiToggle.hs index 2b6c8a1c..d599d13f 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