diff options
| author | Daniel Schoepe <daniel.schoepe@gmail.com> | 2009-10-12 15:28:14 +0200 |
|---|---|---|
| committer | Daniel Schoepe <daniel.schoepe@gmail.com> | 2009-10-12 15:28:14 +0200 |
| commit | ad71439ad03d4df3225be98bac74c3444953029e (patch) | |
| tree | 0fd8c4e52a84192f13ebde3bf13509beeb31305a /XMonad | |
| parent | 0eaa6108159e8ad7854da3684a7a0cc3f8e562ba (diff) | |
| download | XMonadContrib-ad71439ad03d4df3225be98bac74c3444953029e.tar.gz XMonadContrib-ad71439ad03d4df3225be98bac74c3444953029e.tar.xz XMonadContrib-ad71439ad03d4df3225be98bac74c3444953029e.zip | |
Filter extra modifier bits some layouts set in XMonad.Prompt
Ignore-this: c0898809766061700c11f6da84c74bed
darcs-hash:20091012132814-7f603-d02f321d42581906738c70da50b2acb9c04b1cad.gz
Diffstat (limited to 'XMonad')
| -rw-r--r-- | XMonad/Prompt.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/XMonad/Prompt.hs b/XMonad/Prompt.hs index 5edfcad..6abb4d0 100644 --- a/XMonad/Prompt.hs +++ b/XMonad/Prompt.hs @@ -75,7 +75,7 @@ import Control.Monad.Reader import Control.Monad.State import Control.Applicative ((<$>)) import Data.Char -import Data.Bits ((.&.),complement) +import Data.Bits import Data.Maybe import Data.List import Data.Set (fromList, toList) @@ -335,7 +335,8 @@ eventLoop action = do cleanMask :: KeyMask -> XP KeyMask cleanMask msk = do numlock <- gets numlockMask - return (complement (numlock .|. lockMask) .&. msk) + let highMasks = 1 `shiftL` 12 - 1 + return (complement (numlock .|. lockMask) .&. msk .&. highMasks) -- Main event handler handle :: KeyStroke -> Event -> XP () |