aboutsummaryrefslogtreecommitdiffstats
path: root/Main.hs
diff options
context:
space:
mode:
authorJason Creighton <jcreigh@gmail.com>2007-06-01 03:51:37 +0200
committerJason Creighton <jcreigh@gmail.com>2007-06-01 03:51:37 +0200
commitd7eafb9fb70b60d5f710ab290cb4f4b085c04c99 (patch)
treeb3fdcc5997eab31b4c73299027a5b609666569bc /Main.hs
parent5a419b7230fefb116b9c914a6ffb2de296b7932b (diff)
downloadxmonad-d7eafb9fb70b60d5f710ab290cb4f4b085c04c99.tar.gz
xmonad-d7eafb9fb70b60d5f710ab290cb4f4b085c04c99.tar.xz
xmonad-d7eafb9fb70b60d5f710ab290cb4f4b085c04c99.zip
ignore numlock/capslock on mouse bindings
darcs-hash:20070601015137-b9aa7-51c6b9ec428c2d16d65b196384fa2ce953dda245.gz
Diffstat (limited to 'Main.hs')
-rw-r--r--Main.hs3
1 files changed, 1 insertions, 2 deletions
diff --git a/Main.hs b/Main.hs
index 95b2aa3..f3f2219 100644
--- a/Main.hs
+++ b/Main.hs
@@ -106,8 +106,7 @@ grabKeys dpy rootw = do
kc <- keysymToKeycode dpy sym
-- "If the specified KeySym is not defined for any KeyCode,
-- XKeysymToKeycode() returns zero."
- when (kc /= '\0') $ mapM_ (grab kc . (mask .|.)) $
- [0, numlockMask, lockMask, numlockMask .|. lockMask]
+ when (kc /= '\0') $ mapM_ (grab kc . (mask .|.)) extraModifiers
where grab kc m = grabKey dpy kc m rootw True grabModeAsync grabModeAsync