diff options
Diffstat (limited to 'src/Rahm/Desktop/Submap.hs')
| -rw-r--r-- | src/Rahm/Desktop/Submap.hs | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/src/Rahm/Desktop/Submap.hs b/src/Rahm/Desktop/Submap.hs index 246d85c..46508d7 100644 --- a/src/Rahm/Desktop/Submap.hs +++ b/src/Rahm/Desktop/Submap.hs @@ -68,7 +68,7 @@ import XMonad shiftMask, ungrabKeyboard, ungrabPointer, - (.|.), + (.|.), KeyCode, ) import qualified XMonad.Util.ExtensibleState as XS import XMonad.Util.Loggers (logSp) @@ -121,6 +121,7 @@ data ButtonOrKeyEvent | KeyPress { event_mask :: KeyMask, event_keysym :: KeySym, + event_keycode :: KeyCode, event_string :: String } @@ -149,9 +150,9 @@ nextButtonOrKeyEvent = do KeyEvent {ev_keycode = code, ev_state = m} -> do keysym <- keycodeToKeysym d code 0 (_, str) <- lookupString (asKeyEvent p) - return $ KeyPress m keysym str + return $ KeyPress m keysym code str case ret of - Just (KeyPress m sym str) | isModifierKey sym -> tryAgain + Just (KeyPress m sym _ str) | isModifierKey sym -> tryAgain x -> return x ) ) |