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 | 8b7697792fdf2124cceb64ae2945098609857346 (patch) | |
tree | 03cfec11bef00067f4cad93580cbca51e48879cc /XMonad/Operations.hs | |
parent | 99120a7f1012b5fa1fe4e9944fffb16686611ef5 (diff) | |
download | metatile-8b7697792fdf2124cceb64ae2945098609857346.tar metatile-8b7697792fdf2124cceb64ae2945098609857346.zip |
Determine numlockMask automatically, fixes #120
Ignore-this: d80c82dd0a23dc7a77fdc32fd2792130
darcs-hash:20091216012140-25a6b-1730d8fef04b735b04475d1772e4825fa44cb318
Diffstat (limited to 'XMonad/Operations.hs')
-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 |