tmuxclihook 0.5.9 → 0.5.10

package/package.json

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

package/scripts/adapters/claude.sh

@@ -255,6 +255,51 @@ adapter_check_integrity() {
     return 0
 }
 
+# 已收敛判定（仅供 wrapper 的 auto 分支使用——⚠️ 不得被事件路径复用）。
+# 四条件全过 = auto 可安全跳过重装：integrity 过 + 全部条目指向当前源（无漂移/
+# 死条目）+ 每事件本插件条目 ≤1（无重复）。
+# 参照系：wrapper 的 _LIB_DIR 是 pwd -P 物理路径；写入（install/auto/修复全部经
+# wrapper）与比较同参照系自洽。事件路径的 _LIB_DIR 是 pwd 逻辑路径（软链场景
+# 两者不等），事件路径复用会误判漂移。
+# 取源逻辑与 adapter_check_integrity 的三模式 case 保持同步（不抽共享以控制
+# integrity 的回归面）。
+adapter_check_converged() {
+    adapter_check_integrity || return 1
+    local mode src="" tmp="" stats
+    mode=$(_ccswitch_mode)
+    case "$mode" in
+        live)
+            src=$(_ccswitch_live_file)
+            [ -f "$src" ] || return 1
+            ;;
+        legacy)
+            _ccswitch_dump_common tmp || return 1
+            src="$tmp"
+            ;;
+        *)
+            [ -f "$ADAPTER_HOOKS_FILE" ] || return 1
+            src="$ADAPTER_HOOKS_FILE"
+            ;;
+    esac
+    # 一次 jq 同时产出漂移计数（≠ 当前源，含死路径）与重复计数（每事件条目 >1）
+    stats=$(jq -r --arg cur "${_LIB_DIR}/tmux-ai-status" '
+        .hooks as $h |
+        ["SessionStart","SessionEnd","UserPromptSubmit","PreToolUse","PostToolUse",
+         "PostToolUseFailure","PermissionRequest","Notification","Stop","StopFailure"] as $events |
+        [$events[] as $e |
+            [$h[$e][]?.hooks[]?.command // empty
+             | select(contains("tmux-ai-status")) | split(" ")[0]] as $scripts |
+            select(($scripts | length) > 0) |
+            {bad: ([$scripts[] | select(. != $cur)] | length),
+             n: ($scripts | length)}]
+        | "bad=\([.[].bad] | add // 0) dup=\([.[].n | select(. > 1)] | length)"' "$src" 2>/dev/null)
+    [ -z "$tmp" ] || rm -f "$tmp"
+    case "$stats" in
+        "bad=0 dup=0") return 0 ;;
+        *) return 1 ;;
+    esac
+}
+
 # 明细检查（仅 install wrapper 的 check --json 调用；事件热路径不触达）。
 # stdout 输出单行紧凑 JSON 片段 {"mode":...,"events":{...},"plugin":null,"registeredPaths":[...]}，
 # 由 lib-install-hooks.sh 的 _wrapper_check_json 拼装 tool/status/suppress/drift。
@@ -342,6 +387,16 @@ adapter_install_hooks() {
             _ccswitch_warn_gui
             _ccswitch_dump_common tmp || return 1
             merged=$(_claude_apply_merge "$tmp")
+            # 语义不变跳写：merge 只动 .hooks，顶层其他字段天然继承 tmp——
+            # 两边 jq -S 规范化对比，相同则跳过 upsert（GUI 冲掉 hooks 时
+            # 库内现值 ≠ merged，恒不跳，对抗不弱化；行缺失时 tmp={}，
+            # merged 恒含 10 事件，同样恒不跳）
+            if [ "$(jq -S . "$tmp" 2>/dev/null)" = "$(jq -S . <<<"$merged" 2>/dev/null)" ]; then
+                rm -f "$tmp"
+                echo "Claude hooks already up to date in cc-switch common config (skip write)"
+                echo "Events: $_CLAUDE_EVENTS"
+                return 0
+            fi
             rm -f "$tmp"
             hooks_patch=$(jq -c '{hooks: (.hooks // {})}' <<<"$merged")
             full_doc=$(jq -c . <<<"$merged")
@@ -360,6 +415,14 @@ adapter_install_hooks() {
     esac
     [ -f "$target" ] || _install_atomic_write '{}' "$target"
     updated=$(_claude_apply_merge "$target")
+    # 语义不变跳写：jq 输出格式与手写文件不同，字节 cmp 不可用——两边 jq -S
+    # 规范化后比较（命令替换对称剥尾换行）。跳写不触碰 mtime，避免触发 Claude
+    # Code file watcher 的无谓 hooks 重载。
+    if [ "$(jq -S . "$target" 2>/dev/null)" = "$(jq -S . <<<"$updated" 2>/dev/null)" ]; then
+        echo "Claude hooks already up to date at $target (skip write)"
+        echo "Events: $_CLAUDE_EVENTS"
+        return 0
+    fi
     _install_atomic_write "$updated" "$target"
     echo "Claude hooks installed to $target"
     echo "Events: $_CLAUDE_EVENTS"
@@ -412,6 +475,11 @@ adapter_uninstall_hooks() {
     esac
     [ -f "$target" ] || { echo "Claude hooks: nothing to uninstall"; return 0; }
     updated=$(_claude_apply_strip "$target")
+    # 无本插件条目时 strip 无变化 → 跳写（不触碰 mtime）
+    if [ "$(jq -S . "$target" 2>/dev/null)" = "$(jq -S . <<<"$updated" 2>/dev/null)" ]; then
+        echo "Claude hooks: nothing to uninstall from $target (skip write)"
+        return 0
+    fi
     _install_atomic_write "$updated" "$target"
     echo "Claude hooks uninstalled from $target"
 }

package/scripts/install-claude-hooks.sh

@@ -18,6 +18,21 @@ _LIB_DIR="$(cd "$(dirname "${BASH_SOURCE[0]}")" && pwd -P)"
 source "${_LIB_DIR}/lib-install-hooks.sh"
 source "${_LIB_DIR}/adapters/claude.sh"
 
+# 写路径互斥（check 只读不锁）：临界区覆盖 adapter 调用 + suppress 标记读-改-写，
+# 串行化 auto 与显式 uninstall 的标记 TOCTOU。失败语义见 _install_acquire_lock：
+# 降级无锁（rc=2）继续；等待超时（rc=1）退出。
+case "${1:-install}" in
+    check) ;;
+    *)
+        _lock_rc=0
+        _install_acquire_lock claude || _lock_rc=$?
+        if [ "$_lock_rc" = 1 ]; then exit 1; fi
+        if [ "$_lock_rc" = 0 ]; then
+            trap '_install_release_lock claude' EXIT
+        fi
+        ;;
+esac
+
 case "${1:-install}" in
     uninstall)
         adapter_uninstall_hooks
@@ -37,11 +52,19 @@ case "${1:-install}" in
         if [ -f "$(_hooks_suppress_file claude)" ]; then
             exit 0
         fi
+        # 已收敛（integrity + 无漂移/死条目/重复）→ 跳过重装：tmux 每次 reload
+        # 不再全量重写真源。强收敛保留——漂移/死条目/缺失/重复任一存在都走
+        # install 收敛。结构漂移（async/matcher 被外部改）不在判定内，auto 跳过
+        # 不修复，显式 install 仍强收敛。
+        if adapter_check_converged; then
+            echo "claude hooks already converged (skip install)"
+            exit 0
+        fi
         adapter_install_hooks
-        _hooks_suppress_clear claude
+        _hooks_suppress_clear claude || true
         ;;
     *)
         adapter_install_hooks
-        _hooks_suppress_clear claude
+        _hooks_suppress_clear claude || true
         ;;
 esac

package/scripts/install-codex-hooks.sh

@@ -15,6 +15,19 @@ _LIB_DIR="$(cd "$(dirname "${BASH_SOURCE[0]}")" && pwd -P)"
 source "${_LIB_DIR}/lib-install-hooks.sh"
 source "${_LIB_DIR}/adapters/codex.sh"
 
+# 写路径互斥（check 只读不锁）：见 _install_acquire_lock 头注释。
+case "${1:-install}" in
+    check) ;;
+    *)
+        _lock_rc=0
+        _install_acquire_lock codex || _lock_rc=$?
+        if [ "$_lock_rc" = 1 ]; then exit 1; fi
+        if [ "$_lock_rc" = 0 ]; then
+            trap '_install_release_lock codex' EXIT
+        fi
+        ;;
+esac
+
 case "${1:-install}" in
     uninstall)
         adapter_uninstall_hooks
@@ -32,6 +45,6 @@ case "${1:-install}" in
         ;;
     *)
         adapter_install_hooks
-        _hooks_suppress_clear codex
+        _hooks_suppress_clear codex || true
         ;;
 esac

package/scripts/install-opencode-hooks.sh

@@ -15,6 +15,19 @@ _LIB_DIR="$(cd "$(dirname "${BASH_SOURCE[0]}")" && pwd -P)"
 source "${_LIB_DIR}/lib-install-hooks.sh"
 source "${_LIB_DIR}/adapters/opencode.sh"
 
+# 写路径互斥（check 只读不锁）：见 _install_acquire_lock 头注释。
+case "${1:-install}" in
+    check) ;;
+    *)
+        _lock_rc=0
+        _install_acquire_lock opencode || _lock_rc=$?
+        if [ "$_lock_rc" = 1 ]; then exit 1; fi
+        if [ "$_lock_rc" = 0 ]; then
+            trap '_install_release_lock opencode' EXIT
+        fi
+        ;;
+esac
+
 case "${1:-install}" in
     uninstall)
         adapter_uninstall_hooks
@@ -32,6 +45,6 @@ case "${1:-install}" in
         ;;
     *)
         adapter_install_hooks
-        _hooks_suppress_clear opencode
+        _hooks_suppress_clear opencode || true
         ;;
 esac

package/scripts/lib-install-hooks.sh

@@ -29,14 +29,85 @@ _install_atomic_write() {
 # 显式 uninstall 成功 → 写 suppressed-<tool>；显式 install 成功 → 清。
 # 自动修复路径（_maybe_repair_hooks / 入口 auto / SessionStart 重装）见标记一律不装。
 # ⚠️ _SUPPRESS_DIR 与 lib-tmux-ai-status.sh 中的定义保持一致（两处同步改）。
+#
+# 失败语义（两个方向都告警，不对称）：
+# - write 失败：hooks 已剥离但标记没落 → auto 会静默装回（用户显式卸载被反转）
+#   → return 1，wrapper uninstall 分支 errexit 使其以非 0 退出，用户可见。
+# - clear 失败：install 已成功但残留标记会把 auto 永久挡住（比 write 失败更隐蔽）
+#   → 告警但 return 0（主操作已成功，调用方 wrapper 的 clear 调用需 || true 容忍）。
 _SUPPRESS_DIR="${TMUX_AI_SUPPRESS_DIR:-${XDG_CONFIG_HOME:-${HOME}/.config}/tmuxclihook}"
 
 _hooks_suppress_file() { printf '%s/suppressed-%s' "$_SUPPRESS_DIR" "$1"; }
 _hooks_suppress_write() {
-    mkdir -p "$_SUPPRESS_DIR" 2>/dev/null || true
-    date +%s > "$(_hooks_suppress_file "$1")" 2>/dev/null || true
+    if ! mkdir -p "$_SUPPRESS_DIR" 2>/dev/null \
+       || ! date +%s > "$(_hooks_suppress_file "$1")" 2>/dev/null; then
+        echo "WARN: 抑制标记写入失败——hooks 已卸载，但 tmux 重载/新会话可能自动装回；" \
+             "请检查 $_SUPPRESS_DIR 可写性" >&2
+        return 1
+    fi
+}
+_hooks_suppress_clear() {
+    if [ -e "$(_hooks_suppress_file "$1")" ] \
+       && ! rm -f "$(_hooks_suppress_file "$1")" 2>/dev/null; then
+        echo "WARN: 卸载意图标记清除失败——tmux 自动安装将持续跳过；" \
+             "请检查 $_SUPPRESS_DIR 可写性" >&2
+        return 1
+    fi
+}
+
+# --- 安装/卸载读-改-写互斥锁 ---
+# 写路径的并发方：TUI 显式装 / tmux 入口 auto / SessionStart 自修复 / _maybe_repair_hooks /
+# drift 收敛——五方都经 wrapper dispatch，锁在此层一处覆盖三 adapter。
+# mkdir mutex（项目风格同 .lock/.event-lock；macOS 无 flock(1)）。两种失败语义区分：
+# - 锁目录建不出来（权限/ENOTDIR）→ 降级无锁继续 + 告警（历史行为是无锁写；install
+#   真正写目标与锁目录不同权限域，锁失败不代表写不了）
+# - 他人持锁 → 等待（0.2s × 50 ≈ 10s）→ stale（10s）强夺 → 超时报错 return 1（显式操作可见）。
+#   ⚠️ codex SessionStart 是同步 hook（timeout:5s）：极端并发下锁等待可能超过 5s 使该次
+#   hook 超时——后果轻（该次 hook 不执行、codex 继续、无阻塞），概率极低（repair 60s 一次）。
+# 边界：锁只收敛「我们自己的多方」；Claude Code 自身写 settings.json 不遵守本锁（外部
+# 写者无法防）——这正是 60s 自修复存在的原因。写路径互斥由 wrapper 层负责，adapter
+# 函数不含锁——直接 source adapter 调 install 会绕过锁。
+_install_lock_dir() { printf '%s/.install-lock-%s' "$_SUPPRESS_DIR" "$1"; }
+_install_acquire_lock() {  # $1=tool id → 0=持锁 1=超时（2=降级无锁，调用方继续）
+    local lock; lock=$(_install_lock_dir "$1")
+    if ! mkdir -p "$_SUPPRESS_DIR" 2>/dev/null; then
+        echo "WARN: 锁目录不可创建（$_SUPPRESS_DIR），降级无锁继续安装" >&2
+        return 2
+    fi
+    local _start=$SECONDS i
+    for i in {1..50}; do
+        if mkdir "$lock" 2>/dev/null; then
+            echo "$$" > "$lock/owner"
+            return 0
+        fi
+        # stale 强夺：持锁者进程已死 → 立即夺；锁 mtime 超 10s → 强夺。
+        # 外部命令（stat/sleep/rmdir）逐一防御退出码——ccswitch 用例 8 的 stubbin
+        # 是最小 PATH 沙箱（无 stat/rmdir/sleep），127 会在 errexit 下炸掉 install。
+        local owner mtime
+        owner=$(cat "$lock/owner" 2>/dev/null)
+        if [ -n "$owner" ] && ! kill -0 "$owner" 2>/dev/null; then
+            rm -f "$lock/owner" 2>/dev/null || true
+            rmdir "$lock" 2>/dev/null || true
+            continue
+        fi
+        mtime=""
+        mtime=$(stat -c %Y "$lock" 2>/dev/null || stat -f %m "$lock" 2>/dev/null || true)
+        if [ -n "$mtime" ] && [ $(( _start + SECONDS - mtime )) -ge 10 ]; then
+            echo "WARN: 强夺超时的安装锁（owner=${owner:-?}）" >&2
+            rm -f "$lock/owner" 2>/dev/null || true
+            rmdir "$lock" 2>/dev/null || true
+            continue
+        fi
+        sleep 0.2 2>/dev/null || :
+    done
+    echo "ERROR: 安装锁获取超时（$lock）——另一安装操作可能仍在进行，稍后重试" >&2
+    return 1
+}
+_install_release_lock() {  # $1=tool id
+    local lock; lock=$(_install_lock_dir "$1")
+    rm -f "$lock/owner" 2>/dev/null || true
+    rmdir "$lock" 2>/dev/null || true
 }
-_hooks_suppress_clear() { rm -f "$(_hooks_suppress_file "$1")" 2>/dev/null || true; }
 
 # --- check --json：完整性明细 JSON（wrapper 专用，事件热路径不触达）---
 # stdout = 单行紧凑 JSON；exit code 与默认 check 一致（ok→0 / missing→1）。

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

@@ -962,12 +962,14 @@ _check_hooks_integrity() {
     fi
 }
 
-# 兜底自修复：tmux 端事件路径调用，配置被外部覆盖时自动重装。
-# 不依赖 SESSION_ID/EVENT，可被 _refresh 触发。60s 节流。
+# 兜底自修复：tmux 端事件路径与 SessionStart hook 共用，配置被外部覆盖时自动重装。
+# 不依赖 SESSION_ID/EVENT，可被 _refresh 与 SessionStart 触发。60s 节流退避
+# （窗口内不重复 integrity 检查；修复失败 60s 后才重试）。
 # 安装器由 adapter 声明（ADAPTER_INSTALLER）。
 _maybe_repair_hooks() {
     # 用户显式卸载意图（suppressed-<tool>）→ 不自动修复，尊重到显式安装为止。
     if [ -f "${_SUPPRESS_DIR}/suppressed-${TOOL_ID:-claude}" ]; then
+        _ai_log "REPAIR: suppressed by uninstall marker, skip (${TOOL_ID:-claude})"
         return 0
     fi
     local marker="${_STATUS_DIR}/.hooks-repair-${TOOL_ID:-claude}-ts"
@@ -983,9 +985,9 @@ _maybe_repair_hooks() {
     local installer="${ADAPTER_INSTALLER}"
     if ! _check_hooks_integrity; then
         _ai_log "REPAIR: hooks integrity check failed, reinstalling (${TOOL_ID:-claude})"
-        # 浮出提示与 SessionStart 修复路径（tmux-ai-status）对齐：修复不再完全静默。
-        # 本函数仅经 _run_refresh 被 tmux hook 事件触发（run-shell 上下文，不在 AI CLI
-        # 同步 hook 路径）；display-message 无 -p 写 client tty 而非调用方 stdout。
+        # 浮出提示（成败区分）：SessionStart（Claude Code hook 进程内）与
+        # _run_refresh（tmux run-shell）两个上下文都会到这里；hook 进程继承
+        # TMUX env，display-message 无 -p 写 client tty 而非调用方 stdout。
         if [ -x "$installer" ] && "$installer" >/dev/null 2>&1; then
             tmux display-message "✓ ${TOOL_ID:-claude} hooks 已自动修复（检测到缺失）" 2>/dev/null || true
         else

package/scripts/tmux-ai-status

@@ -221,14 +221,12 @@ case "$EVENT" in
     INPUT_DIGEST=$(echo "$INPUT" | jq -c '{source, model}' 2>/dev/null)
     STATUS="-"
     _clear_pending
-    if ! _check_hooks_integrity; then
-        if [ -f "${_SUPPRESS_DIR}/suppressed-${TOOL_ID}" ]; then
-            _ai_log "REPAIR: suppressed by uninstall marker, skip (${TOOL_ID})"
-        else
-            "${ADAPTER_INSTALLER}" >/dev/null 2>&1
-            tmux display-message "⚠ ${TOOL_ID} hooks 已自动修复（检测到缺失）" 2>/dev/null || true
-        fi
-    fi
+    # 自修复归并到 _maybe_repair_hooks：60s 节流退避（旧实现每次 SessionStart——
+    # 含 resume/clear/fork——都全量 integrity + 失败即重装且无 exit code 检查），
+    # 并统一 suppress 检查与成功/失败区分的 display-message。节流语义：窗口内
+    # 新会话不重复检查 integrity（外部改 settings 后最多延迟 60s 才被发现）；
+    # 修复失败 60s 后由 _run_refresh 或下一次 SessionStart 重试。
+    _maybe_repair_hooks
     ;;
   SessionEnd)
     INPUT_DIGEST=$(echo "$INPUT" | jq -c '{reason}' 2>/dev/null)