punkfairie/marleyos
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

feat(home): Kanata improvements

Browse source
This commit is contained in:
punkfairie 2024-12-02 19:26:58 -08:00
parent 6668f416bd
commit 7df48d007e
Signed by: punkfairie
GPG key ID: A509E8F77FB9D696
1 changed files with 48 additions and 18 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

66
modules/home/services/kanata/config.kbd
View file

@ -1,30 +1,60 @@
;; vim: ft=commonlisp ;; vim: ft=commonlisp
;; Home row mods QWERTY example with more complexity.
;; Some of the changes from the basic example:
;; - when a home row mod activates tap, the home row mods are disabled
;; while continuing to type rapidly
;; - tap-hold-release helps make the hold action more responsive
;; - pressing another key on the same half of the keyboard
;; as the home row mod will activate an early tap action
(defcfg (defcfg
process-unmapped-keys yes process-unmapped-keys yes
) )
(defsrc (defsrc
caps a s d f j k l ; caps a s d f j k l ;
) )
(defvar (defvar
tap-time 150 ;; Note: consider using different time values for your different fingers.
hold-time 200 ;; For example, your pinkies might be slower to release keys and index
) ;; fingers faster.
tap-time 200
hold-time 150
(defalias left-hand-keys (
escctrl (tap-hold 100 100 esc caps) q w e r t
a (tap-hold $tap-time $hold-time a lmet) a s d f g
s (tap-hold $tap-time $hold-time s lalt) z x c v b
d (tap-hold $tap-time $hold-time d lsft) )
f (tap-hold $tap-time $hold-time f lctl) right-hand-keys (
j (tap-hold $tap-time $hold-time j rctl) y u i o p
k (tap-hold $tap-time $hold-time k rsft) h j k l ;
l (tap-hold $tap-time $hold-time l ralt) n m , . /
; (tap-hold $tap-time $hold-time ; rmet) )
) )
(deflayer base (deflayer base
@escctrl @a @s @d @f @j @k @l @; @caps @a @s @d @f @j @k @l @;
)
(deflayer nomods
@caps a s d f j k l ;
)
(deffakekeys
to-base (layer-switch base)
)
(defalias
tap (multi
(layer-switch nomods)
(on-idle-fakekey to-base tap 20)
)
caps (tap-hold 100 100 esc caps)
a (tap-hold-release-keys $tap-time $hold-time (multi a @tap) lctl $left-hand-keys)
s (tap-hold-release-keys $tap-time $hold-time (multi s @tap) lalt $left-hand-keys)
d (tap-hold-release-keys $tap-time $hold-time (multi d @tap) lsft $left-hand-keys)
f (tap-hold-release-keys $tap-time $hold-time (multi f @tap) lmet $left-hand-keys)
j (tap-hold-release-keys $tap-time $hold-time (multi j @tap) rmet $right-hand-keys)
k (tap-hold-release-keys $tap-time $hold-time (multi k @tap) rsft $right-hand-keys)
l (tap-hold-release-keys $tap-time $hold-time (multi l @tap) ralt $right-hand-keys)
; (tap-hold-release-keys $tap-time $hold-time (multi ; @tap) rctl $right-hand-keys)
) )