twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-18 13:43:48 -07:00
Code Issues Packages Projects Releases Wiki Activity

LayoutModifier should have descriptions too

Browse Source
This commit is contained in:
Spencer Janssen
2007-09-28 05:31:06 +00:00
parent 1593bb54cd
commit 1ef72a1bfa
1 changed files with 3 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
LayoutModifier.hs
View File

@@ -36,6 +36,8 @@ class (Show (m a), Read (m a)) => LayoutModifier m a where
hook _ = return () hook _ = return ()
unhook :: m a -> X () unhook :: m a -> X ()
unhook _ = return () unhook _ = return ()
modifierDescription :: m a -> String
modifierDescription = show
instance (LayoutModifier m a, Layout l a) => Layout (ModifiedLayout m l) a where instance (LayoutModifier m a, Layout l a) => Layout (ModifiedLayout m l) a where
doLayout (ModifiedLayout m l) r s = doLayout (ModifiedLayout m l) r s =
@@ -51,5 +53,6 @@ instance (LayoutModifier m a, Layout l a) => Layout (ModifiedLayout m l) a where
return $ case mm' of return $ case mm' of
Just m' -> Just $ (ModifiedLayout m') $ maybe l id ml' Just m' -> Just $ (ModifiedLayout m') $ maybe l id ml'
Nothing -> (ModifiedLayout m) `fmap` ml' Nothing -> (ModifiedLayout m) `fmap` ml'
description (ModifiedLayout m l) = modifierDescription m ++ description l
data ModifiedLayout m l a = ModifiedLayout (m a) (l a) deriving ( Read, Show ) data ModifiedLayout m l a = ModifiedLayout (m a) (l a) deriving ( Read, Show )