From 3a7af24ccb821b88613736f2f3d5ff049cfac02b Mon Sep 17 00:00:00 2001
From: David Roundy <droundy@darcs.net>
Date: Thu, 3 May 2007 16:47:50 +0200
Subject: add support for extensible layouts.

darcs-hash:20070503144750-72aca-f44bca4573837e12fc1f89333b55e04abd52787c.gz
---
 Config.hs | 17 +++++------------
 1 file changed, 5 insertions(+), 12 deletions(-)

(limited to 'Config.hs')

diff --git a/Config.hs b/Config.hs
index 79dbb6f..59d2c38 100644
--- a/Config.hs
+++ b/Config.hs
@@ -133,16 +133,9 @@ focusedBorderColor = "#ff0000"
 borderWidth :: Dimension
 borderWidth = 2
 
--- A LayoutDesc specifies two things:
---  * what layout mode to use by default
---  * what default screen ratio of master/slave areas are used when tiling
---
--- See LayoutDesc and friends in XMonad.hs for options.
---
-defaultLayoutDesc :: LayoutDesc
-defaultLayoutDesc =
-    LayoutDesc { layoutType   = Full
-               , tileFraction = 2%3  }
+-- The default set of Layouts:
+defaultLayouts :: [Layout]
+defaultLayouts = [ full, tall defaultDelta (2%3), wide defaultDelta (2%3) ]
 
 --
 -- The key bindings list.
@@ -161,8 +154,8 @@ keys = M.fromList $
     , ((modMask,               xK_j     ), raise GT)
     , ((modMask,               xK_k     ), raise LT)
 
-    , ((modMask,               xK_h     ), changeSplit (negate defaultDelta))
-    , ((modMask,               xK_l     ), changeSplit defaultDelta)
+    , ((modMask,               xK_h     ), layoutMsg Expand)
+    , ((modMask,               xK_l     ), layoutMsg Shrink)
 
     , ((modMask .|. shiftMask, xK_c     ), kill)
 
-- 
cgit v1.2.3