diff options
| author | Brent Yorgey <byorgey@gmail.com> | 2008-01-15 20:33:11 +0100 |
|---|---|---|
| committer | Brent Yorgey <byorgey@gmail.com> | 2008-01-15 20:33:11 +0100 |
| commit | 4f327d06d5312c741ae3014902fbd0fc36d0c73d (patch) | |
| tree | 1f574da8411abc0eadd0113bd085d13444e08849 | |
| parent | d5ea194df55eaf8082f925c9aa620416f8be3180 (diff) | |
| download | XMonadContrib-4f327d06d5312c741ae3014902fbd0fc36d0c73d.tar.gz XMonadContrib-4f327d06d5312c741ae3014902fbd0fc36d0c73d.tar.xz XMonadContrib-4f327d06d5312c741ae3014902fbd0fc36d0c73d.zip | |
MultiToggle.hs: improve 'description' implementation in LayoutClass instance to display the current transformed layout rather than just 'MultiToggle'
darcs-hash:20080115193311-bd4d7-a67d3b834513ad0f23b228708dcb765b2c6a4514.gz
| -rw-r--r-- | XMonad/Layout/MultiToggle.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/XMonad/Layout/MultiToggle.hs b/XMonad/Layout/MultiToggle.hs index e4ba768..3b779d9 100644 --- a/XMonad/Layout/MultiToggle.hs +++ b/XMonad/Layout/MultiToggle.hs @@ -81,7 +81,7 @@ import Data.Maybe -- > data NOBORDERS = NOBORDERS deriving (Read, Show, Eq, Typeable) -- > instance Transformer NOBORDERS Window where -- > transform _ x k = k (noBorders x) --- > +-- > -- > data FULL = FULL deriving (Read, Show, Eq, Typeable) -- > instance Transformer FULL Window where -- > transform _ x k = k Full @@ -189,7 +189,7 @@ acceptChange :: (LayoutClass l' a) => MultiToggle ts l a -> ((l' a -> MultiToggl acceptChange mt f = fmap (f (\x -> mt{ currLayout = EL x })) instance (Typeable a, Show ts, HList ts a, LayoutClass l a) => LayoutClass (MultiToggle ts l) a where - description _ = "MultiToggle" + description (MultiToggle { currLayout = (EL l) }) = description l pureLayout mt r s = currLayout mt `unEL` \l -> pureLayout l r s |