aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorJosh Rahm <rahm@google.com>2023-12-08 16:24:06 -0700
committerJosh Rahm <rahm@google.com>2023-12-08 16:24:06 -0700
commitb389418fb85948477447db07aee13517dc9148c8 (patch)
tree0fec89290d9afb17e6fc811351582fa26f104131 /src
parent8bbc3ce0d0ae10b5e7630779c970f38f0a767789 (diff)
downloadrde-b389418fb85948477447db07aee13517dc9148c8.tar.gz
rde-b389418fb85948477447db07aee13517dc9148c8.tar.bz2
rde-b389418fb85948477447db07aee13517dc9148c8.zip
Fix issue where submapping keys does not work with numlock on
Diffstat (limited to 'src')
-rw-r--r--src/Rahm/Desktop/Submap.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Rahm/Desktop/Submap.hs b/src/Rahm/Desktop/Submap.hs
index d316004..b705a24 100644
--- a/src/Rahm/Desktop/Submap.hs
+++ b/src/Rahm/Desktop/Submap.hs
@@ -130,7 +130,8 @@ mapNextStringWithKeysym fn = do
io $ ungrabKeyboard d currentTime
- (m, str, keysym) <- MaybeT $ return ret
+ (m', str, keysym) <- MaybeT $ return ret
+ m <- lift $ cleanMask m'
fn m keysym str
{- Like submap, but on the character typed rather than the kysym. -}