From ae4e33e3af57f0a255d7552fbafa0a0fb607f7dd Mon Sep 17 00:00:00 2001 From: Andrea Rossato Date: Mon, 28 Jan 2008 16:15:35 +0100 Subject: Make ToggleLayouts and Named implement emptyLayout darcs-hash:20080128151535-32816-be0f1a2f500c8c0e91f9243a7b50721d60047487.gz --- XMonad/Layout/Named.hs | 3 +++ XMonad/Layout/ToggleLayouts.hs | 4 ++++ 2 files changed, 7 insertions(+) diff --git a/XMonad/Layout/Named.hs b/XMonad/Layout/Named.hs index 1056111..48a29c3 100644 --- a/XMonad/Layout/Named.hs +++ b/XMonad/Layout/Named.hs @@ -42,6 +42,9 @@ data Named l a = Named String (l a) deriving ( Read, Show ) instance (LayoutClass l a) => LayoutClass (Named l) a where doLayout (Named n l) r s = do (ws, ml') <- doLayout l r s return (ws, Named n `fmap` ml') + emptyLayout (Named n l) r = do (ws, ml') <- emptyLayout l r + return (ws, Named n `fmap` ml') handleMessage (Named n l) mess = do ml' <- handleMessage l mess return $ Named n `fmap` ml' description (Named n _) = n + diff --git a/XMonad/Layout/ToggleLayouts.hs b/XMonad/Layout/ToggleLayouts.hs index f0a614a..7fe68dc 100644 --- a/XMonad/Layout/ToggleLayouts.hs +++ b/XMonad/Layout/ToggleLayouts.hs @@ -60,6 +60,10 @@ instance (LayoutClass lt a, LayoutClass lf a) => LayoutClass (ToggleLayouts lt l return (ws,fmap (\lt' -> ToggleLayouts True lt' lf) mlt') doLayout (ToggleLayouts False lt lf) r s = do (ws,mlf') <- doLayout lf r s return (ws,fmap (\lf' -> ToggleLayouts False lt lf') mlf') + emptyLayout (ToggleLayouts True lt lf) r = do (ws,mlt') <- emptyLayout lt r + return (ws,fmap (\lt' -> ToggleLayouts True lt' lf) mlt') + emptyLayout (ToggleLayouts False lt lf) r = do (ws,mlf') <- emptyLayout lf r + return (ws,fmap (\lf' -> ToggleLayouts False lt lf') mlf') description (ToggleLayouts True lt _) = description lt description (ToggleLayouts False _ lf) = description lf handleMessage (ToggleLayouts bool lt lf) m -- cgit v1.2.3