From 36b6cc3ace7c6b669db0133972452f47962bf9dd Mon Sep 17 00:00:00 2001
From: David Roundy <droundy@darcs.net>
Date: Fri, 28 Sep 2007 04:02:08 +0200
Subject: define defaultLayout in Config.hs.

darcs-hash:20070928020208-72aca-ba2fa62ecf40abd9137c9632c7ee27525a62f48e.gz
---
 Config.hs | 15 +++++++++++++--
 1 file changed, 13 insertions(+), 2 deletions(-)

(limited to 'Config.hs')

diff --git a/Config.hs b/Config.hs
index 5356cb0..d57cb40 100644
--- a/Config.hs
+++ b/Config.hs
@@ -90,8 +90,19 @@ borderWidth :: Dimension
 borderWidth = 1
 
 -- |
--- The default set of tiling algorithms
+-- A list of layouts which, in addition to the defaultLayouts, xmonad can
+-- deserialize.
+possibleLayouts :: [SomeLayout Window]
+possibleLayouts = [defaultLayout
+                  -- Extension-provided layouts
+                  ] ++ defaultLayouts
+
+-- |
+-- The default tiling algorithm
 --
+defaultLayout :: SomeLayout Window
+defaultLayout = SomeLayout $ LayoutSelection defaultLayouts
+
 defaultLayouts :: [SomeLayout Window]
 defaultLayouts = [ SomeLayout tiled
                  , SomeLayout $ Mirror tiled
@@ -142,7 +153,7 @@ keys = M.fromList $
     , ((modMask .|. shiftMask, xK_c     ), kill) -- %! Close the focused window
 
     , ((modMask,               xK_space ), sendMessage NextLayout) -- %! Rotate through the available layout algorithms
-    , ((modMask .|. shiftMask, xK_space ), setLayout $ SomeLayout $ LayoutSelection defaultLayouts) -- %! Reset the layouts on the current workspace to default
+    , ((modMask .|. shiftMask, xK_space ), setLayout defaultLayout) -- %!  Reset the layouts on the current workspace to default
 
     , ((modMask,               xK_n     ), refresh) -- %! Resize viewed windows to the correct size
 
-- 
cgit v1.2.3