Revert to the old layout code.

darcs-hash:20070402045114-a5988-3fa15b1c4d8d79494bf430dcad921d22cdfa8d16.gz

1 files changed, 10 insertions, 2 deletions

diff --git a/Config.hs b/Config.hs
index 23ff5e3..5184664 100644
--- a/Config.hs
+++ b/Config.hs
@@ -64,6 +64,13 @@ sizeDelta = 3%100
 numlockMask :: KeyMask
 numlockMask = lockMask
 
+-- What layout to start in, and what the default proportion for the
+-- left pane should be in the tiled layout.  See LayoutDesc and
+-- friends in XMonad.hs for options.
+startingLayoutDesc :: LayoutDesc
+startingLayoutDesc =
+    LayoutDesc { layoutType   = Full
+               , tileFraction = 1%2  }
 
 -- The keys list.
 keys :: M.Map (KeyMask, KeySym) (X ())
@@ -79,8 +86,9 @@ keys = M.fromList $
 
     , ((modMask,               xK_h     ), changeHorz (negate defaultDelta))
     , ((modMask,               xK_l     ), changeHorz defaultDelta)
-    , ((modMask .|. shiftMask, xK_j     ), changeVert defaultDelta)
-    , ((modMask .|. shiftMask, xK_k     ), changeVert (negate defaultDelta))
+    -- Not implemented yet:
+    -- , ((modMask .|. shiftMask, xK_j     ), changeVert defaultDelta)
+    -- , ((modMask .|. shiftMask, xK_k     ), changeVert (negate defaultDelta))
 
     , ((modMask .|. shiftMask, xK_c     ), kill)