From c5183fc51bc27be6584140e20a2c41f0e94addbc Mon Sep 17 00:00:00 2001
From: shae <shae@ScannedInAvian.com>
Date: Fri, 16 Mar 2007 00:01:27 +0100
Subject: abstract out modMask for easy user configuration
darcs-hash:20070315230127-03db8-f82e8e2e5f82ed5fc2e2c809e94247e45ba86a03.gz
---
Main.hs | 21 +++++++++++++--------
1 file changed, 13 insertions(+), 8 deletions(-)
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