(defsrc a s d f j k l ; ) (defvar tap-time 150 hold-time 200 ) (defalias a (tap-hold $tap-time $hold-time a lsft) s (tap-hold $tap-time $hold-time s lalt) d (tap-hold $tap-time $hold-time d lmet) f (tap-hold $tap-time $hold-time f lctl) j (tap-hold $tap-time $hold-time j lctl) k (tap-hold $tap-time $hold-time k lmet) l (tap-hold $tap-time $hold-time l lalt) ; (tap-hold $tap-time $hold-time ; lsft) ) (deflayer base @a @s @d @f @j @k @l @; ) ;; Local Variables: ;; mode: lisp ;; apheleia-mode: nil ;; End: