aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad
diff options
context:
space:
mode:
authorJustin Bogner <mail@justinbogner.com>2008-06-08 19:20:57 +0200
committerJustin Bogner <mail@justinbogner.com>2008-06-08 19:20:57 +0200
commit87a6376dd1cc1abcf1e63e33b9835ad85d0f5921 (patch)
tree7ef85b6ddae0c2ced3b51a8ab3e12c2eca13cbbc /XMonad
parentd6ee5b642499de9b85cfdd3ef530987a61df9a7d (diff)
downloadXMonadContrib-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 'XMonad')
-rw-r--r--XMonad/Prompt.hs3
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