Minor updates to Sjanssen.hs

This commit is contained in:
Spencer Janssen 2007-11-05 05:50:22 +00:00
parent 387a4827cb
commit 9cd33f809e

View File

@ -16,6 +16,7 @@ import Data.Bits
import qualified Data.Map as M import qualified Data.Map as M
import Graphics.X11 import Graphics.X11
sjanssenConfig :: XConfig
sjanssenConfig = defaultConfig sjanssenConfig = defaultConfig
{ defaultGaps = [(15,0,0,0)] { defaultGaps = [(15,0,0,0)]
, terminal = "urxvt" , terminal = "urxvt"
@ -33,16 +34,7 @@ sjanssenConfig = defaultConfig
mykeys (XConfig {modMask = modMask}) = M.fromList $ mykeys (XConfig {modMask = modMask}) = M.fromList $
[((modMask, xK_p ), shellPrompt myPromptConfig)] [((modMask, xK_p ), shellPrompt myPromptConfig)]
-- default tiling algorithm partitions the screen into two panes -- default tiling algorithm partitions the screen into two panes
tiled = Tall nmaster delta ratio tiled = Tall 1 0.5 0.03
-- The default number of windows in the master pane
nmaster = 1
-- Default proportion of screen occupied by master pane
ratio = 1%2
-- Percent of screen to increment by when resizing panes
delta = 3%100
myPromptConfig = defaultXPConfig myPromptConfig = defaultXPConfig
{ position = Top { position = Top