diff options
author | David Roundy <droundy@darcs.net> | 2007-09-24 20:57:53 +0200 |
---|---|---|
committer | David Roundy <droundy@darcs.net> | 2007-09-24 20:57:53 +0200 |
commit | 8874b8675a000b63fe435abdc013af03199e6c31 (patch) | |
tree | a4d6d620b193174a6b5dbc3572f559dfb06c1f3c /XMonad.hs | |
parent | e252cc1479451e1cb277ba82364125314d886092 (diff) | |
download | metatile-8874b8675a000b63fe435abdc013af03199e6c31.tar metatile-8874b8675a000b63fe435abdc013af03199e6c31.zip |
Make a String description part of each Layout.
darcs-hash:20070924185753-72aca-95002aa27cfef74bf8caf1e6f243a4626f20659c
Diffstat (limited to 'XMonad.hs')
-rw-r--r-- | XMonad.hs | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -153,6 +153,8 @@ class (Show (layout a), Read (layout a)) => Layout layout a where doLayout :: layout a -> Rectangle -> Stack a -> X ([(a, Rectangle)], Maybe (layout a)) modifyLayout :: layout a -> SomeMessage -> X (Maybe (layout a)) modifyLayout _ _ = return Nothing + description :: layout a -> String + description = show runLayout :: Layout l a => l a -> Rectangle -> StackOrNot a -> X ([(a, Rectangle)], Maybe (l a)) runLayout l r = maybe (return ([], Nothing)) (doLayout l r) |