make it easier to define pure layouts.

darcs-hash:20070925170503-72aca-22b50fd803b02bb36ca12befdeeb182439395bc8.gz

1 files changed, 4 insertions, 0 deletions

diff --git a/XMonad.hs b/XMonad.hs
index c0ca75d..ef2a2f1 100644
--- a/XMonad.hs
+++ b/XMonad.hs
@@ -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