diff options
author | David Roundy <droundy@darcs.net> | 2007-09-25 19:05:03 +0200 |
---|---|---|
committer | David Roundy <droundy@darcs.net> | 2007-09-25 19:05:03 +0200 |
commit | 4c37ae203f967d35ecf872d144cccddfe2d4775c (patch) | |
tree | d867247a07bc9451a935df3849fc7bb9d3176c68 /XMonad.hs | |
parent | ecb8d1bb0443573c22a7972cf5c81f19c62ba478 (diff) | |
download | xmonad-4c37ae203f967d35ecf872d144cccddfe2d4775c.tar.gz xmonad-4c37ae203f967d35ecf872d144cccddfe2d4775c.tar.xz xmonad-4c37ae203f967d35ecf872d144cccddfe2d4775c.zip |
make it easier to define pure layouts.
darcs-hash:20070925170503-72aca-22b50fd803b02bb36ca12befdeeb182439395bc8.gz
Diffstat (limited to 'XMonad.hs')
-rw-r--r-- | XMonad.hs | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -151,6 +151,10 @@ readLayout ls s = concatMap rl ls class (Show (layout a), Read (layout a)) => Layout layout a where doLayout :: layout a -> Rectangle -> Stack a -> X ([(a, Rectangle)], Maybe (layout a)) + doLayout l r s = return (pureLayout l r s, Nothing) + pureLayout :: layout a -> Rectangle -> Stack a -> [(a, Rectangle)] + pureLayout _ r s = [(focus s, r)] + modifyLayout :: layout a -> SomeMessage -> X (Maybe (layout a)) modifyLayout _ _ = return Nothing description :: layout a -> String |