From 20707a47488fb1adfa9dc13aa386076b8e8118a2 Mon Sep 17 00:00:00 2001 From: shae Date: Fri, 16 Mar 2007 00:01:27 +0100 Subject: abstract out modMask for easy user configuration darcs-hash:20070315230127-03db8-f82e8e2e5f82ed5fc2e2c809e94247e45ba86a03 --- Main.hs | 21 +++++++++++++-------- 1 file changed, 13 insertions(+), 8 deletions(-) (limited to 'Main.hs') diff --git a/Main.hs b/Main.hs index c76c005..f6bd95c 100644 --- a/Main.hs +++ b/Main.hs @@ -34,22 +34,27 @@ import qualified StackSet as W workspaces :: Int workspaces = 9 +-- +-- modMask lets you easily change which modkey you use. +-- +modMask = mod1Mask + -- -- The keys list -- keys :: M.Map (KeyMask, KeySym) (X ()) keys = M.fromList $ - [ ((mod1Mask .|. shiftMask, xK_Return), spawn "xterm") - , ((mod1Mask, xK_p ), spawn "exe=`dmenu_path | dmenu` && exec $exe") + [ ((modMask .|. shiftMask, xK_Return), spawn "xterm") + , ((modMask, xK_p ), spawn "exe=`dmenu_path | dmenu` && exec $exe") , ((controlMask, xK_space ), spawn "gmrun") - , ((mod1Mask, xK_Tab ), raise GT) - , ((mod1Mask, xK_j ), raise GT) - , ((mod1Mask, xK_k ), raise LT) - , ((mod1Mask .|. shiftMask, xK_c ), kill) - , ((mod1Mask .|. shiftMask, xK_q ), io $ exitWith ExitSuccess) + , ((modMask, xK_Tab ), raise GT) + , ((modMask, xK_j ), raise GT) + , ((modMask, xK_k ), raise LT) + , ((modMask .|. shiftMask, xK_c ), kill) + , ((modMask .|. shiftMask, xK_q ), io $ exitWith ExitSuccess) ] ++ -- generate keybindings to each workspace: - [((m .|. mod1Mask, xK_0 + fromIntegral i), f i) + [((m .|. modMask, xK_0 + fromIntegral i), f i) | i <- [1 .. workspaces] , (f, m) <- [(view, 0), (tag, shiftMask)]] -- cgit v1.2.3