summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorSpencer Janssen <sjanssen@cse.unl.edu>2007-03-21 07:58:07 +0100
committerSpencer Janssen <sjanssen@cse.unl.edu>2007-03-21 07:58:07 +0100
commit121e6b4599058f5920ae09afdedf1069a1caf839 (patch)
tree50ceb38aba7f3e7a0e74c2b92ce6d89b5b041e8f
parentf5b1850d11209c0319342bf06aa11ac35b30e070 (diff)
downloadmetatile-121e6b4599058f5920ae09afdedf1069a1caf839.tar
metatile-121e6b4599058f5920ae09afdedf1069a1caf839.zip
Add defaultLeftWidth in the configuration section
darcs-hash:20070321065807-a5988-4685e61bb98bd87e006c3d0e310ef0f918151a35
-rw-r--r--Main.hs6
1 files changed, 5 insertions, 1 deletions
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