diff options
author | Spencer Janssen <spencerjanssen@gmail.com> | 2009-12-16 02:21:40 +0100 |
---|---|---|
committer | Spencer Janssen <spencerjanssen@gmail.com> | 2009-12-16 02:21:40 +0100 |
commit | dc9cb084dce3fda08af96ac3d098020b974e7b56 (patch) | |
tree | 03cfec11bef00067f4cad93580cbca51e48879cc /XMonad/Operations.hs | |
parent | 69d94aaeb7720aa6216bb2d878d509abdcb1fe32 (diff) | |
download | xmonad-dc9cb084dce3fda08af96ac3d098020b974e7b56.tar.gz xmonad-dc9cb084dce3fda08af96ac3d098020b974e7b56.tar.xz xmonad-dc9cb084dce3fda08af96ac3d098020b974e7b56.zip |
Determine numlockMask automatically, fixes #120
Ignore-this: d80c82dd0a23dc7a77fdc32fd2792130
darcs-hash:20091216012140-25a6b-1730d8fef04b735b04475d1772e4825fa44cb318.gz
Diffstat (limited to '')
-rw-r--r-- | XMonad/Operations.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/XMonad/Operations.hs b/XMonad/Operations.hs index 9a71872..d96ff1a 100644 --- a/XMonad/Operations.hs +++ b/XMonad/Operations.hs @@ -389,13 +389,13 @@ isClient w = withWindowSet $ return . W.member w -- (numlock and capslock) extraModifiers :: X [KeyMask] extraModifiers = do - nlm <- asks (numlockMask . config) + nlm <- gets numlockMask return [0, nlm, lockMask, nlm .|. lockMask ] -- | Strip numlock\/capslock from a mask cleanMask :: KeyMask -> X KeyMask cleanMask km = do - nlm <- asks (numlockMask . config) + nlm <- gets numlockMask return (complement (nlm .|. lockMask) .&. km) -- | Get the 'Pixel' value for a named color |