abstract out modMask for easy user configuration

darcs-hash:20070315230127-03db8-f82e8e2e5f82ed5fc2e2c809e94247e45ba86a03

1 files changed, 13 insertions, 8 deletions

diff --git a/Main.hs b/Main.hs
index c76c005..f6bd95c 100644
--- a/Main.hs
+++ b/Main.hs
@@ -35,21 +35,26 @@ 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)]]