Nulo/menelaus
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Allow for sticky keys to be used with combo keys

Browse source
This commit is contained in:
Cat /dev/Nulo 2021-12-13 19:30:56 -03:00
parent 34de0948da
commit 9cbb053d50
1 changed files with 19 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

30
menelaus.scm
View file

@ -275,10 +275,8 @@
(and slot (vector-set! keycodes-down slot keycode))
(and slot (vector-set! keys-for-frame slot key))))
;; Record a key press in the modifiers/keycodes-down vectors for the layout.
(define (press-key key)
(let ((keycode (lookup key))
(sticky (find sticky-modifiers 1)))
(define (press-key-aux keycode key)
(let ((original-keycode (lookup key)))
;; Sometimes "keycodes" are procedures; in that case we call them with
;; true when the key is pressed and false when it's released.
(if (procedure? keycode)
@ -289,13 +287,21 @@
(press-sticky-modifier (unmodify keycode))
(begin
(press-modifier (unmodify keycode) key)
(press-normal-key (uncombo keycode) key)))
(press-key-aux (uncombo keycode) key)))
(press-modifier (unmodify keycode) key))
(if sticky
(begin (press-modifier (+ sticky 1) key)
(press-normal-key keycode key)
(release-sticky-modifier (+ sticky 1)))
(press-normal-key keycode key))))))
(let ((sticky (find sticky-modifiers 1)))
(if sticky
(begin
(press-modifier (+ sticky 1) key)
(release-sticky-modifier (+ sticky 1)))
#f)
(press-normal-key keycode key))))))
;; Record a key press in the modifiers/keycodes-down vectors for the layout.
(define (press-key key)
(let ((keycode (lookup key)))
(press-key-aux keycode key)))
;; Record that a given key being released resulted in a modifier release.
(define (release-modifier keycode key n)
@ -321,7 +327,9 @@
(vector-set! keys-for-frame slot #f))
#f)
(if modifier-slot
(release-modifier modifier-slot key 0)
(begin
(release-modifier modifier-slot key 0)
(release-key key))
#f)))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Send USB