minimal.clj

;; file name should be minimal.kbd
;; the .clj ext in the gist is only used to get lisp syntax highlighting

(defcfg)

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

(deflayer qwerty
  ;; mods
  @escape-reload
  _
  @caps-control
  _ _ _ _ _ _
  ;; numbers
  _ _ _ _ _ _ _ _ _ _
  ;; symbols
  _ _ _ _ _ _ _ _ _ _
  ;; top row
  _ _ _ _ _ _ _ _ _ _
  ;; middle row
  _ _ _
  @navigation-layer ;; f
  _ _
  (chord esc j) ;; j
  (chord esc k) ;; k
  _
  ;; bottom row
  (chord ccp z) ;; z
  (chord ccp x) ;; x
  (chord ccp c) ;; c
  (chord ccp v) ;; v
  _ _ _
)

(deflayer editor
  ;; mods
  @escape-reload
  _
  @caps-control
  _ _ _ _ _ _
  ;; numbers
  _ _ _ _ _ _ _ _ _ _
  ;; symbols
  _ _ _ _ _ _ _ _ _ _
  ;; top row
  _ _ _ _ _ _ _ _ _ _
  ;; middle row
  _ _ _
  @navigation-layer ;; f
  _ _
  (chord esc j) ;; j
  (chord esc k) ;; k
  _
  ;; bottom row
  _ _ _ _ _ _ _
)

(deflayer navigation-layer
  ;; mods
  @escape-reload
  _
  @caps-control
  _ _ _ _ _
  f6 ;; rsft
  ;; numbers
  _ _ _ _ _ _ _ _ _ _
  ;; symbols
  _ _ _ _ _ _ _ _ _ _
  ;; top row
  _ _
  end ;; e
  _ _ _
  bspc ;; u
  del ;; i
  _ _
  ;; middle row
  home ;; a
  _
  @navigation-ext-layer ;; d
  _ _
  left ;; h
  (chord ret j) ;; j
  (chord ret k) ;; k
  rght ;; l
  ;; bottom row
  _ _ _ _ _ _ _
)

(deflayer navigation-ext-layer
  ;; mods
  @escape-reload
  _
  @caps-control
  _ _ _ _ _
  f6 ;; rsft
  ;; numbers
  _ _ _ _ _ _ _ _ _ _
  ;; symbols
  _ _ _ _ _ _ _ _ _ _
  ;; top row
  _ _ _ _ _ _
  C-bspc ;; u
  C-del ;; i
  _ _
  ;; middle row
  _
  lsft ;; s
  _ _ _
  left ;; h
  C-left ;; j
  C-rght ;; k
  rght ;; l
  ;; bottom row
  _ _ _ _ _ _ _
)

(defalias
  ;; double tab esc to live reload configuration
  escape-reload (tap-dance 200 (esc lrld))

  ;; tap caps-lock for esc, hold for ctrl
  caps-control (tap-hold-press 200 200 esc lctl)

  ;; tap for f, hold for navigation layer
  navigation-layer (tap-hold 50 200 f (layer-toggle navigation-layer))
  ;; tap for d, hold for navigation ext layer
  navigation-ext-layer (tap-hold 50 200 d (layer-toggle navigation-ext-layer))
)

(defchords ccp 100
  (z) z ;; z alone is z
  (x) x ;; x alone is x
  (c) c ;; c alone is c
  (v) v ;; v alone is v

  (z x) C-x ;; z+x at the same time is cut
  (x c) C-c ;; x+c at the same time is copy
  (c v) C-v ;; c+v at the same time is paste
)

(defchords esc 100
  (j) j ;; j alone is j
  (k) k ;; k alone is k

  (j k) esc ;; j+k at the same time is esc
)

(defchords ret 100
  (j) down ;; j alone is down
  (k) up ;; k alone is up

  (j k) ret ;; j+k at the same time is ret
)