variable number of windows in master area

darcs-hash:20070516031437-b9aa7-03d82cb2565a45fa0e17a34c4c20740b51ff625c

1 files changed, 10 insertions, 1 deletions

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)