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

LayoutModifier: add emptyLayoutMod for dealing with empty workspaces

Browse Source
This commit is contained in:
Andrea Rossato 2008-01-24 01:56:05 +00:00
parent efc4ad95b8
commit e9f0f05217
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
XMonad/Layout/LayoutModifier.hs
View File

@ -49,6 +49,9 @@ class (Show (m a), Read (m a)) => LayoutModifier m a where
pureModifier :: m a -> Rectangle -> Stack a -> [(a, Rectangle)] pureModifier :: m a -> Rectangle -> Stack a -> [(a, Rectangle)]
-> ([(a, Rectangle)], Maybe (m a)) -> ([(a, Rectangle)], Maybe (m a))
pureModifier _ _ _ wrs = (wrs, Nothing) pureModifier _ _ _ wrs = (wrs, Nothing)
emptyLayoutMod :: m a -> Rectangle -> [(a, Rectangle)]
-> X ([(a, Rectangle)], Maybe (m a))
emptyLayoutMod _ _ _ = return ([], Nothing)
hook :: m a -> X () hook :: m a -> X ()
hook _ = return () hook _ = return ()
unhook :: m a -> X () unhook :: m a -> X ()
@ -64,6 +67,13 @@ instance (LayoutModifier m a, LayoutClass l a) => LayoutClass (ModifiedLayout m
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'
return (ws', ml'') return (ws', ml'')
emptyLayout (ModifiedLayout m l) r =
do (ws, ml') <- emptyLayout l r
(ws',mm') <- emptyLayoutMod m r ws
let ml'' = case mm' of
Just m' -> Just $ (ModifiedLayout m') $ maybe l id ml'
Nothing -> ModifiedLayout m `fmap` ml'
return (ws', ml'')
handleMessage (ModifiedLayout m l) mess = handleMessage (ModifiedLayout m l) mess =
do mm' <- handleMessOrMaybeModifyIt m mess do mm' <- handleMessOrMaybeModifyIt m mess
ml' <- case mm' of ml' <- case mm' of