423 lines
10 KiB
Text
423 lines
10 KiB
Text
;; Artsey v0.8.1 for Kanata
|
|
|
|
(defcfg
|
|
sequence-timeout 2000
|
|
process-unmapped-keys no
|
|
concurrent-tap-hold yes
|
|
movemouse-inherit-accel-state yes
|
|
movemouse-smooth-diagonals yes
|
|
)
|
|
|
|
(defvar
|
|
chord-timeout 250
|
|
tap-repress-timeout 200
|
|
hold-timeout 500
|
|
leader-timeout 1000
|
|
|
|
mouse-interval 1
|
|
mouse-accel-time 500
|
|
mouse-min 1
|
|
mouse-max 4
|
|
wheel-interval 50
|
|
wheel-distance 120
|
|
)
|
|
|
|
(defsrc
|
|
q w e r u i o p
|
|
a s d f j k l ;
|
|
)
|
|
|
|
;; Layers
|
|
|
|
(deflayer base
|
|
@s-base @t-base @r-base @a-base @base-a @base-r @base-t @base-s
|
|
@o-base @i-base @y-base @e-base @base-e @base-y @base-i @base-o
|
|
)
|
|
|
|
(deflayer numbers
|
|
@s-num @t-num @r-num @a-num @num-a @num-r @num-t @num-s
|
|
@o-num @i-num @y-num @e-num @num-e @num-y @num-i @num-o
|
|
)
|
|
|
|
(deflayer parens
|
|
@s-par @t-par @r-par @a-par @par-a @par-r @par-t @par-s
|
|
@o-par @i-par @y-par @e-par @par-e @par-y @par-i @par-o
|
|
)
|
|
|
|
(deflayer symbols
|
|
@s-sym @t-sym @r-sym @a-sym @sym-a @sym-r @sym-t @sym-s
|
|
@o-sym @i-sym @y-sym @e-sym @sym-e @sym-y @sym-i @sym-o
|
|
)
|
|
|
|
(deflayer nav
|
|
@s-nav @t-nav @r-nav @a-nav @nav-a @nav-r @nav-t @nav-s
|
|
@o-nav @i-nav @y-nav @e-nav @nav-e @nav-y @nav-i @nav-o
|
|
)
|
|
|
|
(deflayer mouse
|
|
@s-mse @t-mse @r-mse @a-mse @mse-a @mse-r @mse-t @mse-s
|
|
@o-mse @i-mse @y-mse @e-mse @mse-e @mse-y @mse-i @mse-o
|
|
)
|
|
|
|
(deflayer custom
|
|
@s-cus @t-cus @r-cus @a-cus @cus-a @cus-r @cus-t @cus-s
|
|
@o-cus @i-cus @y-cus @e-cus @cus-e @cus-y @cus-i @cus-o
|
|
)
|
|
|
|
;; Keys
|
|
|
|
(deftemplate key (layer key left-combos right-combos)
|
|
(defalias
|
|
(concat $key - $layer) (chord $left-combos $key)
|
|
(concat $layer - $key) (chord $right-combos $key)
|
|
)
|
|
)
|
|
|
|
(t! key base a left-base-combos right-base-combos)
|
|
(t! key base r left-base-combos right-base-combos)
|
|
(t! key base t left-base-combos right-base-combos)
|
|
(t! key base s left-base-combos right-base-combos)
|
|
(t! key base e left-base-combos right-base-combos)
|
|
(t! key base y left-base-combos right-base-combos)
|
|
(t! key base i left-base-combos right-base-combos)
|
|
(t! key base o left-base-combos right-base-combos)
|
|
|
|
(t! key num a left-num-combos right-num-combos)
|
|
(t! key num r left-num-combos right-num-combos)
|
|
(t! key num t left-num-combos right-num-combos)
|
|
(t! key num s left-num-combos right-num-combos)
|
|
(t! key num e left-num-combos right-num-combos)
|
|
(t! key num y left-num-combos right-num-combos)
|
|
(t! key num i left-num-combos right-num-combos)
|
|
(t! key num o left-num-combos right-num-combos)
|
|
|
|
(t! key par a left-par-combos right-par-combos)
|
|
(t! key par r left-par-combos right-par-combos)
|
|
(t! key par t left-par-combos right-par-combos)
|
|
(t! key par s left-par-combos right-par-combos)
|
|
(t! key par e left-par-combos right-par-combos)
|
|
(t! key par y left-par-combos right-par-combos)
|
|
(t! key par i left-par-combos right-par-combos)
|
|
(t! key par o left-par-combos right-par-combos)
|
|
|
|
(t! key sym a left-sym-combos right-sym-combos)
|
|
(t! key sym r left-sym-combos right-sym-combos)
|
|
(t! key sym t left-sym-combos right-sym-combos)
|
|
(t! key sym s left-sym-combos right-sym-combos)
|
|
(t! key sym e left-sym-combos right-sym-combos)
|
|
(t! key sym y left-sym-combos right-sym-combos)
|
|
(t! key sym i left-sym-combos right-sym-combos)
|
|
(t! key sym o left-sym-combos right-sym-combos)
|
|
|
|
(t! key nav a left-nav-combos right-nav-combos)
|
|
(t! key nav r left-nav-combos right-nav-combos)
|
|
(t! key nav t left-nav-combos right-nav-combos)
|
|
(t! key nav s left-nav-combos right-nav-combos)
|
|
(t! key nav e left-nav-combos right-nav-combos)
|
|
(t! key nav y left-nav-combos right-nav-combos)
|
|
(t! key nav i left-nav-combos right-nav-combos)
|
|
(t! key nav o left-nav-combos right-nav-combos)
|
|
|
|
(t! key mse a left-mse-combos right-mse-combos)
|
|
(t! key mse r left-mse-combos right-mse-combos)
|
|
(t! key mse t left-mse-combos right-mse-combos)
|
|
(t! key mse s left-mse-combos right-mse-combos)
|
|
(t! key mse e left-mse-combos right-mse-combos)
|
|
(t! key mse y left-mse-combos right-mse-combos)
|
|
(t! key mse i left-mse-combos right-mse-combos)
|
|
(t! key mse o left-mse-combos right-mse-combos)
|
|
|
|
(t! key cus a left-cus-combos right-cus-combos)
|
|
(t! key cus r left-cus-combos right-cus-combos)
|
|
(t! key cus t left-cus-combos right-cus-combos)
|
|
(t! key cus s left-cus-combos right-cus-combos)
|
|
(t! key cus e left-cus-combos right-cus-combos)
|
|
(t! key cus y left-cus-combos right-cus-combos)
|
|
(t! key cus i left-cus-combos right-cus-combos)
|
|
(t! key cus o left-cus-combos right-cus-combos)
|
|
|
|
;; Shared aliases
|
|
|
|
(defalias
|
|
base-layer (layer-switch base)
|
|
nav-layer (layer-switch nav)
|
|
mse-layer (layer-switch mouse)
|
|
|
|
;; Layer-hold keys
|
|
hold-num (tap-hold $tap-repress-timeout $hold-timeout (macro s) (layer-while-held numbers))
|
|
hold-par (tap-hold $tap-repress-timeout $hold-timeout (macro a) (layer-while-held parens))
|
|
hold-sym (tap-hold $tap-repress-timeout $hold-timeout (macro e) (layer-while-held symbols))
|
|
hold-cus (tap-hold $tap-repress-timeout $hold-timeout (macro o) (layer-while-held custom))
|
|
|
|
;; One-shot modifiers
|
|
os-sft (one-shot $leader-timeout lsft)
|
|
os-ctl (one-shot $leader-timeout lctl)
|
|
os-met (one-shot $leader-timeout lmet)
|
|
os-alt (one-shot $leader-timeout lalt)
|
|
shlock (on-press toggle-virtualkey shift-lock)
|
|
|
|
;; Symbol helpers
|
|
excl S-1
|
|
ques S-/
|
|
lp S-9
|
|
rp S-0
|
|
lb [
|
|
rb ]
|
|
lc S-[
|
|
rc S-]
|
|
bsl \
|
|
grv `
|
|
apos '
|
|
|
|
;; Mouse movement helpers
|
|
mmu (movemouse-accel-up $mouse-interval $mouse-accel-time $mouse-min $mouse-max)
|
|
mmd (movemouse-accel-down $mouse-interval $mouse-accel-time $mouse-min $mouse-max)
|
|
mml (movemouse-accel-left $mouse-interval $mouse-accel-time $mouse-min $mouse-max)
|
|
mmr (movemouse-accel-right $mouse-interval $mouse-accel-time $mouse-min $mouse-max)
|
|
mwu (mwheel-up $wheel-interval $wheel-distance)
|
|
mwd (mwheel-down $wheel-interval $wheel-distance)
|
|
)
|
|
|
|
(defvirtualkeys
|
|
shift-lock lsft
|
|
)
|
|
|
|
;; Chords
|
|
|
|
(deftemplate base-layer-chords ()
|
|
(r e i) @nav-layer
|
|
(a t y) @mse-layer
|
|
)
|
|
|
|
(deftemplate nav-layer-chords ()
|
|
(r e i) @base-layer
|
|
)
|
|
|
|
(deftemplate mouse-layer-chords ()
|
|
(a t y) @base-layer
|
|
)
|
|
|
|
(deftemplate global-chords ()
|
|
(r t s e) @os-sft
|
|
(a e) (macro ent)
|
|
(e y i o) (macro spc)
|
|
(a r t o) (macro tab)
|
|
(r e) (macro bspc)
|
|
(r i) (macro del)
|
|
(a r o) (macro esc)
|
|
(s e) @os-ctl
|
|
(s y) @os-met
|
|
(s i) @os-alt
|
|
(r y) @shlock
|
|
)
|
|
|
|
(deftemplate defbasechords (name)
|
|
(defchords $name $chord-timeout
|
|
(t! base-layer-chords)
|
|
(t! global-chords)
|
|
|
|
;; Layer-hold base keys.
|
|
(s) @hold-num
|
|
(a) @hold-par
|
|
(e) @hold-sym
|
|
(o) @hold-cus
|
|
|
|
;; English alphabet.
|
|
(r) (macro r)
|
|
(t) (macro t)
|
|
(y) (macro y)
|
|
(i) (macro i)
|
|
(e o) (macro b)
|
|
(e y) (macro c)
|
|
(a r t) (macro d)
|
|
(a r) (macro f)
|
|
(r t) (macro g)
|
|
(e i) (macro h)
|
|
(t s) (macro j)
|
|
(y o) (macro k)
|
|
(e y i) (macro l)
|
|
(y i o) (macro m)
|
|
(i o) (macro n)
|
|
(e i o) (macro p)
|
|
(a t s) (macro q)
|
|
(y i) (macro u)
|
|
(r s) (macro v)
|
|
(a s) (macro w)
|
|
(r t s) (macro x)
|
|
(a r t s) (macro z)
|
|
|
|
;; Base punctuation.
|
|
(a y i) (macro @apos)
|
|
(a y) (macro .)
|
|
(a i) (macro ,)
|
|
(t i) (macro @excl)
|
|
(a o) (macro /)
|
|
(o i y a) (macro caps)
|
|
)
|
|
)
|
|
|
|
(deftemplate defnumchords (name)
|
|
(defchords $name $chord-timeout
|
|
(t! base-layer-chords)
|
|
(t! global-chords)
|
|
|
|
(a) (macro Digit1)
|
|
(r) (macro Digit2)
|
|
(t) (macro Digit3)
|
|
(e) (macro Digit4)
|
|
(y) (macro Digit5)
|
|
(i) (macro Digit6)
|
|
(a r) (macro Digit7)
|
|
(r t) (macro Digit8)
|
|
(e y) (macro Digit9)
|
|
(y i) (macro Digit0)
|
|
)
|
|
)
|
|
|
|
;; Parens and brackets are arranged in open/close pairs, so the left/right
|
|
;; hands aren't exact mirrors.
|
|
(deftemplate defparleftchords (name)
|
|
(defchords $name $chord-timeout
|
|
(t! base-layer-chords)
|
|
(t! global-chords)
|
|
|
|
(r) (macro @rp)
|
|
(t) (macro @lp)
|
|
(s) (macro @lc)
|
|
(y) (macro @rb)
|
|
(i) (macro @lb)
|
|
(o) (macro @rc)
|
|
)
|
|
)
|
|
|
|
(deftemplate defparrightchords (name)
|
|
(defchords $name $chord-timeout
|
|
(t! base-layer-chords)
|
|
(t! global-chords)
|
|
|
|
(r) (macro @lp)
|
|
(t) (macro @rp)
|
|
(s) (macro @lc)
|
|
(y) (macro @lb)
|
|
(i) (macro @rb)
|
|
(o) (macro @rc)
|
|
)
|
|
)
|
|
|
|
(deftemplate defsymchords (name)
|
|
(defchords $name $chord-timeout
|
|
(t! base-layer-chords)
|
|
(t! global-chords)
|
|
|
|
(a) (macro @excl)
|
|
(r) (macro @bsl)
|
|
(t) (macro ;)
|
|
(s) (macro @grv)
|
|
(y) (macro @ques)
|
|
(i) (macro -)
|
|
(o) (macro =)
|
|
)
|
|
)
|
|
|
|
;; Navigation keys are arranged in a spatially logical layout, with up/down in
|
|
;; the center and left/right on the sides so also not an exact mirror.
|
|
(deftemplate defnavleftchords (name)
|
|
(defchords $name $chord-timeout
|
|
(t! nav-layer-chords)
|
|
(t! global-chords)
|
|
|
|
(a) (macro end)
|
|
(r) (macro up)
|
|
(t) (macro home)
|
|
(s) (macro pgup)
|
|
(e) (macro rght)
|
|
(y) (macro down)
|
|
(i) (macro left)
|
|
(o) (macro pgdn)
|
|
)
|
|
)
|
|
|
|
(deftemplate defnavrightchords (name)
|
|
(defchords $name $chord-timeout
|
|
(t! nav-layer-chords)
|
|
(t! global-chords)
|
|
|
|
(a) (macro home)
|
|
(r) (macro up)
|
|
(t) (macro end)
|
|
(s) (macro pgup)
|
|
(e) (macro left)
|
|
(y) (macro down)
|
|
(i) (macro rght)
|
|
(o) (macro pgdn)
|
|
)
|
|
)
|
|
|
|
;; Mouse movement keys are also arranged in a spatially logical layout like the
|
|
;; nav keys, s so also not an exact mirror.
|
|
(deftemplate defmseleftchords (name)
|
|
(defchords $name $chord-timeout
|
|
(t! mouse-layer-chords)
|
|
(t! global-chords)
|
|
|
|
(a) mltp
|
|
(r) @mmu
|
|
(t) mrtp
|
|
(s) @mwu
|
|
(e) @mmr
|
|
(y) @mmd
|
|
(i) @mml
|
|
(o) @mwd
|
|
)
|
|
)
|
|
|
|
(deftemplate defmserightchords (name)
|
|
(defchords $name $chord-timeout
|
|
(t! mouse-layer-chords)
|
|
(t! global-chords)
|
|
|
|
(a) mltp
|
|
(r) @mmu
|
|
(t) mrtp
|
|
(s) @mwu
|
|
(e) @mml
|
|
(y) @mmd
|
|
(i) @mmr
|
|
(o) @mwd
|
|
)
|
|
)
|
|
|
|
(deftemplate defcuschords (name)
|
|
(defchords $name $chord-timeout
|
|
(t! base-layer-chords)
|
|
(t! global-chords)
|
|
|
|
(a) (macro mute)
|
|
(r) (macro ins)
|
|
(t) (macro volu)
|
|
(e) rsft
|
|
(y) (macro prnt)
|
|
(i) (macro vold)
|
|
)
|
|
)
|
|
|
|
(t! defbasechords left-base-combos)
|
|
(t! defbasechords right-base-combos)
|
|
|
|
(t! defnumchords left-num-combos)
|
|
(t! defnumchords right-num-combos)
|
|
|
|
(t! defparleftchords left-par-combos)
|
|
(t! defparrightchords right-par-combos)
|
|
|
|
(t! defsymchords left-sym-combos)
|
|
(t! defsymchords right-sym-combos)
|
|
|
|
(t! defnavleftchords left-nav-combos)
|
|
(t! defnavrightchords right-nav-combos)
|
|
|
|
(t! defmseleftchords left-mse-combos)
|
|
(t! defmserightchords right-mse-combos)
|
|
|
|
(t! defcuschords left-cus-combos)
|
|
(t! defcuschords right-cus-combos)
|