From 70452ed192481f965836058bdc8697b5e49ce99f Mon Sep 17 00:00:00 2001 From: Spencer Janssen Date: Mon, 2 Apr 2007 06:51:14 +0200 Subject: Revert to the old layout code. darcs-hash:20070402045114-a5988-3fa15b1c4d8d79494bf430dcad921d22cdfa8d16.gz --- Config.hs | 12 ++++++++++-- 1 file changed, 10 insertions(+), 2 deletions(-) (limited to 'Config.hs') 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) -- cgit v1.2.3