@walwal-harness/cli 3.7.0 → 3.7.2

package/bin/init.js

@@ -214,6 +214,20 @@ function installScripts() {
   const scriptsSrc = path.join(PKG_ROOT, 'scripts');
   const scriptsDest = path.join(PROJECT_ROOT, 'scripts');
 
+  // Core scripts are ALWAYS overwritten on update (not user-editable)
+  // These contain harness logic that must stay in sync with the CLI version
+  const coreScripts = new Set([
+    'harness-next.sh',
+    'harness-session-start.sh',
+    'harness-statusline.sh',
+    'harness-user-prompt-submit.sh',
+    'harness-dashboard.sh',
+    'harness-monitor.sh',
+    'harness-eval-watcher.sh',
+    'harness-tmux.sh',
+    'harness-control.sh',
+  ]);
+
   if (fs.existsSync(scriptsSrc)) {
     ensureDir(scriptsDest);
     const entries = fs.readdirSync(scriptsSrc, { withFileTypes: true });
@@ -221,21 +235,20 @@ function installScripts() {
       const srcPath = path.join(scriptsSrc, entry.name);
       const destPath = path.join(scriptsDest, entry.name);
       if (entry.isDirectory()) {
-        // Copy subdirectories (e.g., lib/)
-        if (!fileExists(destPath) || isForce) {
-          copyDir(srcPath, destPath);
-          // Make scripts in subdirs executable
-          try {
-            const subFiles = fs.readdirSync(destPath);
-            for (const f of subFiles) {
-              if (f.endsWith('.sh')) {
-                fs.chmodSync(path.join(destPath, f), '755');
-              }
+        // lib/ and other subdirectories — always overwrite
+        copyDir(srcPath, destPath);
+        try {
+          const subFiles = fs.readdirSync(destPath);
+          for (const f of subFiles) {
+            if (f.endsWith('.sh')) {
+              fs.chmodSync(path.join(destPath, f), '755');
             }
-          } catch (e) {}
-        }
+          }
+        } catch (e) {}
       } else {
-        if (!fileExists(destPath) || isForce) {
+        // Core scripts: always overwrite. Others: skip if exists (unless --force)
+        const isCore = coreScripts.has(entry.name);
+        if (isCore || !fileExists(destPath) || isForce) {
           copyFile(srcPath, destPath);
           try { fs.chmodSync(destPath, '755'); } catch (e) {}
         }

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "@walwal-harness/cli",
-  "version": "3.7.0",
+  "version": "3.7.2",
   "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-next.sh

@@ -97,12 +97,38 @@ run_pre_eval_gate() {
   timeout=$(jq -r '.flow.pre_eval_gate.timeout_seconds // 120' "$CONFIG" 2>/dev/null)
 
   # 실패 위치 결정 (backend or frontend)
+  # current_agent가 실패로 변경된 경우, completed_agents에서 직전 Generator를 찾는다
   local location="backend"
   local checks_key="backend_checks"
-  if [ "$current_agent" = "generator-frontend" ] || [ "$current_agent" = "generator-frontend-flutter" ]; then
-    location="frontend"
-    checks_key="frontend_checks"
-  fi
+  local source_agent="$current_agent"
+
+  # current_agent가 generator가 아닌 경우 (예: dispatcher로 리라우팅된 상태),
+  # completed_agents에서 마지막 generator를 찾는다
+  case "$source_agent" in
+    generator-frontend|generator-frontend-flutter)
+      location="frontend"
+      checks_key="frontend_checks"
+      ;;
+    generator-backend)
+      location="backend"
+      checks_key="backend_checks"
+      ;;
+    *)
+      # completed_agents에서 마지막 generator를 역순으로 찾기
+      local last_gen
+      last_gen=$(jq -r '.completed_agents // [] | map(select(startswith("generator-"))) | last // empty' "$PROGRESS" 2>/dev/null)
+      case "$last_gen" in
+        generator-frontend|generator-frontend-flutter)
+          location="frontend"
+          checks_key="frontend_checks"
+          ;;
+        generator-backend)
+          location="backend"
+          checks_key="backend_checks"
+          ;;
+      esac
+      ;;
+  esac
 
   local -a checks
   mapfile -t checks < <(jq -r ".flow.pre_eval_gate.${checks_key}[]" "$CONFIG" 2>/dev/null)

package/scripts/harness-tmux.sh

@@ -77,36 +77,45 @@ fi
 # ══════════════════════════════════════════
 # Layout Construction
 # ══════════════════════════════════════════
-# Step 1: Create session → Pane 0 = Main (Control Center)
-tmux new-session -d -s "$SESSION_NAME" -c "$PROJECT_ROOT" -x 200 -y 50
+# ══════════════════════════════════════════
+# Pane layout:
+#   0 = Dashboard (top-left, auto-refresh)
+#   1 = Monitor (top-right, compact)
+#   2 = Agent Session (mid-right, claude)
+#   3 = Eval Review (bottom-right)
+#   4 = Control Prompt (bottom-left, interactive)
+# ══════════════════════════════════════════
 
-# Step 2: Split right column (45% width) → Pane 1 = Monitor (top-right, compact)
+# Step 1: Create session → Pane 0 = Dashboard (top-left)
+tmux new-session -d -s "$SESSION_NAME" -c "$PROJECT_ROOT" -x 200 -y 50 \
+  "exec bash --norc --noprofile -c 'exec bash \"${SCRIPT_DIR}/harness-dashboard.sh\" \"${PROJECT_ROOT}\"'"
+
+# Step 2: Split right column (45%) → 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}\"'"
 
-# Step 3: Split Pane 1 vertically → Pane 2 = Agent Session (mid-right)
-# Monitor gets ~20% of right column height, remaining 80% split below
+# Step 3: Split Pane 1 vertically (80% below) → Pane 2 = Agent Session
 tmux split-window -v -p 80 -t "${SESSION_NAME}.1" -c "$PROJECT_ROOT"
-
-# Pane 2 = Agent Session (interactive shell, will run claude)
 tmux send-keys -t "${SESSION_NAME}.2" "$CLAUDE_CMD" Enter
 
-# Step 4: Split Pane 2 vertically → Pane 3 = Eval Review (bottom-right)
-# Agent Session and Eval Review split 1:1
+# Step 4: Split Pane 2 vertically (50%) → Pane 3 = Eval Review
 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}'"
 
-# ── Launch Dashboard in Main pane ──
-tmux send-keys -t "${SESSION_NAME}.0" "bash ${SCRIPT_DIR}/harness-dashboard.sh '${PROJECT_ROOT}'" Enter
+# Step 5: Split Dashboard (Pane 0) vertically → Pane 4 = Control Prompt (bottom-left)
+# Dashboard gets ~75% height, Control Prompt gets ~25%
+tmux split-window -v -p 25 -t "${SESSION_NAME}.0" -c "$PROJECT_ROOT"
+tmux send-keys -t "${SESSION_NAME}.4" "bash ${SCRIPT_DIR}/harness-control.sh '${PROJECT_ROOT}'" Enter
 
-# ── Select Main pane as active ──
-tmux select-pane -t "${SESSION_NAME}.0"
+# ── Select Control Prompt as active (where user types) ──
+tmux select-pane -t "${SESSION_NAME}.4"
 
 # ── Pane titles ──
-tmux select-pane -t "${SESSION_NAME}.0" -T "Control Center"
+tmux select-pane -t "${SESSION_NAME}.0" -T "Dashboard"
 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 "${SESSION_NAME}.4" -T "Control"
 
 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