okstra 0.177.0 → 0.178.0

package/runtime/bin/okstra-trace-cleanup.sh

@@ -1,185 +0,0 @@
-#!/usr/bin/env bash
-#
-# okstra-trace-cleanup.sh — close the harness-owned worker panes of an okstra run.
-#
-# The panes this closes are the teammate panes the HARNESS splits for dispatched
-# worker agents. okstra does not create them and cannot tag them, so they are
-# found by a title allowlist scoped to the lead's window. They accumulate until
-# the pane budget runs out, and `shutdown_request` only idles the agent without
-# freeing its pane — this script is the only thing that closes them, which is why
-# the lead calls it at every round boundary and before every user gate.
-#
-# Two tag-driven paths used to live here and both are gone:
-#
-#   - Worker-compute panes of the `tmux-pane` dispatch backend, tagged
-#     `@okstra_worker_run`. That backend was removed — a worker now gets a cmux
-#     surface or a cli-wrapper subprocess, and neither is a tmux pane okstra owns.
-#   - Trace panes, tagged `@okstra_trace_run` / `@okstra_status`, which the
-#     provider wrappers used to split as `tail -F` siblings. The wrappers became
-#     four-line entrypoints and worker progress renders into the worker's own
-#     pane, so nothing had spawned a trace pane for some time.
-#
-# With both writers gone the tag scan matched nothing, so it was removed along
-# with the two modes that existed only to drive it (`--reap`, which the SessionEnd
-# hook called, and `--reclaim-completed`, which `okstra-subagent-reclaim.sh` drove
-# from SubagentStop / TaskCompleted). Those hooks are gone from the seeded
-# settings too.
-#
-# Invocation:
-#
-#   --run-dir <RUN_DIR>   Closes the run's worker-agent panes (`claude-worker` /
-#                         `codex-worker` / `antigravity-worker` /
-#                         `report-writer-worker` and the FleetView teammate
-#                         prefixes), scoped to the LEAD's WINDOW. The lead pane is
-#                         read from `<RUN_DIR>/state/lead-pane.id` (recorded once
-#                         by the lead in its own foreground pane — reliable even
-#                         though Claude Code's Bash tool strips `$TMUX` /
-#                         `$TMUX_PANE`); it scopes the scan and is NEVER killed.
-#                         Window scope keeps a second lead running in another
-#                         window of the same session out of range.
-#
-# `--list` (alias `--dry-run`) prints `<pane_id>\t<pane_title>` per pane instead
-# of killing.
-#
-# `--keep <substr>` (repeatable) spares any pane whose current title contains
-# <substr>, in both the kill and the list set. Used to preserve an in-flight
-# report-writer at a round boundary.
-#
-# Failures are tolerated silently — a stale pane id, no tmux, or a locked tmux
-# client must never prevent Claude from exiting cleanly.
-
-set -u
-
-# Caller-pane resolution helper (okstra_resolve_caller_pane) — see
-# lib/okstra/tmux-pane.sh. Used as the lead-pane fallback below so a missing /
-# stale lead-pane.id resolves to the pane THIS process actually runs in (via
-# ancestor-PID ↔ tmux pane_pid matching), never a foreign active-client pane.
-# Bin-sibling path in repo + installed layouts; degrade silently if absent.
-_clean_script_dir="$(cd "$(dirname "${BASH_SOURCE[0]}")" && pwd -P)"
-[ -r "$_clean_script_dir/lib/okstra/tmux-pane.sh" ] && . "$_clean_script_dir/lib/okstra/tmux-pane.sh"
-
-MODE="kill"   # kill | list
-run_dir=""
-KEEP_PATTERNS=()   # --keep <substr>: panes whose title contains substr are spared from kill/list
-while [[ $# -gt 0 ]]; do
-  case "$1" in
-    --list|--dry-run) MODE="list" ;;
-    --run-dir)        shift; run_dir="${1-}" ;;
-    --run-dir=*)      run_dir="${1#--run-dir=}" ;;
-    --keep)           shift; KEEP_PATTERNS+=("${1-}") ;;
-    --keep=*)         KEEP_PATTERNS+=("${1#--keep=}") ;;
-    -h|--help)
-      cat <<'USAGE'
-usage: okstra-trace-cleanup.sh --run-dir <RUN_DIR> [--list] [--keep <substr>]...
-
-  --run-dir            okstra run directory; closes that run's worker-agent panes.
-  --list               print "<pane_id>\t<pane_title>" per pane; no kill.
-  --dry-run            alias for --list.
-  --keep <substr>      exclude any pane whose title contains <substr> from the
-                       kill/list set (repeatable). Used to spare an in-flight
-                       report-writer at a round boundary.
-USAGE
-      exit 0 ;;
-    *)
-      printf 'okstra-trace-cleanup.sh: unknown option: %s\n' "$1" >&2
-      exit 2 ;;
-  esac
-  shift
-done
-
-if [[ -z "$run_dir" ]]; then
-  printf 'okstra-trace-cleanup.sh: --run-dir <RUN_DIR> is required\n' >&2
-  exit 2
-fi
-
-# Lead pane. Prefer the value the lead recorded in its own foreground pane; fall
-# back to the active-pane probe. Rejected if the recorded pane is gone.
-lead_pane=""
-lead_pane_file="$run_dir/state/lead-pane.id"
-[[ -r "$lead_pane_file" ]] && lead_pane="$(head -n1 "$lead_pane_file" 2>/dev/null || true)"
-if [[ -z "$lead_pane" ]] || ! tmux display-message -p -t "$lead_pane" '#{pane_id}' >/dev/null 2>&1; then
-  if type okstra_resolve_caller_pane >/dev/null 2>&1; then
-    lead_pane="$(okstra_resolve_caller_pane 2>/dev/null || true)"
-  else
-    lead_pane="$(tmux display-message -p '#{pane_id}' 2>/dev/null || true)"
-  fi
-fi
-
-_title_in_okstra_scope() {
-  local title="$1"
-  case "$title" in
-    # Claude/FleetView teammate panes may carry the task title instead of the
-    # worker id. These glyph prefixes are the only stable tmux-side signal.
-    "✳ "*|"⠂ "*)
-      return 0 ;;
-    *claude-worker*|*claude-executor*|*claude-verifier*)
-      return 0 ;;
-    *codex-worker*|*codex-executor*|*codex-verifier*)
-      return 0 ;;
-    *agy-worker*|*agy-executor*|*agy-verifier*)
-      return 0 ;;
-    *antigravity-worker*|*antigravity-executor*|*antigravity-verifier*)
-      return 0 ;;
-    *report-writer-worker*|*report-writer*)
-      return 0 ;;
-  esac
-  return 1
-}
-
-# A collected pane whose current title contains any --keep substring is spared.
-_keep_excluded() {
-  local pid="$1" title pat
-  (( ${#KEEP_PATTERNS[@]} )) || return 1
-  title=$(tmux display-message -p -t "$pid" '#{pane_title}' 2>/dev/null || true)
-  for pat in "${KEEP_PATTERNS[@]}"; do
-    [[ -n "$pat" && "$title" == *"$pat"* ]] && return 0
-  done
-  return 1
-}
-
-collect_okstra_panes() {
-  local -a panes=()
-  local pid title
-
-  # Title-allowlisted worker-agent panes in the lead's WINDOW. `list-panes -t
-  # <pane>` (no `-s`, no `-a`) resolves the window containing that pane and lists
-  # only that window's panes. Split-pane teammates always land in the lead's
-  # window, so this catches all of THIS run's worker panes while a second okstra
-  # lead in another window of the same tmux session is left untouched. Skipped
-  # when the lead pane is unknown.
-  [[ -n "$lead_pane" ]] || return 0
-  while IFS=$'\t' read -r pid title; do
-    [[ -n "$pid" ]] || continue
-    [[ "$pid" == "$lead_pane" ]] && continue
-    if _title_in_okstra_scope "$title"; then
-      panes+=("$pid")
-    fi
-  done < <(tmux list-panes -t "$lead_pane" \
-             -F '#{pane_id}'$'\t''#{pane_title}' 2>/dev/null || true)
-
-  # Drop any pane a --keep pattern spares (in-flight report-writer).
-  if (( ${#panes[@]} )); then
-    printf '%s\n' "${panes[@]}" | awk 'NF && !seen[$0]++' | while IFS= read -r _pid; do
-      _keep_excluded "$_pid" && continue
-      printf '%s\n' "$_pid"
-    done
-  fi
-}
-
-if [[ "$MODE" == "list" ]]; then
-  while IFS= read -r pane_id; do
-    [[ -n "$pane_id" ]] || continue
-    # `display-message -p` resolves a *live* pane's title; for stale ids tmux
-    # exits non-zero — fall back to an empty title rather than failing.
-    title=$(tmux display-message -p -t "$pane_id" '#{pane_title}' 2>/dev/null || true)
-    printf '%s\t%s\n' "$pane_id" "$title"
-  done < <(collect_okstra_panes)
-  exit 0
-fi
-
-while IFS= read -r pane_id; do
-  [[ -n "$pane_id" ]] || continue
-  tmux kill-pane -t "$pane_id" 2>/dev/null || true
-done < <(collect_okstra_panes)
-
-exit 0