devlog-tracker 0.22.0

package/hooks/scripts/compact-devlog.sh

@@ -0,0 +1,72 @@
+#!/usr/bin/env bash
+set -uo pipefail
+
+_src="${BASH_SOURCE[0]}"
+SCRIPT_DIR="$(cd "${_src%/*}" && pwd)"
+. "$SCRIPT_DIR/devlog-md.sh"
+. "$SCRIPT_DIR/devlog-lock.sh"
+. "$SCRIPT_DIR/devlog-path.sh"
+
+devlog_resolve_paths "${CLAUDE_PROJECT_DIR:-.}"
+devlog_lock_acquire
+trap 'devlog_lock_release' EXIT
+MAIN="$DEVLOG_FILE"
+ARCHIVE="$DEVLOG_DIR/devlog.archive.md"
+[ -f "$MAIN" ] || { echo "devlog.md 不存在" >&2; exit 1; }
+
+TMP="$(mktemp -d "${TMPDIR:-/tmp}/devlog-compact.XXXXXX")" || exit 1
+trap 'rm -rf "$TMP"; devlog_lock_release' EXIT
+STARTS="$TMP/starts"
+MOVE="$TMP/move"
+CANDIDATES="$TMP/candidates"
+MOVED_BLOCKS="$TMP/moved"
+NEW_MAIN="$TMP/main"
+devlog_list_round_starts "$MAIN" > "$STARTS"
+: > "$MOVE"
+: > "$CANDIDATES"
+
+TOTAL="$(wc -l < "$STARTS" | tr -d ' ')"
+while read -r start _; do
+  [ -n "${start:-}" ] || continue
+  end="$(devlog_block_end "$MAIN" "$start")"
+  status="$(devlog_round_status "$MAIN" "$start" "$end")"
+  case "$status" in
+    IN_PROGRESS|BLOCKED|INTERRUPTED) ;;
+    *) printf '%s\n' "$start" >> "$CANDIDATES" ;;
+  esac
+done < "$STARTS"
+
+COMPLETED="$(wc -l < "$CANDIDATES" | tr -d ' ')"
+TO_MOVE=$((COMPLETED > 5 ? COMPLETED - 5 : 0))
+awk -v count="$TO_MOVE" 'NR <= count { print }' "$CANDIDATES" > "$MOVE"
+MOVED="$(wc -l < "$MOVE" | tr -d ' ')"
+if [ "$MOVED" -eq 0 ]; then
+  ARCHIVE_COUNT=0
+  [ ! -f "$ARCHIVE" ] || ARCHIVE_COUNT="$(devlog_list_round_starts "$ARCHIVE" | wc -l | tr -d ' ')"
+  printf 'MOVED=0 REMAINING=%s ARCHIVE=%s\n' "$TOTAL" "$ARCHIVE_COUNT"
+  exit 0
+fi
+
+awk -v move_file="$MOVE" -v moved_file="$MOVED_BLOCKS" '
+  BEGIN {
+    while ((getline line < move_file) > 0) move[line] = 1
+  }
+  /^[ \t]*```/ { fence = !fence }
+  !fence && /^## / {
+    moving = (NR in move)
+  }
+  moving { print >> moved_file; next }
+  { print }
+' "$MAIN" > "$NEW_MAIN" || exit 1
+
+while read -r start; do
+  heading="$(awk -v n="$start" 'NR == n { print; exit }' "$MAIN")"
+  grep -Fqx "$heading" "$MOVED_BLOCKS" || { echo "archive 驗證失敗" >&2; exit 1; }
+done < "$MOVE"
+
+cat "$MOVED_BLOCKS" >> "$ARCHIVE" || exit 1
+mv "$NEW_MAIN" "$MAIN" || exit 1
+
+REMAINING="$(devlog_list_round_starts "$MAIN" | wc -l | tr -d ' ')"
+ARCHIVE_COUNT="$(devlog_list_round_starts "$ARCHIVE" | wc -l | tr -d ' ')"
+printf 'MOVED=%s REMAINING=%s ARCHIVE=%s\n' "$MOVED" "$REMAINING" "$ARCHIVE_COUNT"

package/hooks/scripts/detect-pending-question.sh

@@ -0,0 +1,31 @@
+# shellcheck shell=bash
+# sourced by hook scripts. Do not execute.
+#
+# Best-effort only, used to make the dangling-heal stub message more useful —
+# not part of the enable/detection logic itself. 專案原則是不解析 transcript
+# 來判斷「這輪有沒有記錄」（見 SKILL.md），這裡不違反：偵測不到／沒有 jq／
+# 檔案讀不到，一律回傳空字串，退回原本的通用 stub 文字，不影響任何強制流程。
+#
+# detect_pending_question <transcript_path>
+# 印出 "1" 代表：transcript 裡最後一筆 assistant/user 訊息，是一個還沒拿到
+# 回答的 AskUserQuestion tool_use（also 是整份 transcript 的最後一筆有意義
+# 紀錄）——最典型的訊號是「process 在等使用者選答案時被中斷」。其餘一律印出
+# 空字串。
+detect_pending_question() {
+  local transcript="$1"
+  [ -n "$transcript" ] || { echo ''; return 0; }
+  [ -f "$transcript" ] || { echo ''; return 0; }
+  command -v jq >/dev/null 2>&1 || { echo ''; return 0; }
+  tail -n 200 "$transcript" 2>/dev/null | jq -rs '
+    map(select(.type == "assistant" or .type == "user"))
+    | if length == 0 then ""
+      else
+        (.[-1]) as $last
+        | if $last.type == "assistant"
+             and ($last.message.content // [] | any(.type == "tool_use" and .name == "AskUserQuestion"))
+          then "1"
+          else ""
+          end
+      end
+  ' 2>/dev/null || echo ''
+}

package/hooks/scripts/devlog-lock.sh

@@ -0,0 +1,38 @@
+#!/usr/bin/env bash
+# Sourced helper for serializing writes under .devlog.
+devlog_lock_acquire() {
+  local dir="${DEVLOG_DIR:-.}/.lock"
+  local start now
+  LOCK_HELD=0
+  command -v mkdir >/dev/null 2>&1 || return 0
+  command -v rmdir >/dev/null 2>&1 || return 0
+  command -v date >/dev/null 2>&1 || return 0
+  command -v sleep >/dev/null 2>&1 || return 0
+  start="$(date +%s 2>/dev/null || echo 0)"
+  while true; do
+    if mkdir "$dir" 2>/dev/null; then
+      LOCK_HELD=1
+      return 0
+    fi
+    now="$(date +%s 2>/dev/null || echo 0)"
+    if [ $((now - start)) -ge 2 ]; then
+      return 0
+    fi
+    sleep 0.1 2>/dev/null || true
+  done
+}
+
+devlog_lock_release() {
+  if [ "${LOCK_HELD:-0}" -eq 1 ]; then
+    rmdir "${DEVLOG_DIR:-.}/.lock" 2>/dev/null || true
+    LOCK_HELD=0
+  fi
+}
+
+devlog_with_lock() {
+  devlog_lock_acquire
+  "$@"
+  local result=$?
+  devlog_lock_release
+  return "$result"
+}

package/hooks/scripts/devlog-md.sh

@@ -0,0 +1,222 @@
+#!/usr/bin/env bash
+
+_DEVLOG_MD_DIR="$(cd "${BASH_SOURCE[0]%/*}" && pwd)"
+
+# NOFENCE 防呆（跟 enforce-devlog.sh 同一套邏輯）：如果 [start,end] 這個範圍
+# 內 ``` 記號數量是奇數，代表某處圍欄沒有正常收尾（例如 User Input 貼了一段
+# 忘記關閉 fence 的程式碼）——這是真的寫錯了，不是刻意的範例。此時呼叫端的
+# fence 變數若照常 toggle，會在剩下的內容裡卡在 1，把明明存在的 #### 工作區
+# / ### Status / ### 段落 誤判成「被吃掉、看起來是空的」，讓
+# workspace_claim_state 靜默回報 NO_CLAIM（本來該是 MISMATCH），整個漂移
+# 偵測形同虛設。回傳 1 時呼叫端要讓 fence 變數維持 0（退化回單純掃描），
+# 圍欄成雙成對（含 0 個）時回傳 0，fence-aware 行為不變。
+_devlog_fence_nofence() {
+  local file="$1" start="$2" end="$3" count
+  count="$(awk -v start="$start" -v end="$end" '
+    NR < start || NR > end { next }
+    /^[ \t]*```/ { c++ }
+    END { print c + 0 }
+  ' "$file")"
+  if [ $((count % 2)) -eq 0 ]; then printf '0\n'; else printf '1\n'; fi
+}
+
+devlog_list_round_starts() {
+  awk '
+    /^[ \t]*```/ { fence = !fence; next }
+    !fence && /^## Round [0-9]+/ {
+      round = $0
+      sub(/^## Round /, "", round)
+      sub(/[^0-9].*$/, "", round)
+      print NR, round
+    }
+  ' "$1"
+}
+
+devlog_block_end() {
+  awk -v start="$2" '
+    NR < start { next }
+    /^[ \t]*```/ { fence = !fence }
+    NR > start && !fence && /^## / { print NR - 1; found = 1; exit }
+    END { if (!found) print NR }
+  ' "$1"
+}
+
+devlog_round_status() {
+  local nofence
+  nofence="$(_devlog_fence_nofence "$1" "$2" "$3")"
+  awk -v start="$2" -v end="$3" -v nofence="$nofence" '
+    NR < start || NR > end { next }
+    /^[ \t]*```/ { if (!nofence) fence = !fence; next }
+    !fence && /^### Status[[:space:]]*$/ { status = 1; value = ""; next }
+    !fence && /^### / && status { status = 0 }
+    status && $0 !~ /^[[:space:]]*$/ { value = $0 }
+    END { print value }
+  ' "$1"
+}
+
+devlog_count_segments() {
+  awk -v start="$2" -v end="$3" '
+    NR < start || NR > end { next }
+    /^[ \t]*```/ { fence = !fence; next }
+    !fence && /^### 段落 / { count++ }
+    END { print count + 0 }
+  ' "$1"
+}
+
+devlog_insert_before_summary() {
+  local file="$1" start="$2" end="$3" text_file="$4"
+  awk -v start="$start" -v end="$end" -v textfile="$text_file" '
+    BEGIN {
+      inserted = 0
+      while ((getline line < textfile) > 0) {
+        ins[ni++] = line
+      }
+      close(textfile)
+    }
+    {
+      if (!inserted && NR >= start && NR <= end && !fence && $0 ~ /^### Summary[[:space:]]*$/) {
+        for (i = 0; i < ni; i++) print ins[i]
+        inserted = 1
+      }
+    if ($0 ~ /^[ \t]*```/) fence = !fence
+    print
+  }
+  ' "$file"
+}
+
+devlog_kept_index_lines() {
+  awk '
+    /^[ \t]*```/ { fence = !fence; next }
+    !fence && /^## Kept 索引/ { grab = 1; found = 1; buf = ""; next }
+    !fence && grab && /^## / { grab = 0 }
+    grab { buf = buf $0 ORS }
+    END { if (found) printf "%s", buf }
+  ' "$1"
+}
+
+devlog_strip_kept_index() {
+  # Pipe through a second pass that buffers blank lines and only emits them
+  # once a non-blank line follows. Kept 索引 is always the trailing section
+  # (keep-move.sh appends it last), so any blank line(s) left as its
+  # separator are always at true EOF here and get dropped instead of
+  # surviving into the caller's rebuild — this is what stops the separator
+  # from growing by one line on every keep-move.sh call.
+  awk '
+    /^[ \t]*```/ { fence = !fence }
+    !fence && /^## Kept 索引/ { grab = 1; next }
+    !fence && grab && /^## / { grab = 0 }
+    grab { next }
+    { print }
+  ' "$1" | awk '
+    /^[ \t]*$/ { pending = pending $0 ORS; next }
+    { printf "%s", pending; pending = ""; print }
+  ' > "$2"
+}
+
+devlog_lessons_index_lines() {
+  awk '
+    /^[ \t]*```/ { fence = !fence; next }
+    !fence && /^## Lessons 索引/ { grab = 1; found = 1; buf = ""; next }
+    !fence && grab && /^## / { grab = 0 }
+    grab { buf = buf $0 ORS }
+    END { if (found) printf "%s", buf }
+  ' "$1"
+}
+
+devlog_strip_lessons_index() {
+  # Same trailing-block assumption and blank-line-collapse behavior as
+  # devlog_strip_kept_index() above (docs/design/lessons-mode.md).
+  awk '
+    /^[ \t]*```/ { fence = !fence }
+    !fence && /^## Lessons 索引/ { grab = 1; next }
+    !fence && grab && /^## / { grab = 0 }
+    grab { next }
+    { print }
+  ' "$1" | awk '
+    /^[ \t]*$/ { pending = pending $0 ORS; next }
+    { printf "%s", pending; pending = ""; print }
+  ' > "$2"
+}
+
+devlog_round_workspace_body() {
+  local nofence
+  nofence="$(_devlog_fence_nofence "$1" "$2" "$3")"
+  awk -v start="$2" -v end="$3" -v nofence="$nofence" '
+    NR < start || NR > end { next }
+    /^[ \t]*```/ { if (!nofence) fence = !fence; next }
+    !fence && /^#### 工作區[[:space:]]*$/ { grab = 1; next }
+    grab && !fence && /^#### / { grab = 0 }
+    grab && !fence && /^### / { grab = 0 }
+    grab && !fence && /^## / { grab = 0 }
+    grab { print }
+  ' "$1" | sed -e '/^[[:space:]]*$/d'
+}
+
+devlog_round_segments_body() {
+  local nofence
+  nofence="$(_devlog_fence_nofence "$1" "$2" "$3")"
+  awk -v start="$2" -v end="$3" -v nofence="$nofence" '
+    NR < start || NR > end { next }
+    /^[ \t]*```/ {
+      if (segment) print
+      if (!nofence) fence = !fence
+      next
+    }
+    !fence && /^### 段落 / { segment = 1; next }
+    segment && !fence && /^### / { segment = 0 }
+    segment && !fence && /^## / { segment = 0 }
+    segment { print }
+  ' "$1"
+}
+
+devlog_merge_round_current() {
+  # Appends $2's content onto $1 (one blank line separator, matching the
+  # existing "\n## Round N" append convention) and removes $2. No-op if $2
+  # is absent or empty — nothing to merge.
+  local devlog="$1" current="$2"
+  [ -s "$current" ] || return 0
+  {
+    printf '\n'
+    cat "$current"
+  } >> "$devlog" 2>/dev/null || return 1
+  rm -f "$current" 2>/dev/null || true
+  return 0
+}
+
+devlog_reopen_last_round() {
+  # Moves the last "## Round N ..." block out of $1 into $2 (creating $2),
+  # removing those lines from $1. Returns 1 and touches neither file if $1
+  # has no round to move.
+  local devlog="$1" current="$2" start end
+  start="$(devlog_list_round_starts "$devlog" | awk 'END { print $1 }')"
+  [ -n "$start" ] || return 1
+  end="$(devlog_block_end "$devlog" "$start")"
+  awk -v start="$start" -v end="$end" 'NR >= start && NR <= end' "$devlog" > "$current" 2>/dev/null || return 1
+  awk -v start="$start" -v end="$end" 'NR < start || NR > end' "$devlog" > "$devlog.tmp" 2>/dev/null \
+    && mv "$devlog.tmp" "$devlog" 2>/dev/null || { rm -f "$devlog.tmp" "$current" 2>/dev/null; return 1; }
+  return 0
+}
+
+workspace_claim_state() {
+  local dir="$1" file="$2" start end status claimed live
+  if ! type workspace_snapshot >/dev/null 2>&1; then
+    # shellcheck source=workspace-snapshot.sh
+    . "$_DEVLOG_MD_DIR/workspace-snapshot.sh"
+  fi
+  start="$(devlog_list_round_starts "$file" | awk 'END { print $1 }')"
+  [ -n "$start" ] || { printf 'NO_CLAIM\n'; return 0; }
+  end="$(devlog_block_end "$file" "$start")"
+  status="$(devlog_round_status "$file" "$start" "$end")"
+  case "$status" in
+    '[reason:'*) status=INTERRUPTED ;;
+  esac
+  case "$status" in
+    IN_PROGRESS|BLOCKED|INTERRUPTED) ;;
+    *) printf 'NO_CLAIM\n'; return 0 ;;
+  esac
+  claimed="$(devlog_round_workspace_body "$file" "$start" "$end")"
+  [ -n "$claimed" ] || { printf 'NO_CLAIM\n'; return 0; }
+  live="$(workspace_snapshot "$dir")"
+  [ -n "$live" ] || { printf 'NO_CLAIM\n'; return 0; }
+  if [ "$claimed" = "$live" ]; then printf 'MATCH\n'; else printf 'MISMATCH\n'; fi
+}

package/hooks/scripts/devlog-path.sh

@@ -0,0 +1,70 @@
+#!/usr/bin/env bash
+# Sourced helper: resolves the branch-scoped devlog file for the branch
+# currently checked out in a working directory. See
+# docs/design/branch-scoped-devlog.md.
+
+_DEVLOG_PATH_DIR="$(cd "${BASH_SOURCE[0]%/*}" && pwd)"
+# shellcheck source=devlog-lock.sh
+. "$_DEVLOG_PATH_DIR/devlog-lock.sh"
+
+# Turns an arbitrary branch/worktree name into a safe devlog.<name>.md
+# filename segment: anything outside [A-Za-z0-9._-] becomes '-', repeats
+# collapse, leading/trailing '-' trimmed.
+_devlog_sanitize_name() {
+  printf '%s' "$1" | sed -E 's/[^A-Za-z0-9._-]/-/g; s/-+/-/g; s/^-+//; s/-+$//'
+}
+
+# Sets DEVLOG_DIR and DEVLOG_FILE for the branch currently checked out in
+# $1 (defaults to "."). main/master (any case) and anything that isn't a
+# git repo or has no resolvable branch keep the shared devlog.md. Any
+# other branch gets devlog.<sanitized-branch>.md; a detached HEAD (or an
+# unborn branch, which git also reports as "HEAD" here) falls back to the
+# working directory's own basename. The first time a branch resolves to a
+# file that doesn't exist yet while devlog.md already has content, the
+# existing devlog.md is renamed (not copied) into that branch's file.
+devlog_resolve_paths() {
+  local dir="${1:-.}"
+  DEVLOG_DIR="$dir/.devlog"
+  DEVLOG_FILE="$DEVLOG_DIR/devlog.md"
+
+  local branch raw name
+  branch="$(git -C "$dir" rev-parse --abbrev-ref HEAD 2>/dev/null || echo '')"
+
+  case "$branch" in
+    ''|[Mm][Aa][Ii][Nn]|[Mm][Aa][Ss][Tt][Ee][Rr])
+      return 0
+      ;;
+    HEAD)
+      raw="$(basename "$(cd "$dir" 2>/dev/null && pwd)" 2>/dev/null || echo '')"
+      ;;
+    *)
+      raw="$branch"
+      ;;
+  esac
+  [ -n "$raw" ] || return 0
+
+  name="$(_devlog_sanitize_name "$raw")"
+  if [ -z "$name" ]; then
+    # Sanitizing stripped every character (e.g. an all-CJK branch name).
+    # Falling back to the shared devlog.md here would silently defeat this
+    # whole feature for exactly the case it's most likely to hit in a
+    # Chinese-language project. Derive a short, stable, ASCII-safe name
+    # from the original string instead.
+    name="b-$(printf '%s' "$raw" | cksum | awk '{print $1}')"
+  fi
+
+  # Reserved namespace: devlog.archive.md and devlog.lessons.*.md already
+  # mean something else in this plugin. A branch name that sanitizes to
+  # one of these shares the plain devlog.md instead of colliding with them.
+  case "$name" in
+    archive|lessons.*) return 0 ;;
+  esac
+
+  local resolved="$DEVLOG_DIR/devlog.$name.md"
+  if [ -f "$DEVLOG_DIR/.enabled" ] && [ ! -f "$resolved" ] && [ -f "$DEVLOG_FILE" ]; then
+    devlog_lock_acquire
+    mv "$DEVLOG_FILE" "$resolved" 2>/dev/null || true
+    devlog_lock_release
+  fi
+  DEVLOG_FILE="$resolved"
+}