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 | ecb8d1bb0443573c22a7972cf5c81f19c62ba478 (patch) | |
| tree | a4d6d620b193174a6b5dbc3572f559dfb06c1f3c /XMonad.hs | |
| parent | 26eaea0b085faf9908fc665c33d749cd4c43426f (diff) | |
| download | xmonad-ecb8d1bb0443573c22a7972cf5c81f19c62ba478.tar.gz xmonad-ecb8d1bb0443573c22a7972cf5c81f19c62ba478.tar.xz xmonad-ecb8d1bb0443573c22a7972cf5c81f19c62ba478.zip | |
Make a String description part of each Layout.
darcs-hash:20070924185753-72aca-95002aa27cfef74bf8caf1e6f243a4626f20659c.gz
Diffstat (limited to '')
| -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) |