tmuxclihook 0.5.11 → 0.5.13

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "tmuxclihook",
-  "version": "0.5.11",
+  "version": "0.5.13",
   "description": "交互式 TUI 安装器：环境侦测、AI CLI 侦测、tmux-ai-status hooks 装/卸/修、TPM 软链校验",
   "type": "module",
   "bin": {

package/scripts/install-claude-hooks.sh

@@ -18,6 +18,15 @@ _LIB_DIR="$(cd "$(dirname "${BASH_SOURCE[0]}")" && pwd -P)"
 source "${_LIB_DIR}/lib-install-hooks.sh"
 source "${_LIB_DIR}/adapters/claude.sh"
 
+# 子命令白名单：必须在取锁前校验——拼错的子命令不应先白等最多 10s 锁超时
+case "${1:-install}" in
+    install|uninstall|check|auto) ;;
+    *)
+        echo "Usage: $0 [install|uninstall|check [--json]|auto]" >&2
+        exit 2
+        ;;
+esac
+
 # 写路径互斥（check 只读不锁）：临界区覆盖 adapter 调用 + suppress 标记读-改-写，
 # 串行化 auto 与显式 uninstall 的标记 TOCTOU。失败语义见 _install_acquire_lock：
 # 降级无锁（rc=2）继续；等待超时（rc=1）退出。

package/scripts/install-codex-hooks.sh

@@ -15,6 +15,15 @@ _LIB_DIR="$(cd "$(dirname "${BASH_SOURCE[0]}")" && pwd -P)"
 source "${_LIB_DIR}/lib-install-hooks.sh"
 source "${_LIB_DIR}/adapters/codex.sh"
 
+# 子命令白名单：必须在取锁前校验——拼错的子命令不应先白等最多 10s 锁超时
+case "${1:-install}" in
+    install|uninstall|check) ;;
+    *)
+        echo "Usage: $0 [install|uninstall|check [--json]]" >&2
+        exit 2
+        ;;
+esac
+
 # 写路径互斥（check 只读不锁）：见 _install_acquire_lock 头注释。
 case "${1:-install}" in
     check) ;;

package/scripts/install-opencode-hooks.sh

@@ -15,6 +15,15 @@ _LIB_DIR="$(cd "$(dirname "${BASH_SOURCE[0]}")" && pwd -P)"
 source "${_LIB_DIR}/lib-install-hooks.sh"
 source "${_LIB_DIR}/adapters/opencode.sh"
 
+# 子命令白名单：必须在取锁前校验——拼错的子命令不应先白等最多 10s 锁超时
+case "${1:-install}" in
+    install|uninstall|check) ;;
+    *)
+        echo "Usage: $0 [install|uninstall|check [--json]]" >&2
+        exit 2
+        ;;
+esac
+
 # 写路径互斥（check 只读不锁）：见 _install_acquire_lock 头注释。
 case "${1:-install}" in
     check) ;;

package/scripts/lib-tmux-ai-status.sh

@@ -666,6 +666,23 @@ _clear_pending() {
     _release_lock
 }
 
+# pending 集合中是否有 N 秒内的条目（每行 "id tool ts"）。用于区分「工具确实在
+# 跑」与「泄漏/中断残留的旧条目」——并发 hook 抢锁超时会让 _remove_pending_id
+# 静默放弃，集合可能长期残留陈旧 id（实测存在），不能只按非空判定活跃。
+_pending_recent() {  # $1=秒数 → 0=有新鲜条目
+    local max="${1:-10}" now f
+    now=$(date +%s)
+    for f in "$(_pending_pre_path)" "$(_pending_perm_path)"; do
+        [ -s "$f" ] || continue
+        if awk -v now="$now" -v max="$max" '
+            $3 ~ /^[0-9]+$/ && now - $3 <= max { found = 1; exit }
+            END { exit !found }' "$f" 2>/dev/null; then
+            return 0
+        fi
+    done
+    return 1
+}
+
 # 根据当前 pending-perm / pending-pre 派生 STATUS。结果写入全局 DERIVED
 # return 0 = 派生出非空 STATUS, return 1 = 都空（事件需自行决定）
 _derive_status_from_pending() {
@@ -942,13 +959,17 @@ _cleanup_stale_panes() {
 # （tr -c 'A-Za-z0-9._-' '_'），无法从 key 反推 client → 反向枚举存活集比对。
 # 实测关注：长期运行的 server 会累积已 detach 的 client 键（8 option / 4 存活）。
 _prune_prev_sess_options() {
-    local alive=" " name key opt
+    local alive=" " name key opt clients opts
+    # 两次 tmux 查询都必须成功才剪枝：tmux 抖动（server 重启/连接失败）时
+    # list-clients 返回空会被误判为「无存活 client」→ 把全部键删光。
+    clients=$(tmux list-clients -F '#{client_name}' 2>/dev/null) || return 0
+    opts=$(tmux show-options -g 2>/dev/null) || return 0
     while IFS= read -r name; do
         [ -n "$name" ] || continue
         key=$(printf '%s' "$name" | tr -c 'A-Za-z0-9._-' '_')
         alive="$alive$key "
-    done < <(tmux list-clients -F '#{client_name}' 2>/dev/null)
-    for opt in $(tmux show-options -g 2>/dev/null | awk '/^@ai_prev_sess_/{print $1}'); do
+    done <<< "$clients"
+    for opt in $(printf '%s\n' "$opts" | awk '/^@ai_prev_sess_/{print $1}'); do
         key="${opt#@ai_prev_sess_}"
         case "$alive" in
             *" $key "*) ;;

package/scripts/tmux-ai-status

@@ -80,20 +80,28 @@ _current_pane_status() {
 
 # Notification「隐式」路径（idle_prompt / waiting for your input）的状态解析：
 # 通知可能乱序晚到（async hook 无顺序保证），不能无条件降级为 idle '-'。
-# 优先级：pending 派生（工具确实在跑 → '>'）> live 审批态（!/?；claude 不写
-# pending-perm，纯派生看不见审批态）> idle '-'。
+# 判定顺序（⚠️ 不能颠倒）：
+#   1. live 审批态 !/? → 保持。审批等待期间 pending-pre 非空（PreToolUse 先于
+#      PermissionRequest），若先看 pending 会派生出 '>' 把 '!' 降级——违反
+#      「审批态永不覆盖」
+#   2. pending 派生出 !/? → 采用（codex/opencode 的审批集合；claude 不写 perm）
+#   3. pending 派生出 '>' → **仅当存在 10s 内的新条目才可信**（并发 hook 抢锁
+#      超时会让清理静默放弃，集合可能残留陈旧 id），否则视为残留
+#   4. 其余 → '-'
 # 显式重置消息（denied/cancelled/rejected）不走本函数——denial 携带「等待已结束」
 # 语义，应无条件置 '-'。
 _notification_implicit_status() {
-    if _derive_status_from_pending; then
-        printf '%s' "$DERIVED"
-        return
-    fi
     local live
     live=$(_current_pane_status)
     case "$live" in
         "!"|"?") printf '%s' "$live"; return ;;
     esac
+    if _derive_status_from_pending; then
+        case "$DERIVED" in
+            "!"|"?") printf '%s' "$DERIVED"; return ;;
+        esac
+        if _pending_recent 10; then printf '%s' ">"; return; fi
+    fi
     printf '%s' "-"
 }
 

package/tmux-ai-hooks-status.tmux

@@ -128,7 +128,7 @@ fi
 # 全局 root 表绑定会覆盖用户既有 Escape 绑定——覆盖前保存 + 一次性告警
 # （无法安全链式调用任意已有绑定，恢复需手动）：
 #   tmux show-option -gv @claude_hooks_saved_bind_escape
-_prev_esc=$(tmux list-keys -n Escape 2>/dev/null || true)
+_prev_esc=$(tmux list-keys -T root Escape 2>/dev/null || true)
 case "$_prev_esc" in
     ""|*tmux-ai-esc*) ;;
     *)