Kanata keyboard def

kanata.kbd

(defcfg
    process-unmapped-keys yes
    windows-altgr cancel-lctl-press
)

(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 qwerty
    @cmk 1    2    3    4    5    6    7    8    9    0    -    =    bspc
    tab  q    w    e    r    t    y    u    i    o    p    [    ]    \
    bspc @a   @s   @d   @f   g    h    @j   @k   @l   @;   '    ret
    S-1  z    x    c    v    b    n    m    ,    .    /    S-/
    esc  lmet @nav           spc            @sym rmet rctl
)

(deflayer colemak
    @qwr 1    2    3    4    5    6    7    8    9    0    -    =    bspc
    tab  q    w    f    p    g    j    l    u    y    ;    [    ]    \
    bspc @cma @cmr @cms @cmt d    h    @cmn @cme @cmi @cmo '    ret
    S-1  z    x    c    v    b    k    m    ,    .    /    S-/
    esc  lmet @nav           spc            @sym rmet rctl
)

(deflayer navigation
    _    _    _    _    _    _    _    _    _    _    _    _    _    _
    _    @au  @ad  @cst @ct  nlck ins  home up   end  pgup _    _    _
    _    lmet lalt lctl lsft @cw  del  left down rght pgdn _    _
    @asu @asd @mcl @mcr slck _    _    _    _    _    _    _
    _    _    _              _              _    _    _
)

(deflayer symbol
    _    _    _    _    _    _    _    _    _    _    _    _    _    _
    _    S-1  S-2  S-3  S-4  S-5  S-6  S-7  S-8  S-9  S-0  S-[  S-]  _
    _    @1   @2   @3   @4   5    6    @7   @8   @9   @0   _    _
    [    ]    =    -    grv  \    S-,  S-.  _    _    _    _
    _    _    _              _              _    _    _
)

(defvar
    tap-timeout  200
    hold-timeout 200
    tt $tap-timeout
    ht $hold-timeout
)

(defalias
    ct  C-tab
    cst C-S-tab
    au  A-up
    asu A-S-up
    ad  A-down
    asd A-S-down
    mcr M-C-rght
    mcl M-C-left
)

(defalias
    qwr (layer-switch qwerty)
    cmk (layer-switch colemak)
    nav (layer-while-held navigation)
    sym (layer-while-held symbol)

    a (tap-hold-release $tt $ht a lmet)
    s (tap-hold-release $tt $ht s lalt)
    d (tap-hold-release $tt $ht d lctl)
    f (tap-hold-release $tt $ht f lsft)

    j (tap-hold-release $tt $ht j rsft)
    k (tap-hold-release $tt $ht k rctl)
    l (tap-hold-release $tt $ht l ralt)
    ; (tap-hold-release $tt $ht ; rmet)

    cma (tap-hold-release $tt $ht a lmet)
    cmr (tap-hold-release $tt $ht r lalt)
    cms (tap-hold-release $tt $ht s lctl)
    cmt (tap-hold-release $tt $ht t lsft)

    cmn (tap-hold-release $tt $ht n rsft)
    cme (tap-hold-release $tt $ht e rctl)
    cmi (tap-hold-release $tt $ht i ralt)
    cmo (tap-hold-release $tt $ht o rmet)

    1 (tap-hold-release $tt $ht 1 lmet)
    2 (tap-hold-release $tt $ht 2 lalt)
    3 (tap-hold-release $tt $ht 3 lctl)
    4 (tap-hold-release $tt $ht 4 lsft)

    7 (tap-hold-release $tt $ht 7 rsft)
    8 (tap-hold-release $tt $ht 8 rctl)
    9 (tap-hold-release $tt $ht 9 ralt)
    0 (tap-hold-release $tt $ht 0 rmet)

    cw (caps-word 2000)
)