;; Hands Down™ Neu (ANSI) 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 hands-down-neu-ansi
  grv 1 2 3 4 5 6 7 @8 @9 @0 @= @S-- bspc
  tab w f m p v z @. @/ @S-' @' q @S-9 @S-0
  caps r s n t g @, a e i h j ret
  lsft x c l d b @- u o y k rsft
  lctl lmet lalt spc ralt rmet rctl
)

(defalias
  8 (fork 8 S-\ (lsft rsft))  ;; Shift + 8 -> |
  9 (fork 9 \ (lsft rsft))  ;; Shift + 9 -> \
  0 (fork 0 S-/ (lsft rsft))  ;; Shift + 0 -> ?
  = (fork = S-, (lsft rsft))  ;; Shift + = -> <
  S-- (fork S-- S-. (lsft rsft))  ;; Shift + _ -> >
  . (fork . S-; (lsft rsft))  ;; Shift + . -> :
  / (fork / S-8 (lsft rsft))  ;; Shift + / -> *
  S-' (fork S-' [ (lsft rsft))  ;; Shift + " -> [
  ' (fork ' ] (lsft rsft))  ;; Shift + ' -> ]
  S-9 (fork S-9 S-[ (lsft rsft))  ;; Shift + ( -> {
  S-0 (fork S-0 S-] (lsft rsft))  ;; Shift + ) -> }
  , (fork , ; (lsft rsft))  ;; Shift + , -> ;
  - (fork - S-= (lsft rsft))  ;; Shift + - -> +
)