Agregar altgr a los tests

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

View File

@ -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)))