From 2682ece4c33d497d0e268cb0092d214c9fb2717d Mon Sep 17 00:00:00 2001
From: hughes <hughes@rpi.edu>
Date: Mon, 26 Mar 2007 17:02:13 +0200
Subject: Workspace-specific layouts

darcs-hash:20070326150213-3a569-64dd38c00558d58f27c3803ab15485892c24cfaa.gz
---
 Config.hs | 21 +++++++++++++--------
 1 file changed, 13 insertions(+), 8 deletions(-)

(limited to 'Config.hs')

diff --git a/Config.hs b/Config.hs
index d6e5ab8..eacb59c 100644
--- a/Config.hs
+++ b/Config.hs
@@ -49,10 +49,6 @@ workspaces = 9
 modMask :: KeyMask
 modMask = mod1Mask
 
--- The default size for the left pane.
-defaultLeftWidth :: Rational
-defaultLeftWidth = 1%2
-
 -- How much to change the size of the windows on the left by default.
 defaultDelta :: Rational
 defaultDelta = 3%100
@@ -61,16 +57,25 @@ defaultDelta = 3%100
 numlockMask :: KeySym
 numlockMask = lockMask
 
--- What layout to start in. See the definition of Layout in XMonad.hs for options.
-defaultLayout :: Layout
-defaultLayout = Full
+
+
+-- 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 ())
 keys = M.fromList $
     [ ((modMask .|. shiftMask, xK_Return), spawn "xterm")
     , ((modMask,               xK_p     ), spawn "exe=`dmenu_path | dmenu` && exec $exe")
-    , ((controlMask,           xK_space ), spawn "gmrun")
+-- Stealing Ctrl + Space is evil.
+--    , ((controlMask,           xK_space ), spawn "gmrun")
     , ((modMask,               xK_Tab   ), raise GT)
     , ((modMask,               xK_j     ), raise GT)
     , ((modMask,               xK_k     ), raise LT)
-- 
cgit v1.2.3