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

Agregar altgr a los tests

Browse source
This commit is contained in:
Cat /dev/Nulo 2021-12-13 16:41:55 -03:00
parent 6fc5ebf7a3
commit 09b85c2c2e
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
test.rkt
View file

@ -22,7 +22,8 @@
(filter symbol? (list (if (positive? (bitwise-and mods 1)) 'ctrl 0) (filter symbol? (list (if (positive? (bitwise-and mods 1)) 'ctrl 0)
(if (positive? (bitwise-and mods 2)) 'shift 0) (if (positive? (bitwise-and mods 2)) 'shift 0)
(if (positive? (bitwise-and mods 4)) 'alt 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) (define (usb-save mods . args)
(set! last-usb-frame (cons (mods-list mods) args))) (set! last-usb-frame (cons (mods-list mods) args)))