kanata-win/kinesis.kbd

#|
   Basically the same as my normal laptop config but tailored
   for Kinesis Advantage 2 thumb cluster.
|#

(defcfg
    process-unmapped-keys yes
    block-unmapped-keys yes
    concurrent-tap-hold yes
    movemouse-smooth-diagonals yes
)

(defsrc
    esc caps tab ret bspc
    q w e r t y u i o p
    a s d f g h j k l scln
    z x c v b n m , . /
    lctl lmet lalt spc ralt rmet rctl
    left right up down
)

(defvar
    tap-time 200
    hold-time 250
    chord-time 50
)

(defalias
    normie (layer-switch norm)
    chw    (chord ch w)
    che    (chord ch e)
    chi    (chord ch i)
    cho    (chord ch o)
    chs    (chord ch s)
    chd    (chord ch d)
    chf    (chord ch f)
    chj    (chord ch j)
    chk    (chord ch k)
    chl    (chord ch l)
    ch_lalt    (chord ch lalt)
    ch_ralt    (chord ch ralt)
    hyper (multi lmet lsft lctl lalt)
    meh (multi lsft lctl lalt)
    vilayer (layer-while-held vim)
    navlayer (layer-while-held nav)
    esc   (tap-hold $tap-time $hold-time (tap-dance 200 ((multi lctl spc) @meh caps)) @navlayer)  
    caps @esc
    tab    (tap-hold $tap-time $hold-time tab @vilayer)
    ret    (tap-hold $tap-time $hold-time ret @navlayer)
    a      (tap-hold $tap-time $hold-time a    lmet)
    s      (tap-hold $tap-time $hold-time s    lalt)
    d      (tap-hold $tap-time $hold-time d    lctl)
    f      (tap-hold $tap-time $hold-time f    lsft)
    j      (tap-hold $tap-time $hold-time j    rsft)
    k      (tap-hold $tap-time $hold-time k    lctl)
    l      (tap-hold $tap-time $hold-time l    lalt)
    scln   (tap-hold $tap-time $hold-time scln rmet)
    numpad (layer-while-held num)
    g      (tap-hold $tap-time $hold-time g @numpad) 
    fnkeys (layer-while-held fn)
    h      (tap-hold $tap-time $hold-time h @fnkeys)

    v	 (tap-hold $tap-time $hold-time v @meh)
    m	 (tap-hold $tap-time $hold-time m @meh)
    symbols (layer-while-held symbol)
    spc    (tap-hold $tap-time $hold-time spc @symbols) 
    bspc   (tap-hold $tap-time $hold-time bspc @symbols)
    medialy (layer-while-held md)
    z    (tap-hold $tap-time $hold-time z @medialy)
    /    (tap-hold $tap-time $hold-time / @medialy)
)

(defchords ch $chord-time
    (w   ) w
    (   e) e
    (w  e) @hyper
    (i   ) i
    (   o) o
    (i  o) @hyper
    (s   ) @s
    (   d) @d
    (s  d) enter
    (f   ) @f
    (f  d) tab
    (j  k) esc
    (j   ) @j
    (k   ) @k
    (   l) @l
    (k  l) bspc
    (lalt   ) (tap-dance $tap-time (@hyper lalt))
    (   ralt) (tap-dance $tap-time (@hyper ralt))
    (lalt ralt) (tap-hold $tap-time $hold-time @normie (layer-switch base))
)

(deflayer base
    @esc @caps @tab @ret @bspc
    q @chw @che r t y u @chi @cho p
    @a @chs @chd @chf @g @h @chj @chk @chl @scln
    @z x c @v b n @m , . @/
    lctl lmet @ch_lalt @spc @ch_ralt rmet rctl
    left right up down
)

(deflayer nav
    _ _ _ _ _
    _ mbck (movemouse-up 3 2) mfwd _ _ _ _ _ _ 
    _ (movemouse-left 3 2) (movemouse-down 3 2) (movemouse-right 3 2) _ _ mlft mrgt (mwheel-up 50 120) (mwheel-down 50 120) 
    _ _ _ _ _ _ _ _ _ _
    _ _ _ _ _ _ _
    _ _ _ _
)

(deflayer vim
  _ _ _ _ _
  _ _ _ _ _ _ _ pgup pgdn _
  _ _ _ _ home left down up right end
  _ _ _ _ _ _ _ _ _ _
  _ _ _ _ _ _ _
  _ _ _ _
)

(deflayer num
    _ _ _ _ _
    _ _ _ _ _ _ 7 8 9 _
    _ _ _ _ _ _ 4 5 6 0 _
    _ _ _ _ _ 1 2 3 _
    _ _ _ _ _ _ _
    _ _ _ _
)

(deflayer fn
    _ _ _ _ _
    f1 f2 f3 f4 _ _ _ _ _ _
    f5 f6 f7 f8 _ _ _ _ _ _ _
    f9 f10 f11 f12 _ _ _ _ _
    _ _ _ _ _ _ _
    _ _ _ _
)

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

(deflayer norm
    esc caps tab ret bspc
    q w e r t y u i o p
    a s d f g h j k l scln
    z x c v b n m , . /
    lctl lmet @ch_lalt spc @ch_ralt rmet rctl
    _ _ _ _
)

(deflayer md
    _ _ _ _ _
    _ _ _ _ _ _ _ _ _ _
    prev pp next mute ins del vold volu brdn brup
    _ _ _ _ _ _ _ _ _ _
    _ _ _ _ _ _ _
    _ _ _ _
)