add support for parseable layouts not in the default.

darcs-hash:20070925174134-72aca-3c3520c200c097938c56f7dd7fd5c86948d52c15.gz

1 files changed, 7 insertions, 0 deletions

diff --git a/Config.hs b/Config.hs
index 66f4fec..5c33072 100644
--- a/Config.hs
+++ b/Config.hs
@@ -92,6 +92,13 @@ borderWidth = 1
 -- |
 -- The default set of tiling algorithms
 --
+otherPossibleLayouts :: [SomeLayout Window]
+otherPossibleLayouts = [SomeLayout $ Tall 1 1 1
+                       ,SomeLayout $ Mirror $ Tall 1 1 1
+                       ,SomeLayout Full
+                       -- Extension-provided layouts
+                       ]
+
 defaultLayouts :: [SomeLayout Window]
 defaultLayouts = [SomeLayout tiled
                  ,SomeLayout $ Mirror tiled