diff options
| author | Justin Bogner <mail@justinbogner.com> | 2008-06-08 19:20:57 +0200 |
|---|---|---|
| committer | Justin Bogner <mail@justinbogner.com> | 2008-06-08 19:20:57 +0200 |
| commit | 87a6376dd1cc1abcf1e63e33b9835ad85d0f5921 (patch) | |
| tree | 7ef85b6ddae0c2ced3b51a8ab3e12c2eca13cbbc | |
| parent | d6ee5b642499de9b85cfdd3ef530987a61df9a7d (diff) | |
| download | XMonadContrib-87a6376dd1cc1abcf1e63e33b9835ad85d0f5921.tar.gz XMonadContrib-87a6376dd1cc1abcf1e63e33b9835ad85d0f5921.tar.xz XMonadContrib-87a6376dd1cc1abcf1e63e33b9835ad85d0f5921.zip | |
Make prompt keybindings work when numLock or capsLock are active
darcs-hash:20080608172057-18f27-f5b94a80e3571bb62a0d64372fb145e628191af0.gz
Diffstat (limited to '')
| -rw-r--r-- | XMonad/Prompt.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/XMonad/Prompt.hs b/XMonad/Prompt.hs index c8664b4..951dc94 100644 --- a/XMonad/Prompt.hs +++ b/XMonad/Prompt.hs @@ -56,6 +56,7 @@ import Control.Monad.Reader import Control.Monad.State import Control.Applicative ((<$>)) import Data.Char +import Data.Bits ((.&.)) import Data.Maybe import Data.List import Data.Set (fromList, toList) @@ -309,7 +310,7 @@ data Direction = Prev | Next deriving (Eq,Show,Read) keyPressHandle :: KeyMask -> KeyStroke -> XP () -- commands: ctrl + ... todo keyPressHandle mask (ks,_) - | mask == controlMask = + | (mask .&. controlMask) > 0 = -- control sequences case () of _ | ks == xK_u -> killBefore >> go |