twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-05-19 11:30:22 -07:00
Code Issues Packages Projects Releases Wiki Activity

MultiToggle.hs: improve 'description' implementation in LayoutClass instance to display the current transformed layout rather than just 'MultiToggle'

Browse Source
This commit is contained in:
Brent Yorgey 2008-01-15 19:33:11 +00:00
parent 4026d40730
commit 670d3160c4
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
XMonad/Layout/MultiToggle.hs
View File

@ -81,7 +81,7 @@ import Data.Maybe
-- > data NOBORDERS = NOBORDERS deriving (Read, Show, Eq, Typeable) -- > data NOBORDERS = NOBORDERS deriving (Read, Show, Eq, Typeable)
-- > instance Transformer NOBORDERS Window where -- > instance Transformer NOBORDERS Window where
-- > transform _ x k = k (noBorders x) -- > transform _ x k = k (noBorders x)
-- > -- >
-- > data FULL = FULL deriving (Read, Show, Eq, Typeable) -- > data FULL = FULL deriving (Read, Show, Eq, Typeable)
-- > instance Transformer FULL Window where -- > instance Transformer FULL Window where
-- > transform _ x k = k Full -- > 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 })) 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 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 pureLayout mt r s = currLayout mt `unEL` \l -> pureLayout l r s