@walwal-harness/cli 3.7.1 → 3.7.3

package/bin/init.js

@@ -225,6 +225,7 @@ function installScripts() {
     'harness-monitor.sh',
     'harness-eval-watcher.sh',
     'harness-tmux.sh',
+    'harness-control.sh',
   ]);
 
   if (fs.existsSync(scriptsSrc)) {

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "@walwal-harness/cli",
-  "version": "3.7.1",
+  "version": "3.7.3",
   "description": "Production harness for AI agent engineering — Planner, Generator(BE/FE), Evaluator(Func/Visual), optional Brainstormer (requirements refinement). Supports React and Flutter FE stacks.",
   "bin": {
     "walwal-harness": "bin/init.js"

package/scripts/harness-control.sh

@@ -0,0 +1,152 @@
+#!/bin/bash
+# harness-control.sh — Control Center 프롬프트 (하단)
+# 사용자 명령을 받아 Agent Session 관리 + progress.log 기록
+#
+# Commands:
+#   next / n        다음 에이전트 세션 시작
+#   retry / r       현재 에이전트 재실행
+#   stop            에이전트 세션 중지
+#   log <message>   progress.log에 수동 메모 추가
+#   clear-fail      failure 상태 클리어
+#   status / s      대시보드 즉시 갱신 (상단 pane)
+#   help / h        도움말
+#   quit / q        종료
+#
+# Usage: bash scripts/harness-control.sh [project-root]
+
+set -uo pipefail
+
+SCRIPT_DIR="$(cd "$(dirname "$0")" && pwd)"
+
+PROJECT_ROOT="${1:-}"
+if [ -z "$PROJECT_ROOT" ]; then
+  source "$SCRIPT_DIR/lib/harness-render-progress.sh"
+  PROJECT_ROOT="$(resolve_harness_root ".")" || {
+    echo "[control] .harness/ not found."
+    exit 1
+  }
+fi
+
+PROGRESS="$PROJECT_ROOT/.harness/progress.json"
+PROGRESS_LOG="$PROJECT_ROOT/.harness/progress.log"
+
+BOLD="\033[1m"
+DIM="\033[2m"
+GREEN="\033[32m"
+YELLOW="\033[33m"
+RED="\033[31m"
+CYAN="\033[36m"
+RESET="\033[0m"
+
+# ── Agent Session pane target ──
+AGENT_PANE="harness-studio.2"
+
+cmd_log() {
+  local msg="$1"
+  if [ -z "$msg" ]; then
+    echo -e "  ${RED}Usage: log <message>${RESET}"
+    return
+  fi
+  local ts
+  ts=$(date +"%Y-%m-%d")
+  echo "${ts} | manual | note | ${msg}" >> "$PROGRESS_LOG"
+  echo -e "  ${GREEN}Logged:${RESET} ${msg}"
+}
+
+cmd_clear_fail() {
+  if [ ! -f "$PROGRESS" ]; then return; fi
+  jq '.failure = {agent: null, location: null, message: null, retry_target: null} |
+      .sprint.status = "in_progress" |
+      .sprint.retry_count = 0 |
+      .agent_status = "completed"' "$PROGRESS" > "${PROGRESS}.tmp" && mv "${PROGRESS}.tmp" "$PROGRESS"
+  echo -e "  ${GREEN}Failure state cleared.${RESET}"
+}
+
+cmd_next() {
+  if ! tmux list-panes -t harness-studio 2>/dev/null | grep -q .; then
+    echo -e "  ${RED}tmux session not found.${RESET}"
+    return
+  fi
+
+  local next_agent
+  next_agent=$(jq -r '.next_agent // "none"' "$PROGRESS" 2>/dev/null)
+  if [ "$next_agent" = "none" ] || [ "$next_agent" = "null" ]; then
+    echo -e "  ${YELLOW}No next agent in queue.${RESET}"
+    return
+  fi
+
+  echo -e "  ${CYAN}Starting ${next_agent} in Agent Session...${RESET}"
+  local ts
+  ts=$(date +"%Y-%m-%d")
+  echo "${ts} | manual | start-agent | ${next_agent}" >> "$PROGRESS_LOG"
+  tmux send-keys -t "$AGENT_PANE" "/harness-${next_agent}" Enter
+}
+
+cmd_retry() {
+  if ! tmux list-panes -t harness-studio 2>/dev/null | grep -q .; then
+    echo -e "  ${RED}tmux session not found.${RESET}"
+    return
+  fi
+
+  local current_agent
+  current_agent=$(jq -r '.current_agent // "none"' "$PROGRESS" 2>/dev/null)
+  if [ "$current_agent" = "none" ] || [ "$current_agent" = "null" ]; then
+    echo -e "  ${YELLOW}No current agent to retry.${RESET}"
+    return
+  fi
+
+  echo -e "  ${CYAN}Retrying ${current_agent}...${RESET}"
+  local ts
+  ts=$(date +"%Y-%m-%d")
+  echo "${ts} | manual | retry | ${current_agent}" >> "$PROGRESS_LOG"
+  tmux send-keys -t "$AGENT_PANE" "/harness-${current_agent}" Enter
+}
+
+cmd_stop() {
+  if ! tmux list-panes -t harness-studio 2>/dev/null | grep -q .; then
+    echo -e "  ${RED}tmux session not found.${RESET}"
+    return
+  fi
+
+  echo -e "  ${YELLOW}Sending Ctrl+C to Agent Session...${RESET}"
+  tmux send-keys -t "$AGENT_PANE" C-c
+  local ts
+  ts=$(date +"%Y-%m-%d")
+  echo "${ts} | manual | stop | user-initiated" >> "$PROGRESS_LOG"
+}
+
+show_help() {
+  echo ""
+  echo -e "  ${BOLD}Commands${RESET}"
+  echo -e "  ${CYAN}next${RESET}   / ${CYAN}n${RESET}          Start next agent"
+  echo -e "  ${CYAN}retry${RESET}  / ${CYAN}r${RESET}          Retry current agent"
+  echo -e "  ${CYAN}stop${RESET}              Send Ctrl+C to agent"
+  echo -e "  ${CYAN}log${RESET} <message>     Add note to progress.log"
+  echo -e "  ${CYAN}clear-fail${RESET}        Clear failure state"
+  echo -e "  ${CYAN}help${RESET}  / ${CYAN}h${RESET}          Show this help"
+  echo -e "  ${CYAN}quit${RESET}  / ${CYAN}q${RESET}          Exit"
+  echo ""
+}
+
+# ── Main ──
+echo ""
+echo -e "  ${BOLD}Harness Control${RESET}  ${DIM}(type 'help' for commands)${RESET}"
+echo ""
+
+while true; do
+  echo -ne "  ${BOLD}harness>${RESET} "
+  read -r input || exit 0
+  input=$(echo "$input" | sed 's/^[[:space:]]*//;s/[[:space:]]*$//')
+
+  case "$input" in
+    next|n)         cmd_next ;;
+    retry|r)        cmd_retry ;;
+    stop)           cmd_stop ;;
+    log\ *)         cmd_log "${input#log }" ;;
+    clear-fail)     cmd_clear_fail ;;
+    help|h)         show_help ;;
+    quit|q)         echo -e "  ${DIM}Goodbye.${RESET}"; exit 0 ;;
+    "")             ;; # empty — just re-prompt
+    *)              echo -e "  ${DIM}Logging as note.${RESET}"; cmd_log "$input" ;;
+  esac
+done

package/scripts/harness-dashboard.sh

@@ -260,12 +260,9 @@ render_agent_info() {
 }
 
 # ══════════════════════════════════════════
-# Full dashboard render
+# Full dashboard render (in-place update)
 # ══════════════════════════════════════════
 render_dashboard() {
-  tput cup 0 0 2>/dev/null
-  tput civis 2>/dev/null
-
   local buf
   buf=$(
     render_header
@@ -280,190 +277,23 @@ render_dashboard() {
 
     render_agent_info
   )
+
+  tput civis 2>/dev/null
+  tput cup 0 0 2>/dev/null
   echo "$buf"
   tput ed 2>/dev/null
   tput cnorm 2>/dev/null
 }
 
 # ══════════════════════════════════════════
-# Command handlers
+# Main — Auto-refresh dashboard loop
 # ══════════════════════════════════════════
+tput civis 2>/dev/null
+trap 'tput cnorm 2>/dev/null; exit 0' EXIT INT TERM
 
-cmd_log() {
-  local msg="$1"
-  if [ -z "$msg" ]; then
-    echo -e "  ${RED}Usage: log <message>${RESET}"
-    return
-  fi
-
-  local ts
-  ts=$(date +"%Y-%m-%d")
-  echo "${ts} | manual | note | ${msg}" >> "$PROGRESS_LOG"
-  echo -e "  ${GREEN}Logged:${RESET} ${msg}"
-}
-
-cmd_clear_fail() {
-  if [ ! -f "$PROGRESS" ]; then return; fi
-
-  jq '.failure = {agent: null, location: null, message: null, retry_target: null} |
-      .sprint.status = "in_progress" |
-      .sprint.retry_count = 0 |
-      .agent_status = "completed"' "$PROGRESS" > "${PROGRESS}.tmp" && mv "${PROGRESS}.tmp" "$PROGRESS"
-  echo -e "  ${GREEN}Failure state cleared.${RESET}"
-}
-
-cmd_next() {
-  # Find the Agent Session pane and send the next agent command
-  local tmux_target="harness-studio.2"  # Agent Session pane
-
-  if ! tmux list-panes -t harness-studio 2>/dev/null | grep -q .; then
-    echo -e "  ${RED}tmux session not found. Run inside harness-studio.${RESET}"
-    return
-  fi
-
-  local next_agent
-  next_agent=$(jq -r '.next_agent // "none"' "$PROGRESS" 2>/dev/null)
-
-  if [ "$next_agent" = "none" ] || [ "$next_agent" = "null" ]; then
-    echo -e "  ${YELLOW}No next agent in queue.${RESET}"
-    return
-  fi
-
-  echo -e "  ${CYAN}Starting ${next_agent} in Agent Session pane...${RESET}"
-
-  # Log the manual intervention
-  local ts
-  ts=$(date +"%Y-%m-%d")
-  echo "${ts} | manual | start-agent | ${next_agent}" >> "$PROGRESS_LOG"
-
-  # Send command to Agent Session pane
-  tmux send-keys -t "$tmux_target" "/harness-${next_agent}" Enter
-}
-
-cmd_retry() {
-  local tmux_target="harness-studio.2"
-
-  if ! tmux list-panes -t harness-studio 2>/dev/null | grep -q .; then
-    echo -e "  ${RED}tmux session not found.${RESET}"
-    return
-  fi
-
-  local current_agent
-  current_agent=$(jq -r '.current_agent // "none"' "$PROGRESS" 2>/dev/null)
-
-  if [ "$current_agent" = "none" ] || [ "$current_agent" = "null" ]; then
-    echo -e "  ${YELLOW}No current agent to retry.${RESET}"
-    return
-  fi
-
-  echo -e "  ${CYAN}Retrying ${current_agent} in Agent Session pane...${RESET}"
-
-  local ts
-  ts=$(date +"%Y-%m-%d")
-  echo "${ts} | manual | retry | ${current_agent}" >> "$PROGRESS_LOG"
-
-  tmux send-keys -t "$tmux_target" "/harness-${current_agent}" Enter
-}
-
-cmd_stop() {
-  local tmux_target="harness-studio.2"
-
-  if ! tmux list-panes -t harness-studio 2>/dev/null | grep -q .; then
-    echo -e "  ${RED}tmux session not found.${RESET}"
-    return
-  fi
-
-  echo -e "  ${YELLOW}Sending Ctrl+C to Agent Session...${RESET}"
-  tmux send-keys -t "$tmux_target" C-c
-
-  local ts
-  ts=$(date +"%Y-%m-%d")
-  echo "${ts} | manual | stop | user-initiated" >> "$PROGRESS_LOG"
-}
-
-show_help() {
-  echo ""
-  echo -e "  ${BOLD}Commands${RESET}"
-  echo -e "  ${CYAN}status${RESET} / ${CYAN}s${RESET}          Refresh dashboard"
-  echo -e "  ${CYAN}next${RESET}   / ${CYAN}n${RESET}          Start next agent in Agent Session"
-  echo -e "  ${CYAN}retry${RESET}  / ${CYAN}r${RESET}          Retry current agent"
-  echo -e "  ${CYAN}stop${RESET}              Send Ctrl+C to Agent Session"
-  echo -e "  ${CYAN}log${RESET} <message>     Add note to progress.log"
-  echo -e "  ${CYAN}clear-fail${RESET}        Clear failure state"
-  echo -e "  ${CYAN}help${RESET}  / ${CYAN}h${RESET}          Show this help"
-  echo -e "  ${CYAN}quit${RESET}  / ${CYAN}q${RESET}          Exit dashboard"
-  echo ""
-}
-
-# ══════════════════════════════════════════
-# Main — Interactive loop
-# ══════════════════════════════════════════
 clear
-render_dashboard
-
-echo ""
-echo -e "  ${DIM}Type 'help' for commands. Dashboard auto-refreshes every 5s.${RESET}"
-echo ""
-
-# Background auto-refresh
-(
-  while true; do
-    sleep 5
-    # Signal main process to refresh
-    kill -USR1 $$ 2>/dev/null || exit 0
-  done
-) &
-REFRESH_PID=$!
-
-# Trap USR1 to refresh dashboard
-trap 'render_dashboard' USR1
-trap 'kill $REFRESH_PID 2>/dev/null; exit 0' EXIT INT TERM
 
 while true; do
-  echo -ne "  ${BOLD}harness>${RESET} "
-  # Read with timeout so USR1 can interrupt
-  if read -t 5 -r input; then
-    # Trim whitespace
-    input=$(echo "$input" | sed 's/^[[:space:]]*//;s/[[:space:]]*$//')
-
-    case "$input" in
-      status|s)
-        render_dashboard
-        ;;
-      next|n)
-        cmd_next
-        ;;
-      retry|r)
-        cmd_retry
-        ;;
-      stop)
-        cmd_stop
-        ;;
-      log\ *)
-        cmd_log "${input#log }"
-        ;;
-      clear-fail)
-        cmd_clear_fail
-        ;;
-      help|h)
-        show_help
-        ;;
-      quit|q)
-        echo -e "  ${DIM}Goodbye.${RESET}"
-        exit 0
-        ;;
-      "")
-        # Empty input — just refresh
-        render_dashboard
-        ;;
-      *)
-        # Unknown command — treat as manual note
-        echo -e "  ${DIM}Unknown command. Logging as note.${RESET}"
-        cmd_log "$input"
-        ;;
-    esac
-  else
-    # Timeout — auto-refresh
-    render_dashboard
-  fi
+  render_dashboard
+  sleep 3
 done

package/scripts/harness-tmux.sh

@@ -1,22 +1,21 @@
 #!/bin/bash
-# harness-tmux.sh — Harness Studio tmux 4-pane 레이아웃
+# harness-tmux.sh — Harness Studio tmux 5-pane 레이아웃
 #
-# ┌───────────────────────────┬─────────────────────────┐
-# │                           │ Monitor (compact)       │
-# │  Main: Control Center     ├─────────────────────────┤
-# │  (Dashboard + Manual      │ Agent Session            │
-# │   Prompt + Orchestration) │ (claude --skip-perms)    │
-# │                           ├─────────────────────────┤
-# │                           │ Eval Review              │
-# │                           │ (eval 결과 요약)          │
-# └───────────────────────────┴─────────────────────────┘
+# ┌─────────────────────────┬────────────────────────┐
+# │  Dashboard (auto-refresh)│ Monitor (compact)      │
+# │                          ├────────────────────────┤
+# │                          │ Agent Session (claude)  │
+# ├─────────────────────────┤                         │
+# │  Control (harness> _)    ├────────────────────────┤
+# │                          │ Eval Review             │
+# └─────────────────────────┴────────────────────────┘
 #
 # Usage:
 #   bash scripts/harness-tmux.sh [project-root]
 #   bash scripts/harness-tmux.sh /path/to/project --ai
 #
 # Options:
-#   --ai        Eval Review에서 claude -p 로 AI 요약 생성
+#   --ai        Eval Review에서 claude -p AI 요약
 #   --detach    세션 생성 후 attach 하지 않음
 #   --kill      기존 harness-studio 세션 종료
 
@@ -34,7 +33,7 @@ for arg in "$@"; do
     --ai)     USE_AI="--ai" ;;
     --detach) DETACH=true ;;
     --kill)
-      tmux kill-session -t "$SESSION_NAME" 2>/dev/null && echo "Session '$SESSION_NAME' killed." || echo "No session to kill."
+      tmux kill-session -t "$SESSION_NAME" 2>/dev/null && echo "Killed." || echo "No session."
       exit 0
       ;;
     *)
@@ -43,7 +42,6 @@ for arg in "$@"; do
   esac
 done
 
-# Auto-detect project root
 if [ -z "$PROJECT_ROOT" ]; then
   dir="$(pwd)"
   while [ "$dir" != "/" ]; do
@@ -53,18 +51,16 @@ if [ -z "$PROJECT_ROOT" ]; then
 fi
 
 if [ -z "$PROJECT_ROOT" ] || [ ! -d "$PROJECT_ROOT/.harness" ]; then
-  echo "Error: .harness/ directory not found."
-  echo "Usage: bash scripts/harness-tmux.sh [project-root]"
+  echo "Error: .harness/ not found."
   exit 1
 fi
 
 echo "Project: $PROJECT_ROOT"
 echo "Session: $SESSION_NAME"
 
-# Kill existing session if any
 tmux kill-session -t "$SESSION_NAME" 2>/dev/null || true
 
-# ── Resolve Claude command for Agent Session ──
+# ── Resolve Claude command ──
 HANDOFF="$PROJECT_ROOT/.harness/handoff.json"
 CLAUDE_CMD="claude --dangerously-skip-permissions"
 if [ -f "$HANDOFF" ]; then
@@ -75,57 +71,65 @@ if [ -f "$HANDOFF" ]; then
 fi
 
 # ══════════════════════════════════════════
-# Layout Construction
+# Build layout using explicit pane IDs
 # ══════════════════════════════════════════
-# Step 1: Create session → Pane 0 = Main (Control Center)
-tmux new-session -d -s "$SESSION_NAME" -c "$PROJECT_ROOT" -x 200 -y 50
 
-# Step 2: Split right column (45% width) → Pane 1 = Monitor (top-right, compact)
-tmux split-window -h -p 45 -t "$SESSION_NAME" -c "$PROJECT_ROOT" \
-  "exec bash --norc --noprofile -c 'exec bash \"${SCRIPT_DIR}/harness-monitor.sh\" \"${PROJECT_ROOT}\"'"
+# 1. Create session → capture Dashboard pane ID
+PANE_DASHBOARD=$(tmux new-session -d -s "$SESSION_NAME" -c "$PROJECT_ROOT" -x 200 -y 50 \
+  -P -F '#{pane_id}' \
+  "bash --norc --noprofile -c 'exec bash \"${SCRIPT_DIR}/harness-dashboard.sh\" \"${PROJECT_ROOT}\"'")
 
-# Step 3: Split Pane 1 vertically → Pane 2 = Agent Session (mid-right)
-# Monitor gets ~20% of right column height, remaining 80% split below
-tmux split-window -v -p 80 -t "${SESSION_NAME}.1" -c "$PROJECT_ROOT"
+# 2. Split Dashboard horizontally (55% left / 45% right) → Monitor pane
+PANE_MONITOR=$(tmux split-window -h -p 45 -t "$PANE_DASHBOARD" -c "$PROJECT_ROOT" \
+  -P -F '#{pane_id}' \
+  "bash --norc --noprofile -c 'exec bash \"${SCRIPT_DIR}/harness-monitor.sh\" \"${PROJECT_ROOT}\"'")
 
-# Pane 2 = Agent Session (interactive shell, will run claude)
-tmux send-keys -t "${SESSION_NAME}.2" "$CLAUDE_CMD" Enter
+# 3. Split Dashboard vertically (75% top / 25% bottom) → Control pane
+PANE_CONTROL=$(tmux split-window -v -p 25 -t "$PANE_DASHBOARD" -c "$PROJECT_ROOT" \
+  -P -F '#{pane_id}' \
+  "bash --norc --noprofile -c 'exec bash \"${SCRIPT_DIR}/harness-control.sh\" \"${PROJECT_ROOT}\"'")
 
-# Step 4: Split Pane 2 vertically → Pane 3 = Eval Review (bottom-right)
-# Agent Session and Eval Review split 1:1
-tmux split-window -v -p 50 -t "${SESSION_NAME}.2" -c "$PROJECT_ROOT" \
-  "exec bash --norc --noprofile -c 'exec bash \"${SCRIPT_DIR}/harness-eval-watcher.sh\" \"${PROJECT_ROOT}\" ${USE_AI}'"
+# 4. Split Monitor vertically (15% top / 85% bottom) → Agent Session pane
+PANE_AGENT=$(tmux split-window -v -p 85 -t "$PANE_MONITOR" -c "$PROJECT_ROOT" \
+  -P -F '#{pane_id}')
 
-# ── Launch Dashboard in Main pane ──
-tmux send-keys -t "${SESSION_NAME}.0" "bash ${SCRIPT_DIR}/harness-dashboard.sh '${PROJECT_ROOT}'" Enter
+# 5. Split Agent Session vertically (55% top / 45% bottom) → Eval Review pane
+PANE_EVAL=$(tmux split-window -v -p 45 -t "$PANE_AGENT" -c "$PROJECT_ROOT" \
+  -P -F '#{pane_id}' \
+  "bash --norc --noprofile -c 'exec bash \"${SCRIPT_DIR}/harness-eval-watcher.sh\" \"${PROJECT_ROOT}\" ${USE_AI}'")
 
-# ── Select Main pane as active ──
-tmux select-pane -t "${SESSION_NAME}.0"
+# 6. Launch Claude in Agent Session (needs interactive shell, so use send-keys)
+#    Prefix with unset to avoid nvm warnings
+tmux send-keys -t "$PANE_AGENT" "unset npm_config_prefix 2>/dev/null; $CLAUDE_CMD" Enter
 
 # ── Pane titles ──
-tmux select-pane -t "${SESSION_NAME}.0" -T "Control Center"
-tmux select-pane -t "${SESSION_NAME}.1" -T "Monitor"
-tmux select-pane -t "${SESSION_NAME}.2" -T "Agent Session"
-tmux select-pane -t "${SESSION_NAME}.3" -T "Eval Review"
+tmux select-pane -t "$PANE_DASHBOARD" -T "Dashboard"
+tmux select-pane -t "$PANE_MONITOR"   -T "Monitor"
+tmux select-pane -t "$PANE_CONTROL"   -T "Control"
+tmux select-pane -t "$PANE_AGENT"     -T "Agent Session"
+tmux select-pane -t "$PANE_EVAL"      -T "Eval Review"
 
 tmux set-option -t "$SESSION_NAME" pane-border-status top 2>/dev/null || true
 tmux set-option -t "$SESSION_NAME" pane-border-format " #{pane_title} " 2>/dev/null || true
 
+# ── Focus on Control pane (where user types) ──
+tmux select-pane -t "$PANE_CONTROL"
+
 # ── Attach ──
 if [ "$DETACH" = true ]; then
   echo ""
-  echo "Session created. Attach with:"
-  echo "  tmux attach -t $SESSION_NAME"
+  echo "Session created. Attach: tmux attach -t $SESSION_NAME"
 else
   if [ -n "${TMUX:-}" ]; then
     tmux switch-client -t "$SESSION_NAME"
   else
     echo ""
     echo "Launching harness-studio..."
-    echo "  Control Center (left)  : Dashboard + manual prompting"
-    echo "  Monitor (right↑)       : Agent lifecycle (compact)"
-    echo "  Agent Session (right↔) : claude --dangerously-skip-permissions"
-    echo "  Eval Review (right↓)   : Evaluation summaries"
+    echo "  Dashboard (left↑)   : Auto-refresh progress"
+    echo "  Control (left↓)     : Manual commands (next/retry/stop/log)"
+    echo "  Monitor (right↑)    : Agent lifecycle (compact)"
+    echo "  Agent Session (right↔): claude --dangerously-skip-permissions"
+    echo "  Eval Review (right↓): Evaluation summaries"
     echo ""
     tmux attach -t "$SESSION_NAME"
   fi