;; Balance Twelve 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 balance-twelve-default
  grv @key0 @key1 3 4 5 6 7 8 @key2 @key3 @key4 @key5 bspc
  tab b y o u @key6 k d c l p q @key7 @key8
  caps h i e a @key9 m t s r n v ret
  lsft x @key10 @key11 @key12 @key13 w g f j z rsft
  lctl lmet lalt spc ralt rmet rctl
)

(defalias
  key0 (fork 1 \ (lsft rsft))  ;; Shift + 1 -> \
  key1 (fork 2 / (lsft rsft))  ;; Shift + 2 -> /
  key2 (fork 9 S-- (lsft rsft))  ;; Shift + 9 -> _
  key3 (fork 0 S-= (lsft rsft))  ;; Shift + 0 -> +
  key4 (fork - S-, (lsft rsft))  ;; Shift + - -> <
  key5 (fork = S-. (lsft rsft))  ;; Shift + = -> >
  key6 (fork ' S-2 (lsft rsft))  ;; Shift + ' -> @
  key7 (fork S-' S-[ (lsft rsft))  ;; Shift + " -> {
  key8 (fork S-\ S-] (lsft rsft))  ;; Shift + | -> }
  key9 (fork , ; (lsft rsft))  ;; Shift + , -> ;
  key10 (fork S-9 [ (lsft rsft))  ;; Shift + ( -> [
  key11 (fork S-0 ] (lsft rsft))  ;; Shift + ) -> ]
  key12 (fork . S-; (lsft rsft))  ;; Shift + . -> :
  key13 (fork S-/ S-1 (lsft rsft))  ;; Shift + ? -> !
)