29 lines
603 B
Plaintext
29 lines
603 B
Plaintext
(defsrc
|
|
caps a s d f j k l ;
|
|
)
|
|
(defvar
|
|
tap-time 200
|
|
hold-time 200
|
|
)
|
|
|
|
(defalias
|
|
capsctrl (tap-hold $tap-time $hold-time caps lctl)
|
|
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 lsft)
|
|
k (tap-hold $tap-time $hold-time k lctl)
|
|
l (tap-hold $tap-time $hold-time l lalt)
|
|
; (tap-hold $tap-time $hold-time ; lmet)
|
|
)
|
|
|
|
(deflayer base
|
|
@capsctrl @a @s @d @f @j @k @l @;
|
|
)
|
|
|
|
;; Local Variables:
|
|
;; mode: lisp
|
|
;; apheleia-mode: nil
|
|
;; End:
|