twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-09 16:31:53 -07:00
Code Issues Packages Projects Releases Wiki Activity

add a hook to LayoutHelpers.

Browse Source
This commit is contained in:
David Roundy
2007-09-23 12:17:23 +00:00
parent 92834a2493
commit 89f89021ab
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
LayoutHelpers.hs
View File

@@ -33,7 +33,9 @@ class (Show (m l a), Read (m l a), Layout l a) => LayoutModifier m l a where
modifyModify _ _ = return Nothing modifyModify _ _ = return Nothing
redoLayout :: m l a -> Rectangle -> Stack a -> [(a, Rectangle)] redoLayout :: m l a -> Rectangle -> Stack a -> [(a, Rectangle)]
-> X ([(a, Rectangle)], Maybe (l a -> m l a)) -> X ([(a, Rectangle)], Maybe (l a -> m l a))
redoLayout _ _ _ wrs = return (wrs, Nothing) redoLayout m _ _ wrs = do hook m; return (wrs, Nothing)
hook :: m l a -> X ()
hook _ = return ()
instance LayoutModifier m l a => Layout (m l) a where instance LayoutModifier m l a => Layout (m l) a where
doLayout m r s = do (ws, ml') <- doLayout (extractLayout m) r s doLayout m r s = do (ws, ml') <- doLayout (extractLayout m) r s