Agregar altgr a los tests
This commit is contained in:
parent
6fc5ebf7a3
commit
09b85c2c2e
1 changed files with 2 additions and 1 deletions
3
test.rkt
3
test.rkt
|
@ -22,7 +22,8 @@
|
|||
(filter symbol? (list (if (positive? (bitwise-and mods 1)) 'ctrl 0)
|
||||
(if (positive? (bitwise-and mods 2)) 'shift 0)
|
||||
(if (positive? (bitwise-and mods 4)) 'alt 0)
|
||||
(if (positive? (bitwise-and mods 8)) 'super 0))))
|
||||
(if (positive? (bitwise-and mods 8)) 'super 0)
|
||||
(if (positive? (bitwise-and mods 64)) altgr 0))))
|
||||
|
||||
(define (usb-save mods . args)
|
||||
(set! last-usb-frame (cons (mods-list mods) args)))
|
||||
|
|
Loading…
Reference in a new issue