;; Graphite for Kanata
;; Generated by Layouts.Wiki.
;; Run with: kanata --cfg path/to/this-file.kbd

(defsrc
  grv 1 2 3 4 5 6 7 8 9 0 - = bspc
  tab q w e r t y u i o p [ ] \
  caps a s d f g h j k l ; ' ret
  lsft z x c v b n m , . / rsft
  lctl lmet lalt spc ralt rmet rctl
)

(deflayer graphite-default
  grv 1 2 3 4 5 6 7 8 9 0 [ ] bspc
  tab b l d w z @key0 f o u j ; = \
  caps n r t s g y h a e i @key1 ret
  lsft q x m c v k p . @key2 @key3 rsft
  lctl lmet lalt spc ralt rmet rctl
)

(defalias
  key0 (fork ' S-- (lsft rsft))  ;; Shift + ' -> _
  key1 (fork , S-/ (lsft rsft))  ;; Shift + , -> ?
  key2 (fork - S-' (lsft rsft))  ;; Shift + - -> "
  key3 (fork / S-, (lsft rsft))  ;; Shift + / -> <
)