tap-hold-release-order: add tap-repress-timeout parameter

Allows double-tap-and-hold to bypass hold-tap logic and repeat the tap
action. Syntax is now:
(tap-hold-release-order <tap-repress-timeout> <buffer-ms> <tap> <hold>)

Co-Authored-By: Claude Opus 4.6 <noreply@anthropic.com>

Author: tompassarelli

parser/src/cfg/tap_hold.rs

@@ -98,23 +98,24 @@ pub(crate) fn parse_tap_hold_release_order(
     ac_params: &[SExpr],
     s: &ParserState,
 ) -> Result<&'static KanataAction> {
-    if ac_params.len() != 3 {
+    if ac_params.len() != 4 {
         bail!(
-            r"tap-hold-release-order expects 3 items after it, got {}.
+            r"tap-hold-release-order expects 4 items after it, got {}.
 Params in order:
-<buffer-ms> <tap-action> <hold-action>",
+<tap-repress-timeout> <buffer-ms> <tap-action> <hold-action>",
             ac_params.len(),
         )
     }
-    let buffer = parse_u16(&ac_params[0], s, "buffer")?;
-    let tap_action = parse_action(&ac_params[1], s)?;
-    let hold_action = parse_action(&ac_params[2], s)?;
+    let tap_repress_timeout = parse_u16(&ac_params[0], s, "tap repress timeout")?;
+    let buffer = parse_u16(&ac_params[1], s, "buffer")?;
+    let tap_action = parse_action(&ac_params[2], s)?;
+    let hold_action = parse_action(&ac_params[3], s)?;
     if matches!(tap_action, Action::HoldTap { .. }) {
         bail!("tap-hold does not work in the tap-action of tap-hold")
     }
     Ok(s.a.sref(Action::HoldTap(s.a.sref(HoldTapAction {
         config: HoldTapConfig::ReleaseOrder { buffer },
-        tap_hold_interval: 0,
+        tap_hold_interval: tap_repress_timeout,
         timeout: u16::MAX,
         tap: *tap_action,
         hold: *hold_action,