1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30
|
(defcfg
process-unmapped-keys yes ;;|no| enable processing of keys that are not in defsrc, useful if mapping a few keys in defsrc instead of most of the keys on your keyboard. Without this, the tap-hold-release and tap-hold-press actions will not activate for keys that are not in defsrc. Disabled because some keys may not work correctly if they are intercepted. E.g. rctl/altgr on Windows; see the windows-altgr configuration item above for context.
log-layer-changes yes ;;|no| overhead
)
(defvar ;; declare commonly-used values. prefix with $ to call them. They are refered with `$<var name>`
tap-repress-timeout 1000 ;;|500|
hold-timeout 1500 ;;|500|
πβ $tap-repress-timeout
ππ Ώ $hold-timeout
)
(defalias
;; home row mods βtap π Ώhold
;; pinky ring middle index | index middle ring pinky
;; timeout βtap π ΏholdΒ¦βtap π Ώhold action
ββΉβ (tap-hold-release $πβ $ππ Ώ a βΉβ) ;;
ββΉβ (tap-hold-release $πβ $ππ Ώ s βΉβ) ;;
ββΉβ (tap-hold-release $πβ $ππ Ώ d βΉβ) ;;
ββΉβ§ (tap-hold-release $πβ $ππ Ώ f βΉβ§) ;;
ββ§βΊ (tap-hold-release $πβ $ππ Ώ j β§βΊ) ;; same actions for the right side
βββΊ (tap-hold-release $πβ $ππ Ώ k ββΊ) ;;
βββΊ (tap-hold-release $πβ $ππ Ώ l ββΊ) ;;
βββΊ (tap-hold-release $πβ $ππ Ώ ; ββΊ) ;;
)
(defsrc
` 1 2
a s d f j k l ;)
(deflayer β ;; modtap layer for home row mods and 1 printing a π€²πΏ char (will appear as π€² until kanata's unicode feature is extended)
β π£π€²πΏ β
@ββΉβ @ββΉβ @ββΉβ @ββΉβ§ @ββ§βΊ @βββΊ @βββΊ @βββΊ)
|