dan/dunlin
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

ignore num lock state when recognising keys

Browse Source
This commit is contained in:
Daniel Barlow 2024-09-10 14:17:55 +01:00
parent a5a65006ca
commit 3dd0d3f11c
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
keymap.fnl
View File

@ -19,6 +19,7 @@
:Super_R ; menu key? not on my keyboard :Super_R ; menu key? not on my keyboard
:Alt_L :Alt_L
:Alt_R :Alt_R
:Num_Lock
:ISO_Level3_Shift ; AltGr :ISO_Level3_Shift ; AltGr
]] ]]
(collect [_ n (ipairs names)] (collect [_ n (ipairs names)]
@ -27,6 +28,10 @@
(fn modifier? [keyval] (fn modifier? [keyval]
(. modifier-keyvals keyval)) (. modifier-keyvals keyval))
(fn ignored-modifier? [mod]
(= mod :MOD2_MASK) ; numlock
)
(fn keychord->spec [keychord] (fn keychord->spec [keychord]
(let [Mod Gdk.ModifierType (let [Mod Gdk.ModifierType
symbol (keychord:match "(%w+)$") symbol (keychord:match "(%w+)$")
@ -49,7 +54,9 @@
(let [modmask (let [modmask
(accumulate [m 0 (accumulate [m 0
k _ (pairs event.state)] k _ (pairs event.state)]
(bor m (. Gdk.ModifierType k)))] (if (ignored-modifier? k)
m
(bor m (. Gdk.ModifierType (trace k)))))]
(spec->index {:keyval event.keyval : modmask}))) (spec->index {:keyval event.keyval : modmask})))
(fn compact [xs] (fn compact [xs]