From 18d3fa1ae2c4023cbee535832c40a6cc4470d403 Mon Sep 17 00:00:00 2001
From: Jason Creighton <jcreigh@gmail.com>
Date: Wed, 16 May 2007 05:14:37 +0200
Subject: variable number of windows in master area

darcs-hash:20070516031437-b9aa7-03d82cb2565a45fa0e17a34c4c20740b51ff625c
---
 Config.hs | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

(limited to 'Config.hs')

diff --git a/Config.hs b/Config.hs
index 196515d..e6a9101 100644
--- a/Config.hs
+++ b/Config.hs
@@ -111,6 +111,10 @@ modMask = mod1Mask
 defaultDelta :: Rational
 defaultDelta = 3%100
 
+-- The default number of windows in the master area
+defaultWindowsInMaster :: Int
+defaultWindowsInMaster = 1
+
 -- numlock handling:
 --
 -- The mask for the numlock key. You may need to change this on some systems.
@@ -135,7 +139,9 @@ borderWidth = 1
 
 -- The default set of Layouts:
 defaultLayouts :: [Layout]
-defaultLayouts = [ full, tall defaultDelta (1%2), wide defaultDelta (1%2) ]
+defaultLayouts = [ full,
+                   tall defaultWindowsInMaster defaultDelta (1%2),
+                   wide defaultWindowsInMaster defaultDelta (1%2) ]
 
 --
 -- The key bindings list.
@@ -157,6 +163,9 @@ keys = M.fromList $
     , ((modMask,               xK_h     ), sendMessage Shrink)
     , ((modMask,               xK_l     ), sendMessage Expand)
 
+    , ((modMask .|. shiftMask, xK_j     ), sendMessage (IncMasterN 1))
+    , ((modMask .|. shiftMask, xK_k     ), sendMessage (IncMasterN (-1)))
+
     , ((modMask .|. shiftMask, xK_c     ), kill)
 
     , ((modMask .|. shiftMask, xK_q                     ), io $ exitWith ExitSuccess)
-- 
cgit v1.2.3