diff options
author | David Roundy <droundy@darcs.net> | 2007-06-23 22:14:47 +0200 |
---|---|---|
committer | David Roundy <droundy@darcs.net> | 2007-06-23 22:14:47 +0200 |
commit | 78d467386729502330d2cd386eb9221f101d6d67 (patch) | |
tree | 785c0a78f55cc85704fee619ef782fd5e73b3c0d /XMonad.hs | |
parent | 6a9570d2094f639c21f2b429ce229464e8016a79 (diff) | |
download | xmonad-78d467386729502330d2cd386eb9221f101d6d67.tar.gz xmonad-78d467386729502330d2cd386eb9221f101d6d67.tar.xz xmonad-78d467386729502330d2cd386eb9221f101d6d67.zip |
support self-modifying layouts.
darcs-hash:20070623201447-72aca-7bfeb7e7ec36b37420a4c670dc23156c52d7e22d.gz
Diffstat (limited to '')
-rw-r--r-- | XMonad.hs | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -126,11 +126,11 @@ atom_WM_STATE = getAtom "WM_STATE" -- that message and the screen is not refreshed. Otherwise, 'modifyLayout' -- returns an updated 'Layout' and the screen is refreshed. -- -data Layout a = Layout { doLayout :: Rectangle -> Stack a -> X [(a, Rectangle)] +data Layout a = Layout { doLayout :: Rectangle -> Stack a -> X ([(a, Rectangle)], Maybe (Layout a)) , modifyLayout :: SomeMessage -> X (Maybe (Layout a)) } -runLayout :: Layout a -> Rectangle -> StackOrNot a -> X [(a, Rectangle)] -runLayout l r = maybe (return []) (doLayout l r) +runLayout :: Layout a -> Rectangle -> StackOrNot a -> X ([(a, Rectangle)], Maybe (Layout a)) +runLayout l r = maybe (return ([], Nothing)) (doLayout l r) -- | Based on ideas in /An Extensible Dynamically-Typed Hierarchy of Exceptions/, -- Simon Marlow, 2006. Use extensible messages to the modifyLayout handler. |