twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-05-19 11:30:22 -07:00
Code Issues Packages Projects Releases Wiki Activity

Make prompt keybindings work when numLock or capsLock are active

Browse Source
This commit is contained in:
Justin Bogner 2008-06-08 17:20:57 +00:00
parent 244c75bee7
commit f736a57bf0
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
XMonad/Prompt.hs
View File

@ -56,6 +56,7 @@ import Control.Monad.Reader
import Control.Monad.State import Control.Monad.State
import Control.Applicative ((<$>)) import Control.Applicative ((<$>))
import Data.Char import Data.Char
import Data.Bits ((.&.))
import Data.Maybe import Data.Maybe
import Data.List import Data.List
import Data.Set (fromList, toList) import Data.Set (fromList, toList)
@ -309,7 +310,7 @@ data Direction = Prev | Next deriving (Eq,Show,Read)
keyPressHandle :: KeyMask -> KeyStroke -> XP () keyPressHandle :: KeyMask -> KeyStroke -> XP ()
-- commands: ctrl + ... todo -- commands: ctrl + ... todo
keyPressHandle mask (ks,_) keyPressHandle mask (ks,_)
| mask == controlMask = | (mask .&. controlMask) > 0 =
-- control sequences -- control sequences
case () of case () of
_ | ks == xK_u -> killBefore >> go _ | ks == xK_u -> killBefore >> go