workflow-ledger 0.3.5 → 0.3.8

package/bin/workflow-ledger

@@ -1,417 +0,0 @@
-#!/usr/bin/env bash
-set -u
-
-SCRIPT_DIR="$(cd "$(dirname "${BASH_SOURCE[0]}")" && pwd)"
-if [ -n "${WORKFLOW_LEDGER_ROOT:-}" ]; then
-  ROOT="$WORKFLOW_LEDGER_ROOT"
-elif [ "$(basename "$SCRIPT_DIR")" = "bin" ] && [ "$(basename "$(dirname "$SCRIPT_DIR")")" = ".claude" ]; then
-  ROOT="$(cd "$SCRIPT_DIR/../.." && pwd)"
-else
-  ROOT="$PWD"
-fi
-LEDGER="$ROOT/.claude/WORKFLOW.md"
-REPO_ROOT="$(cd "$SCRIPT_DIR/.." && pwd)"
-
-error_count=0
-warning_count=0
-
-print_help() {
-  cat <<'HELP'
-workflow-ledger — lightweight project-local workflow guardrails
-
-Usage:
-  workflow-ledger help
-  workflow-ledger init
-  workflow-ledger doctor
-  workflow-ledger list
-  workflow-ledger hooks status
-  workflow-ledger hooks install
-
-Exit codes:
-  help: always 0
-  init: 0 on created/already exists/guidance, 1 on filesystem errors
-  doctor: 0 when no errors, 1 when errors exist
-  list: 0 for readable output or missing ledger, 1 when ledger exists but cannot be read
-  hooks status: 0 when status is reported, 1 on filesystem errors
-  hooks install: 0 when installed or no-op, 1 on filesystem errors
-HELP
-}
-
-say_error() {
-  error_count=$((error_count + 1))
-  printf 'ERROR: %s\n' "$1"
-}
-
-say_warning() {
-  warning_count=$((warning_count + 1))
-  printf 'WARNING: %s\n' "$1"
-}
-
-say_info() {
-  printf 'INFO: %s\n' "$1"
-}
-
-section_exists() {
-  local name="$1"
-  grep -Eq "^##[[:space:]]+$name[[:space:]]*$" "$LEDGER"
-}
-
-hook_status_value() {
-  local hooks_json="$ROOT/.claude/hooks/hooks.json"
-  local hook_script="$ROOT/.claude/hooks/session-start"
-  if [ ! -f "$hooks_json" ] || [ ! -f "$hook_script" ]; then
-    printf 'not installed'
-    return 0
-  fi
-  if grep -Fq 'SessionStart' "$hooks_json" && grep -Fq '.claude/hooks/session-start' "$hooks_json" && [ -x "$hook_script" ]; then
-    printf 'installed'
-  else
-    printf 'incomplete'
-  fi
-}
-
-find_template() {
-  local candidates=(
-    "$ROOT/.claude/skills/workflow-ledger/templates/WORKFLOW.md"
-    "$REPO_ROOT/skills/workflow-ledger/templates/WORKFLOW.md"
-  )
-  local candidate
-  for candidate in "${candidates[@]}"; do
-    if [ -f "$candidate" ]; then
-      printf '%s' "$candidate"
-      return 0
-    fi
-  done
-  return 1
-}
-
-cmd_init() {
-  if ! mkdir -p "$ROOT/.claude" 2>/dev/null; then
-    printf 'error: cannot create .claude directory\n' >&2
-    return 1
-  fi
-
-  if [ -f "$LEDGER" ]; then
-    printf 'kept existing .claude/WORKFLOW.md\n'
-  else
-    local template
-    if ! template="$(find_template)"; then
-      printf 'workflow-ledger skill template not found; run install.sh from the workflow-ledger checkout.\n' >&2
-      return 0
-    fi
-    if ! cp "$template" "$LEDGER" 2>/dev/null; then
-      printf 'error: cannot create .claude/WORKFLOW.md\n' >&2
-      return 1
-    fi
-    printf 'created .claude/WORKFLOW.md\n'
-  fi
-
-  if [ ! -d "$ROOT/.claude/skills/workflow-ledger" ]; then
-    printf 'note: .claude/skills/workflow-ledger is missing; run install.sh to install the skill.\n' >&2
-  fi
-  return 0
-}
-
-cmd_doctor() {
-  error_count=0
-  warning_count=0
-
-  if [ ! -f "$LEDGER" ]; then
-    say_error '.claude/WORKFLOW.md is missing.'
-    return 1
-  fi
-  if [ ! -r "$LEDGER" ]; then
-    say_error '.claude/WORKFLOW.md exists but cannot be read.'
-    return 1
-  fi
-
-  section_exists 'Active' || say_error 'Missing ## Active section.'
-  section_exists 'Backlog / Future' || say_error 'Missing ## Backlog / Future section.'
-  section_exists 'Completed' || say_error 'Missing ## Completed section.'
-
-  local active_count=0
-  local backlog_items=0
-  local completed_items=0
-  local hook_status
-  hook_status="$(hook_status_value)"
-
-  local in_active=0 in_backlog=0 in_completed=0
-  local task_title='' task_status='' task_level='' task_current=''
-  local task_has_intent=0 task_has_todo=0 task_has_changes=0 task_has_prereq=0 task_has_resume=0 task_has_blocked_by=0 task_has_close_summary=0
-  local task_line_count=0
-
-  finish_task() {
-    if [ -z "$task_title" ]; then
-      return 0
-    fi
-
-    if [ "$task_status" = 'In Progress' ]; then
-      [ -n "$task_current" ] || say_error "In Progress task '$task_title' lacks Current phase."
-      [ "$task_has_intent" -eq 1 ] || say_error "In Progress task '$task_title' lacks Intent."
-      [ "$task_has_todo" -eq 1 ] || say_error "In Progress task '$task_title' lacks Current todo."
-      [ "$task_has_resume" -eq 1 ] || say_error "In Progress task '$task_title' lacks Resume next."
-      if [ "$task_level" = '2' ] || [ "$task_level" = '3' ]; then
-        [ "$task_has_changes" -eq 1 ] || say_warning "Level $task_level task '$task_title' lacks Changes."
-        [ "$task_has_prereq" -eq 1 ] || say_warning "Level $task_level task '$task_title' lacks Prerequisites."
-      fi
-    fi
-
-    if [ "$task_status" = 'Blocked' ]; then
-      [ "$task_has_blocked_by" -eq 1 ] || say_error "Blocked task '$task_title' lacks Blocked by."
-      [ "$task_has_resume" -eq 1 ] || say_error "Blocked task '$task_title' lacks Resume next."
-    fi
-
-    if [ "$task_status" = 'Done' ] || [ "$task_status" = 'Completed' ]; then
-      [ "$task_has_close_summary" -eq 1 ] || say_warning "Completed task '$task_title' is still under Active and lacks Close summary. Move it to ## Completed when closing."
-    fi
-
-    if [ "$task_line_count" -gt 80 ]; then
-      say_warning "Task '$task_title' has more than 80 lines."
-    fi
-  }
-
-  while IFS= read -r line || [ -n "$line" ]; do
-    case "$line" in
-      '## Active')
-        finish_task
-        in_active=1; in_backlog=0; in_completed=0
-        task_title=''
-        continue
-        ;;
-      '## Backlog / Future')
-        finish_task
-        in_active=0; in_backlog=1; in_completed=0
-        task_title=''
-        continue
-        ;;
-      '## Completed')
-        finish_task
-        in_active=0; in_backlog=0; in_completed=1
-        task_title=''
-        continue
-        ;;
-      '## '*)
-        finish_task
-        in_active=0; in_backlog=0; in_completed=0
-        task_title=''
-        ;;
-    esac
-
-    if [ "$in_backlog" -eq 1 ] && [[ "$line" =~ ^-[[:space:]]+(\[[[:space:]xX]\][[:space:]]+)? ]]; then
-      backlog_items=$((backlog_items + 1))
-    fi
-    if [ "$in_completed" -eq 1 ] && [[ "$line" =~ ^###[[:space:]]+ ]]; then
-      completed_items=$((completed_items + 1))
-    fi
-
-    if [ "$in_active" -eq 1 ]; then
-      if [ -n "$task_title" ]; then
-        task_line_count=$((task_line_count + 1))
-      fi
-      if [[ "$line" =~ ^###[[:space:]]+(.+) ]]; then
-        finish_task
-        active_count=$((active_count + 1))
-        task_title="${BASH_REMATCH[1]}"
-        task_status=''; task_level=''; task_current=''
-        task_has_intent=0; task_has_todo=0; task_has_changes=0; task_has_prereq=0; task_has_resume=0; task_has_blocked_by=0; task_has_close_summary=0
-        task_line_count=1
-        continue
-      fi
-      [[ "$line" =~ ^Status:[[:space:]]*(.+) ]] && [ -z "$task_status" ] && task_status="${BASH_REMATCH[1]}"
-      [[ "$line" =~ ^Level:[[:space:]]*([0-3]) ]] && task_level="${BASH_REMATCH[1]}"
-      [[ "$line" =~ ^Current[[:space:]]phase:[[:space:]]*(.+) ]] && task_current="${BASH_REMATCH[1]}"
-      [[ "$line" =~ ^Intent: ]] && task_has_intent=1
-      [[ "$line" =~ ^Current[[:space:]]todo: ]] && task_has_todo=1
-      [[ "$line" =~ ^Changes: ]] && task_has_changes=1
-      [[ "$line" =~ ^Prerequisites: ]] && task_has_prereq=1
-      [[ "$line" =~ ^Blocked[[:space:]]by: ]] && task_has_blocked_by=1
-      [[ "$line" =~ ^Resume[[:space:]]next: ]] && task_has_resume=1
-      [[ "$line" =~ ^Close[[:space:]]summary: ]] && task_has_close_summary=1
-    fi
-  done < "$LEDGER"
-  finish_task
-
-  if [ "$backlog_items" -gt 10 ]; then
-    say_warning 'Backlog / Future contains more than 10 items.'
-  fi
-  if [ "$active_count" -gt 1 ]; then
-    say_warning 'More than one Active task; include priority, blocker state, and Resume next if this is intentional.'
-  fi
-
-  say_info "Active tasks: $active_count"
-  say_info "Backlog items: $backlog_items"
-  say_info "Completed tasks: $completed_items"
-  if ledger_mtime="$(stat -c %Y "$LEDGER" 2>/dev/null)"; then
-    say_info "Ledger modified: $(date -d "@$ledger_mtime" '+%Y-%m-%d %H:%M:%S' 2>/dev/null || printf '%s' "$ledger_mtime")"
-  fi
-  if command -v git >/dev/null 2>&1 && git -C "$ROOT" rev-parse --is-inside-work-tree >/dev/null 2>&1; then
-    local commit_time
-    if commit_time="$(git -C "$ROOT" log -1 --format=%ct 2>/dev/null)" && [ -n "$commit_time" ]; then
-      say_info "Latest git commit: $(date -d "@$commit_time" '+%Y-%m-%d %H:%M:%S' 2>/dev/null || printf '%s' "$commit_time")"
-      if [ -n "${ledger_mtime:-}" ] && [ "$ledger_mtime" -lt "$commit_time" ]; then
-        say_warning 'Ledger modified time is older than latest git commit.'
-      fi
-    fi
-  fi
-  say_info "Hooks: $hook_status"
-
-  if [ "$error_count" -gt 0 ]; then
-    printf 'doctor finished with %d error(s), %d warning(s).\n' "$error_count" "$warning_count"
-    return 1
-  fi
-  printf 'doctor finished with 0 errors, %d warning(s).\n' "$warning_count"
-  return 0
-}
-
-cmd_list() {
-  if [ ! -f "$LEDGER" ]; then
-    printf 'No .claude/WORKFLOW.md found; no tasks to list.\n' >&2
-    return 0
-  fi
-  if [ ! -r "$LEDGER" ]; then
-    printf 'error: .claude/WORKFLOW.md exists but cannot be read.\n' >&2
-    return 1
-  fi
-
-  local in_active=0 in_backlog=0 in_completed=0 in_resume=0
-  local backlog_items=0 completed_items=0
-  local current_task='' status='' level='' current_phase='' resume_next=''
-
-  print_task() {
-    if [ -n "$current_task" ]; then
-      local meta=''
-      [ -n "$level" ] && meta="[Level $level]"
-      [ -n "$status" ] && meta="$meta $status"
-      printf -- '- %s %s\n' "$current_task" "$meta"
-      [ -n "$current_phase" ] && printf '  Current phase: %s\n' "$current_phase"
-      [ -n "$resume_next" ] && printf '  Resume next: %s\n' "$resume_next"
-    fi
-  }
-
-  printf 'Active:\n'
-  while IFS= read -r line || [ -n "$line" ]; do
-    case "$line" in
-      '## Active') in_active=1; in_backlog=0; in_completed=0; in_resume=0; continue ;;
-      '## Backlog / Future') print_task; current_task=''; in_active=0; in_backlog=1; in_completed=0; in_resume=0; continue ;;
-      '## Completed') print_task; current_task=''; in_active=0; in_backlog=0; in_completed=1; in_resume=0; continue ;;
-      '## '*) print_task; current_task=''; in_active=0; in_backlog=0; in_completed=0; in_resume=0 ;;
-    esac
-    if [ "$in_active" -eq 1 ]; then
-      if [[ "$line" =~ ^###[[:space:]]+(.+) ]]; then
-        print_task
-        current_task="${BASH_REMATCH[1]}"; status=''; level=''; current_phase=''; resume_next=''; in_resume=0
-      elif [[ "$line" =~ ^Status:[[:space:]]*(.+) ]] && [ -z "$status" ]; then
-        status="${BASH_REMATCH[1]}"
-        in_resume=0
-      elif [[ "$line" =~ ^Level:[[:space:]]*([0-3]) ]]; then
-        level="${BASH_REMATCH[1]}"
-        in_resume=0
-      elif [[ "$line" =~ ^Current[[:space:]]phase:[[:space:]]*(.+) ]]; then
-        current_phase="${BASH_REMATCH[1]}"
-        in_resume=0
-      elif [[ "$line" =~ ^Resume[[:space:]]next: ]]; then
-        in_resume=1
-      elif [ "$in_resume" -eq 1 ] && [[ "$line" =~ ^-[[:space:]]+(.+) ]]; then
-        [ -z "$resume_next" ] && resume_next="${BASH_REMATCH[1]}"
-      elif [[ -n "$line" && ! "$line" =~ ^[[:space:]]*$ ]]; then
-        in_resume=0
-      fi
-    elif [ "$in_backlog" -eq 1 ] && [[ "$line" =~ ^-[[:space:]]+(\[[[:space:]xX]\][[:space:]]+)? ]]; then
-      backlog_items=$((backlog_items + 1))
-    elif [ "$in_completed" -eq 1 ] && [[ "$line" =~ ^###[[:space:]]+ ]]; then
-      completed_items=$((completed_items + 1))
-    fi
-  done < "$LEDGER"
-  print_task
-  printf '\nBacklog / Future:\n- %d items\n\nCompleted:\n- %d items\n' "$backlog_items" "$completed_items"
-}
-
-cmd_hooks_status() {
-  local hooks_json="$ROOT/.claude/hooks/hooks.json"
-  local hook_script="$ROOT/.claude/hooks/session-start"
-  printf 'hooks: %s\n' "$(hook_status_value)"
-  printf 'hooks.json: %s\n' "$hooks_json"
-  printf 'session-start: %s\n' "$hook_script"
-  return 0
-}
-
-cmd_hooks_install() {
-  local target_dir="$ROOT/.claude/hooks"
-  if ! mkdir -p "$target_dir" 2>/dev/null; then
-    printf 'error: cannot create .claude/hooks directory.\n' >&2
-    return 1
-  fi
-  if [ -e "$target_dir/hooks.json" ]; then
-    printf 'kept existing .claude/hooks/hooks.json\n'
-  else
-    cat > "$target_dir/hooks.json" <<'HOOKS_JSON'
-{
-  "hooks": {
-    "SessionStart": [
-      {
-        "matcher": "",
-        "command": ".claude/hooks/session-start"
-      }
-    ]
-  }
-}
-HOOKS_JSON
-    printf 'installed .claude/hooks/hooks.json\n'
-  fi
-  if [ -e "$target_dir/session-start" ]; then
-    printf 'kept existing .claude/hooks/session-start\n'
-  else
-    cat > "$target_dir/session-start" <<'HOOK_SCRIPT'
-#!/usr/bin/env bash
-set -u
-
-ledger=".claude/WORKFLOW.md"
-cli=".claude/bin/workflow-ledger"
-
-if [ ! -f "$ledger" ]; then
-  exit 0
-fi
-
-if [ -n "${CLAUDE_PLUGIN_ROOT:-}" ]; then
-  cat <<'PLUGIN_JSON'
-{"hookSpecificOutput":{"hookEventName":"SessionStart","additionalContext":"Workflow Ledger detected.\n- Read .claude/WORKFLOW.md before resuming tracked work.\n- Check Active tasks, Current phase/current focus, Current todo, and Resume next.\n- Run workflow-ledger doctor if state may be stale."}}
-PLUGIN_JSON
-  exit 0
-fi
-
-printf 'Workflow Ledger detected.\n'
-printf -- '- Read .claude/WORKFLOW.md before resuming tracked work.\n'
-printf -- '- Check Active tasks, Current phase/current focus, Current todo, and Resume next.\n'
-
-if [ -x "$cli" ]; then
-  printf -- '- Run .claude/bin/workflow-ledger doctor if state may be stale.\n'
-else
-  printf -- '- Run workflow-ledger doctor if the project CLI is available.\n'
-fi
-
-exit 0
-HOOK_SCRIPT
-    chmod +x "$target_dir/session-start" || return 1
-    printf 'installed .claude/hooks/session-start\n'
-  fi
-}
-main() {
-  local cmd="${1:-help}"
-  case "$cmd" in
-    help|-h|--help) print_help; return 0 ;;
-    init) shift; cmd_init "$@" ;;
-    doctor) shift; cmd_doctor "$@" ;;
-    list) shift; cmd_list "$@" ;;
-    hooks)
-      local sub="${2:-status}"
-      case "$sub" in
-        status) cmd_hooks_status ;;
-        install) cmd_hooks_install ;;
-        *) printf 'error: unknown hooks command: %s\n' "$sub" >&2; return 1 ;;
-      esac
-      ;;
-    *) printf 'error: unknown command: %s\n\n' "$cmd" >&2; print_help; return 1 ;;
-  esac
-}
-
-main "$@"