diff options
author | David Roundy <droundy@darcs.net> | 2007-05-03 16:47:50 +0200 |
---|---|---|
committer | David Roundy <droundy@darcs.net> | 2007-05-03 16:47:50 +0200 |
commit | 3a7af24ccb821b88613736f2f3d5ff049cfac02b (patch) | |
tree | 1d0b462b8304b685d3ceda3fbf06f92c56c9d509 /Config.hs | |
parent | a10af6690d8f819156749314da49d481007ee616 (diff) | |
download | xmonad-3a7af24ccb821b88613736f2f3d5ff049cfac02b.tar.gz xmonad-3a7af24ccb821b88613736f2f3d5ff049cfac02b.tar.xz xmonad-3a7af24ccb821b88613736f2f3d5ff049cfac02b.zip |
add support for extensible layouts.
darcs-hash:20070503144750-72aca-f44bca4573837e12fc1f89333b55e04abd52787c.gz
Diffstat (limited to 'Config.hs')
-rw-r--r-- | Config.hs | 17 |
1 files changed, 5 insertions, 12 deletions
@@ -133,16 +133,9 @@ focusedBorderColor = "#ff0000" borderWidth :: Dimension borderWidth = 2 --- A LayoutDesc specifies two things: --- * what layout mode to use by default --- * what default screen ratio of master/slave areas are used when tiling --- --- See LayoutDesc and friends in XMonad.hs for options. --- -defaultLayoutDesc :: LayoutDesc -defaultLayoutDesc = - LayoutDesc { layoutType = Full - , tileFraction = 2%3 } +-- The default set of Layouts: +defaultLayouts :: [Layout] +defaultLayouts = [ full, tall defaultDelta (2%3), wide defaultDelta (2%3) ] -- -- The key bindings list. @@ -161,8 +154,8 @@ keys = M.fromList $ , ((modMask, xK_j ), raise GT) , ((modMask, xK_k ), raise LT) - , ((modMask, xK_h ), changeSplit (negate defaultDelta)) - , ((modMask, xK_l ), changeSplit defaultDelta) + , ((modMask, xK_h ), layoutMsg Expand) + , ((modMask, xK_l ), layoutMsg Shrink) , ((modMask .|. shiftMask, xK_c ), kill) |