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

Mi teclado & mi layout

Browse source
This commit is contained in:
Cat /dev/Nulo 2021-12-02 15:22:30 -03:00
parent 9b59db6754
commit b73825843c
3 changed files with 37 additions and 33 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
keycodes.scm
View file

@ -103,8 +103,10 @@
(define mod-shift (modify 2)) (define mod-shift (modify 2))
(define mod-alt (modify 3)) (define mod-alt (modify 3))
(define mod-super (modify 4)) (define mod-super (modify 4))
(define mod-altgr (modify 5))
(define (sft keycode) (combo mod-shift keycode)) ; shorthand (define (sft keycode) (combo mod-shift keycode)) ; shorthand
(define (altgr keycode) (combo mod-altgr keycode)) ; shorthand
;; Enter the bootloader in preparation for flashing. ;; Enter the bootloader in preparation for flashing.
(define (reset _) (call-c-func "reset")) (define (reset _) (call-c-func "reset"))

8
menelaus.scm
View file

@ -245,12 +245,12 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Vectors to store keycodes for the USB frame we are preparing to send. ;; Vectors to store keycodes for the USB frame we are preparing to send.
(define modifiers (vector 0 0 0 0)) (define modifiers (vector 0 0 0 0 0))
(define keycodes-down (vector 0 0 0 0 0 0)) (define keycodes-down (vector 0 0 0 0 0 0))
;; For each element of the keycodes-down or modifiers vector, which physical ;; For each element of the keycodes-down or modifiers vector, which physical
;; key caused it to be pressed? ;; key caused it to be pressed?
(define keys-for-modifiers (vector #f #f #f #f)) (define keys-for-modifiers (vector #f #f #f #f #f))
(define keys-for-frame (vector #f #f #f #f #f #f)) (define keys-for-frame (vector #f #f #f #f #f #f))
;; Given a physical key index, what keycode does it map to in the layout? ;; Given a physical key index, what keycode does it map to in the layout?
@ -289,7 +289,7 @@
(begin (begin
(vector-set! modifiers n 0) (vector-set! modifiers n 0)
(vector-set! keys-for-modifiers n #f)) (vector-set! keys-for-modifiers n #f))
(and (< n 3) (release-modifier keycode key (+ n 1))))) (and (< n 4) (release-modifier keycode key (+ n 1)))))
;; Record a key release, clearing it out of the press tracking data. ;; Record a key release, clearing it out of the press tracking data.
(define (release-key key) (define (release-key key)
@ -329,7 +329,7 @@
;; Actually send the USB frame. ;; Actually send the USB frame.
(define (usb-send m k0 k1 k2 k3 k4 k5) (define (usb-send m k0 k1 k2 k3 k4 k5)
(let ((mods (+ (vector-ref m 0) (* (vector-ref m 1) 2)))) ; + isn't variadic (let ((mods (+ (vector-ref m 0) (* (vector-ref m 1) 2)))) ; + isn't variadic
(let ((mods (+ mods (+ (* (vector-ref m 2) 4) (* (vector-ref m 3) 8))))) (let ((mods (+ mods (+ (+ (* (vector-ref m 2) 4) (* (vector-ref m 3) 8)) (* (vector-ref m 4) 64)))))
;; call-c-func is a special form and cannot be applied ;; call-c-func is a special form and cannot be applied
(call-c-func "usb_send" mods k0 k1 k2 k3 k4 k5)))) (call-c-func "usb_send" mods k0 k1 k2 k3 k4 k5))))

60
qwerty.scm
View file

@ -4,13 +4,15 @@
;; What are the rows and columns we care about? ;; What are the rows and columns we care about?
(define rows (list 0 1 2 3)) (define rows (list 0 1 2 3))
(define columns (list 0 1 2 3 4 5 6 7 8 9 10)) (define columns (list 0 1 2 3 4 5 6 7 8 9 10 11))
;; Which GPIO pins are responsible for each row or column? ;; Which GPIO pins are responsible for each row or column?
;; These are the pins used by the kit-based Atreus; the Keyboardio Atreus uses ;; These are the pins used by the kit-based Atreus; the Keyboardio Atreus uses
;; a different set of pins. ;; a different set of pins.
(define row-pins (vector 3 2 1 0)) (define row-pins (vector 5 9 16 10))
(define column-pins (vector 6 5 9 8 7 4 10 19 18 12 11)) ; +#define MATRIX_ROW_PINS { C6, B5, B2, B6 }
(define column-pins (vector 21 19 20 18 15 7 6 4 3 2 0 1))
; +#define MATRIX_COL_PINS { F4, F6, F5, F7, B1, E6, D7, D4, D0, D1, D2, D3 }
;; If you have a kit where the PCB is installed upside-down, uncomment this: ;; If you have a kit where the PCB is installed upside-down, uncomment this:
;; (set! column-pins (vector 11 12 18 19 10 4 7 8 9 5 6)) ;; (set! column-pins (vector 11 12 18 19 10 4 7 8 9 5 6))
@ -36,53 +38,53 @@
;; On the Atreus Classic, we need to expose backtick on the fn layer, but on ;; On the Atreus Classic, we need to expose backtick on the fn layer, but on
;; the Keyboardio Atreus it has its own key, so we put percent there instead. ;; the Keyboardio Atreus it has its own key, so we put percent there instead.
(define backtick-or-percent (define backtick-or-percent
;; (sft key-5) (sft key-5)
key-backtick) ;;key-backtick
)
;;;; layers ;;;; layers
(define noop 0)
(define base-layer (define base-layer
(vector key-q key-w key-e key-r key-t key-backslash (vector key-q key-w key-e key-r key-t noop noop key-y key-u key-i key-o key-p
key-y key-u key-i key-o key-p
key-a key-s key-d key-f key-g key-backtick key-a key-s key-d key-f key-g noop noop key-h key-j key-k key-l key-semicolon
key-h key-j key-k key-l key-semicolon
key-z key-x key-c key-v key-b mod-ctrl key-z key-x key-c key-v key-b key-backtick key-backslash key-n key-m key-comma key-period key-slash
key-n key-m key-comma key-period key-slash
key-esc key-tab mod-super mod-shift key-backspace mod-alt key-esc key-tab mod-super mod-shift key-backspace mod-ctrl
key-space fn key-dash key-quote key-enter)) mod-alt key-space fn key-dash key-quote key-enter))
(define fn-layer (define fn-layer
(vector (sft key-1) (sft key-2) key-up (sft key-4) backtick-or-percent (vector (sft key-1) (sft key-2) key-up (sft key-4) backtick-or-percent noop
(sft key-6) key-page-up key-7 key-8 key-9 key-backspace noop key-page-up key-7 key-8 key-9 key-backspace
(sft key-9) key-left key-down key-right (sft key-0) (sft key-7) (sft key-9) key-left key-down key-right (sft key-0) noop
key-page-down key-4 key-5 key-6 key-backslash noop key-page-down key-4 key-5 key-6 (altgr key-quote)
key-left-bracket key-right-bracket (sft key-3) (sft key-left-bracket) key-left-bracket key-right-bracket (sft key-3) (sft key-left-bracket)
(sft key-right-bracket) mod-ctrl (sft key-right-bracket) (sft key-6)
(sft key-8) key-1 key-2 key-3 (sft key-equal) (sft key-7) (sft key-8) key-1 key-2 key-3 (sft key-equal)
;; set-layer 2 takes us to l2-layer below; doesn't need to be held ;; set-layer 2 takes us to l2-layer below; doesn't need to be held
(set-layer 2) key-insert mod-super mod-shift key-backspace mod-alt (set-layer 2) key-insert mod-super mod-shift key-backspace mod-ctrl
key-space fn key-period key-0 key-equal)) mod-alt key-space fn key-period key-0 key-equal))
(define l2-layer (define l2-layer
(vector key-insert key-home key-up key-end key-page-up 0 (vector key-insert key-home key-up key-end key-page-up noop
key-up key-f7 key-f8 key-f9 key-f10 noop key-up key-f7 key-f8 key-f9 key-f10
key-delete key-left key-down key-right key-page-down 0 key-delete key-left key-down key-right key-page-down noop
key-down key-f4 key-f5 key-f6 key-f11 noop key-down key-f4 key-f5 key-f6 key-f11
;; the B key enters the bootloader ;; the B key enters the bootloader
0 key-vol-up 0 0 reset mod-ctrl noop key-vol-up noop noop reset noop
0 key-f1 key-f2 key-f3 key-f12 noop noop key-f1 key-f2 key-f3 key-f12
0 key-vol-down mod-super mod-shift key-backspace mod-alt noop key-vol-down mod-super mod-shift key-backspace mod-ctrl
;; tapping the fn key brings us back to the base layer ;; tapping the fn key brings us back to the base layer
key-space (set-layer 0) key-printscreen key-scroll-lock key-pause)) mod-alt key-space (set-layer 0) key-printscreen key-scroll-lock key-pause))
(set! layers (vector base-layer fn-layer l2-layer)) (set! layers (vector base-layer fn-layer l2-layer))
(set! current-layer (vector-ref layers 0)) (set! current-layer (vector-ref layers 0))