twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-08-01 12:41:53 -07:00
Code Issues Packages Projects Releases Wiki Activity

Make numlockMask configurable

Browse Source
This commit is contained in:
Spencer Janssen
2007-03-20 14:58:28 +00:00
parent e0584a008d
commit b192aa5cc6
1 changed files with 7 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
Main.hs
View File

@@ -62,6 +62,12 @@ keys = M.fromList $
| i <- [1 .. workspaces] | i <- [1 .. workspaces]
, (f, m) <- [(view, 0), (tag, shiftMask)]] , (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 :: Rational
ratio = 0.5 ratio = 0.5
@@ -130,7 +136,7 @@ grabKeys dpy rootw = do
ungrabKey dpy '\0' {-AnyKey-} anyModifier rootw ungrabKey dpy '\0' {-AnyKey-} anyModifier rootw
forM_ (M.keys keys) $ \(mask,sym) -> do forM_ (M.keys keys) $ \(mask,sym) -> do
kc <- keysymToKeycode dpy sym kc <- keysymToKeycode dpy sym
mapM_ (grab kc) [mask, mask .|. lockMask] -- note: no numlock mapM_ (grab kc) [mask, mask .|. numlockMask] -- note: no numlock
where where
grab kc m = grabKey dpy kc m rootw True grabModeAsync grabModeAsync grab kc m = grabKey dpy kc m rootw True grabModeAsync grabModeAsync