From 1721e09a67d14a31bd1ddaf637c37bb6e4129c52 Mon Sep 17 00:00:00 2001 From: Spencer Janssen Date: Tue, 20 Mar 2007 15:58:28 +0100 Subject: Make numlockMask configurable darcs-hash:20070320145828-a5988-8d4e68f87e035cec9bea9705a9543850812f7b3a --- Main.hs | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) 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 -- cgit v1.2.3