From 121e6b4599058f5920ae09afdedf1069a1caf839 Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Wed, 21 Mar 2007 07:58:07 +0100
Subject: Add defaultLeftWidth in the configuration section

darcs-hash:20070321065807-a5988-4685e61bb98bd87e006c3d0e310ef0f918151a35
---
 Main.hs | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'Main.hs')

diff --git a/Main.hs b/Main.hs
index 820a153..1e6691f 100644
--- a/Main.hs
+++ b/Main.hs
@@ -71,6 +71,10 @@ keys = M.fromList $
         , (f, m) <- [(view, 0), (tag, shiftMask)]]
 
 
+-- The default size for the left pane
+defaultLeftWidth :: Rational
+defaultLeftWidth = 3%5
+
 -- How much to change the size of the windows on the left by default
 defaultDelta :: Rational
 defaultDelta = 3%100
@@ -104,7 +108,7 @@ main = do
             , dimensions   = (displayWidth  dpy dflt, displayHeight dpy dflt)
             , workspace    = W.empty workspaces
             , layout       = Full
-            , leftWidth    = 3%5
+            , leftWidth    = defaultLeftWidth
             }
 
     xSetErrorHandler -- in C, I'm too lazy to write the binding
-- 
cgit v1.2.3