Make numlockMask configurable

darcs-hash:20070320145828-a5988-8d4e68f87e035cec9bea9705a9543850812f7b3a.gz

1 files changed, 7 insertions, 1 deletions

diff --git a/Main.hs b/Main.hs
index 4a9a312..941067c 100644
--- a/Main.hs
+++ b/Main.hs
@@ -62,6 +62,12 @@ keys = M.fromList $
         | i <- [1 .. workspaces]
         , (f, m) <- [(view, 0), (tag, shiftMask)]]
 
+--
+-- The mask for the numlock key.  You may need to change this on some systems.
+--
+numlockMask :: KeySym
+numlockMask = lockMask
+
 ratio :: Rational
 ratio = 0.5
 
@@ -130,7 +136,7 @@ grabKeys dpy rootw = do
     ungrabKey dpy '\0' {-AnyKey-} anyModifier rootw
     forM_ (M.keys keys) $ \(mask,sym) -> do
          kc <- keysymToKeycode dpy sym
-         mapM_ (grab kc) [mask, mask .|. lockMask] -- note: no numlock
+         mapM_ (grab kc) [mask, mask .|. numlockMask] -- note: no numlock
   where
     grab kc m = grabKey dpy kc m rootw True grabModeAsync grabModeAsync