My kanata config with homerow mod / navigation / programming layers

kanata.kbd

(defcfg
  process-unmapped-keys yes
)

(defsrc
  q w e r t    y u i o p
  a s d f g    h j k l ;
  spc `
)
(defvar
  tap-time 150
  hold-time 200
)

(defalias
  a-lmet (tap-hold $tap-time $hold-time a lmet)
  s-lalt (tap-hold $tap-time $hold-time s lalt)
  d-lctl (tap-hold $tap-time $hold-time d lctl)
  f-lsft (tap-hold $tap-time $hold-time f lsft)
  j-rsft (tap-hold $tap-time $hold-time j rsft)
  k-rctl (tap-hold $tap-time $hold-time k rctl)
  l-ralt (tap-hold $tap-time $hold-time l ralt)
  ;-rmet (tap-hold $tap-time $hold-time ; rmet)

  lp (unicode "(")
  rp (unicode ")")
  lb (unicode "{")
  rb (unicode "}")
  at (unicode "@")
  dollar (unicode "$")
  pcnt (unicode "%")
  hash (unicode "#")
  pow (unicode "^")
  amp (unicode "&")
  asterisk (unicode "*")
  qst (unicode "?")
  excl (unicode "!")

  navi (tap-hold $tap-time $hold-time spc (layer-while-held navigation))
  prog (tap-hold $tap-time $hold-time ` (layer-while-held programming))
)

(deflayer base
  _ _ _ _ _    _ _ _ _ _
  @a-lmet @s-lalt @d-lctl @f-lsft _    _ @j-rsft @k-rctl @l-ralt @;-rmet
  @navi @prog
)

(deflayer navigation
  _ _ bspc del _    pgup home up end pgdn
  @a-lmet @s-lalt @d-lctl @f-lsft ret    _ left down right _
  _ _
)

(deflayer programming
  _ @at @hash @dollar @pcnt    @pow @amp @asterisk / @qst
  @lb [ @lp @rp ]    @rb = - + @excl
  _ _
)