@pmelab/gtd 38.1.0 → 38.2.0

package/dist/testkit.mjs

@@ -1,7 +1,7 @@
 import { applyScript, checkScript, configProblems, configure, installContext, isFactoryWorkflow, moveScript, protocolMismatch, removeScript, restoreScript, revertScript, showScript, t as flows_exports } from "./flows.mjs";
 import { A as beatKindOf, B as ACCESS_REFUSAL, C as renderLandPlain, D as renderBeatJson, E as beatDocument, O as statusOf, S as renderLandJson, T as renderBeatPlain, U as renderFormat, _ as selectPath, a as contextLimitFault, g as resolveSession, h as globMatches, j as demandOf, l as parseContextWindow, m as slicesDocument, o as contextShapeFault, p as renderSlicesJson, v as judgeJson, x as noopText, y as landFields } from "./chunks/wire-BJuZWR3C.mjs";
 import { C as headingSections, S as headingSectionBodies, a as unansweredQuestions, b as parseThreadsWithFindings, n as openThreads, r as steeringFormatFor, s as parseCodeThreads, t as BUILT_IN_MODE_NAMES, w as formatFinding } from "./chunks/steering-DVILanVf.mjs";
-import { $ as logWarning, $i as NodeInspectSymbol, $n as map$5, $r as make$19, $t as provide$1, A as catchIf, Ai as add, An as scopeMake, Ar as flatMap$3, At as suspend$5, B as flatMap$4, Bi as getOrElse, Bn as get$3, Br as sync$1, Bt as unsafeMakeLatch, C as all$1, Ci as toArray, Cn as isInterrupted, Cr as exitFail, Ct as sandbox, D as async, Di as GenericTag, Dn as squash, Dr as exitZipRight, Dt as scopedWith$1, E as asVoid$1, Ei as unsafeHead, En as reduceWithContext, Er as exitVoid, Et as scoped$4, F as ensuring$2, Fi as fromIterable, Fn as join$3, Fr as map$3, Ft as tryMap, G as forkIn, Gi as none, Gn as TypeId$10, Gr as whenEffect, Gt as zipLeft, H as fnUntraced, Hi as isSome, Hn as modify$1, Hr as uninterruptible, Ht as when, I as exit, Ii as splitAt, In as sequential, Ir as onInterrupt, It as tryPromise, J as ignore, Ji as left, Jn as all, Jr as DeferredTypeId$1, Jt as spaced$1, K as forkScoped, Ki as some, Kn as Class, Kr as withFiberRuntime, Kt as zipRight$3, L as fail$5, Li as filter$1, Ln as bind, Lr as scopeClose, Lt as try_, M as die$2, Mi as getOption, Mn as _await$2, Mr as interruptAsFiber, Mt as tap, N as dieMessage, Ni as omit, Nn as inheritAll$1, Nr as interruptFiber, Nt as tapErrorCause, O as catchAll$1, Oi as Reference, On as ensuring$3, Or as fiberId, Ot as serviceOption, P as either, Pi as empty$5, Pn as interruptAllAs$1, Pr as interruptible$1, Pt as timeout, Q as isEffect, Qi as BaseProto, Qn as isFailure, Qr as ids, Qt as mergeAll$2, R as failCause$4, Ri as flatMap$5, Rn as bindTo, Rr as succeed$4, Rt as uninterruptible$1, S as addFinalizer$1, Si as takeRight, Sn as isDieType, Sr as exitAs, St as runtime, T as as, Ti as unsafeGet, Tn as map$6, Tr as exitSucceed, Tt as scopeWith, U as forEach$2, Ui as map$8, Un as set$1, Ur as uninterruptibleMask$1, Ut as withFiberRuntime$1, V as flatten$4, Vi as isNone, Vn as make$16, Vr as tap$1, Vt as unsafeMakeSemaphore$1, W as forkDaemon, Wi as match$4, Wn as update$1, Wr as void_$2, Wt as zip$1, X as interruptible, Xi as right, Xn as fail$4, Xr as combine, Xt as tagged, Y as interrupt$4, Yi as match$2, Yn as die, Yr as empty$6, Yt as TaggedError$1, Z as intoDeferred, Zi as pipeArguments, Zn as failCause$3, Zr as combineAll, Zt as fromEffect$5, _ as decodeSync, _i as of, _n as fail$3, _r as deferredIsDone, _t as raceWith, a as Literal, aa as constTrue, ai as size$2, an as updateContext$1, ar as zipRight$2, at as matchCause, b as acquireRelease, bi as reverse, bn as interrupt$3, br as deferredUnsafeDone, bt as runPromise, c as String$, ca as dual, ci as append$1, cn as Scope, cr as asyncInterrupt, ct as negate, d as Union, di as empty$4, dn as close, dr as deferredAwait, dt as orElse, ea as format, ei as none$1, en as provideMerge$1, er as mapBoth, et as makeSemaphore, f as between, fi as filter, fn as extend, fr as deferredComplete, ft as orElseSucceed, gi as map$7, gn as die$1, gr as deferredInterruptWith, gt as race, hi as isEmpty$2, hn as NoSuchElementException, hr as deferredInterrupt, ht as provideService, i as Defect, ia as constFalse, ii as has, in as unsafeRunPromiseExit, ir as zip$2, it as match$5, j as catchTag, ji as get$5, jn as scopeTag, jr as interrupt$2, jt as sync$2, k as catchAllCause, ki as Tag, kn as forEachConcurrentDiscard, kr as fiberRefLocally, kt as succeed$6, l as Struct, la as identity, li as appendAll, ln as addFinalizer, lr as catchAll, lt as onError, m as optional$1, mi as isChunk, mn as make$18, mr as deferredFailCause, mt as provide$2, n as Boolean$, na as equals, ni as make$17, nn as succeed$3, nr as succeed$5, nt as mapBoth$1, o as Never, oa as constUndefined, oi as decode, on as forkIn$1, or as as$1, ot as matchCauseEffect, p as decodeUnknown, pi as fromIterable$1, pn as fork, pr as deferredFail, pt as promise, q as gen, qi as isLeft, qn as spanTag, qr as zipRight$1, qt as zipWith, r as Cause, ra as hasProperty, ri as set$2, rn as unsafeFork, rr as void_$3, rt as mapError, s as Number$, sa as constVoid, si as isFinite, sn as unsafeMakeSemaphore, sr as asVoid, st as matchEffect, t as Array$, ta as toJSON, ti as get$4, tn as scoped$3, tr as match$3, tt as map$4, u as TaggedError, ua as pipe, ui as drop, un as addFinalizerExit, ur as currentContext$1, ut as orDie, v as encodeSync, vi as prepend, vn as failureOrCause, vr as deferredMake, vt as repeat, w as annotateLogs, wi as unsafeFromArray, wn as isInterruptedOnly, wr as exitFailCause, wt as scope, x as acquireUseRelease$2, xi as take$2, xn as interruptors, xr as deferredUnsafeMake, xt as runPromiseExit$1, y as _void, yi as reduce, yn as flipCauseOption, yr as deferredSucceed, yt as retry, z as fiberIdWith, zi as fromNullable, zn as sleep, zr as suspend$4, zt as uninterruptibleMask } from "./chunks/Schema-DO5ttJaI.mjs";
+import { $ as logWarning, $i as BaseProto, $n as map$5, $r as make$19, $t as provide$1, A as catchIf, Ai as add$1, An as scopeMake, Ar as flatMap$3, At as suspend$5, B as flatMap$4, Bi as getOrElse, Bn as get$3, Br as sync$1, Bt as unsafeMakeLatch, C as all$1, Ci as toArray, Cn as isInterrupted, Cr as exitFail, Ct as sandbox, D as async, Di as GenericTag, Dn as squash, Dr as exitZipRight, Dt as scopedWith$1, E as asVoid$1, Ei as unsafeHead, En as reduceWithContext, Er as exitVoid, Et as scoped$4, F as ensuring$2, Fi as fromIterable, Fn as join$3, Fr as map$3, Ft as tryMap, G as forkIn, Gi as match$4, Gn as TypeId$10, Gr as whenEffect, Gt as zipLeft, H as fnUntraced, Hi as isNone, Hn as modify$1, Hr as uninterruptible, Ht as when, I as exit, Ii as splitAt, In as sequential, Ir as onInterrupt, It as tryPromise, J as ignore, Ji as isLeft, Jn as all, Jr as DeferredTypeId$1, Jt as spaced$1, K as forkScoped, Ki as none, Kn as Class, Kr as withFiberRuntime, Kt as zipRight$3, L as fail$5, Li as filter$1, Ln as bind, Lr as scopeClose, Lt as try_, M as die$2, Mi as getOption, Mn as _await$2, Mr as interruptAsFiber, Mt as tap, N as dieMessage, Ni as omit, Nn as inheritAll$1, Nr as interruptFiber, Nt as tapErrorCause, O as catchAll$1, Oi as Reference, On as ensuring$3, Or as fiberId, Ot as serviceOption, P as either, Pi as empty$5, Pn as interruptAllAs$1, Pr as interruptible$1, Pt as timeout, Q as isEffect, Qi as pipeArguments, Qn as isFailure, Qr as ids, Qt as mergeAll$2, R as failCause$4, Ri as flatMap$5, Rn as bindTo, Rr as succeed$4, Rt as uninterruptible$1, S as addFinalizer$1, Si as takeRight, Sn as isDieType, Sr as exitAs, St as runtime, T as as, Ti as unsafeGet, Tn as map$6, Tr as exitSucceed, Tt as scopeWith, U as forEach$2, Ui as isSome, Un as set$1, Ur as uninterruptibleMask$1, Ut as withFiberRuntime$1, V as flatten$4, Vi as getOrUndefined, Vn as make$16, Vr as tap$1, Vt as unsafeMakeSemaphore$1, W as forkDaemon, Wi as map$8, Wn as update$1, Wr as void_$2, Wt as zip$1, X as interruptible, Xi as match$2, Xn as fail$4, Xr as combine, Xt as tagged, Y as interrupt$4, Yi as left, Yn as die, Yr as empty$6, Yt as TaggedError$1, Z as intoDeferred, Zi as right, Zn as failCause$3, Zr as combineAll, Zt as fromEffect$5, _ as decodeSync, _i as of, _n as fail$3, _r as deferredIsDone, _t as raceWith, a as Literal, aa as constFalse, ai as size$2, an as updateContext$1, ar as zipRight$2, at as matchCause, b as acquireRelease, bi as reverse, bn as interrupt$3, br as deferredUnsafeDone, bt as runPromise, c as String$, ca as constVoid, ci as append$1, cn as Scope, cr as asyncInterrupt, ct as negate, d as Union, da as pipe, di as empty$4, dn as close, dr as deferredAwait, dt as orElse, ea as NodeInspectSymbol, ei as none$1, en as provideMerge$1, er as mapBoth, et as makeSemaphore, f as between, fi as filter, fn as extend, fr as deferredComplete, ft as orElseSucceed, gi as map$7, gn as die$1, gr as deferredInterruptWith, gt as race, hi as isEmpty$2, hn as NoSuchElementException, hr as deferredInterrupt, ht as provideService, i as Defect, ia as hasProperty, ii as has, in as unsafeRunPromiseExit, ir as zip$2, it as match$5, j as catchTag, ji as get$5, jn as scopeTag, jr as interrupt$2, jt as sync$2, k as catchAllCause, ki as Tag, kn as forEachConcurrentDiscard, kr as fiberRefLocally, kt as succeed$6, l as Struct, la as dual, li as appendAll, ln as addFinalizer, lr as catchAll, lt as onError, m as optional$1, mi as isChunk, mn as make$18, mr as deferredFailCause, mt as provide$2, n as Boolean$, na as toJSON, ni as make$17, nn as succeed$3, nr as succeed$5, nt as mapBoth$1, o as Never, oa as constTrue, oi as decode, on as forkIn$1, or as as$1, ot as matchCauseEffect, p as decodeUnknown, pi as fromIterable$1, pn as fork, pr as deferredFail, pt as promise, q as gen, qi as some, qn as spanTag, qr as zipRight$1, qt as zipWith, r as Cause, ra as equals, ri as set$2, rn as unsafeFork, rr as void_$3, rt as mapError, s as Number$, sa as constUndefined, si as isFinite, sn as unsafeMakeSemaphore, sr as asVoid, st as matchEffect, t as Array$, ta as format, ti as get$4, tn as scoped$3, tr as match$3, tt as map$4, u as TaggedError, ua as identity, ui as drop, un as addFinalizerExit, ur as currentContext$1, ut as orDie, v as encodeSync, vi as prepend, vn as failureOrCause, vr as deferredMake, vt as repeat, w as annotateLogs, wi as unsafeFromArray, wn as isInterruptedOnly, wr as exitFailCause, wt as scope, x as acquireUseRelease$2, xi as take$2, xn as interruptors, xr as deferredUnsafeMake, xt as runPromiseExit$1, y as _void, yi as reduce, yn as flipCauseOption, yr as deferredSucceed, yt as retry, z as fiberIdWith, zi as fromNullable, zn as sleep, zr as suspend$4, zt as uninterruptibleMask } from "./chunks/Schema-C6fLlQzx.mjs";
 import { createRequire } from "node:module";
 import * as Crypto from "node:crypto";
 import { createHash } from "node:crypto";
@@ -2686,7 +2686,7 @@ const get$1 = (self_) => {
 			case "Acquired":
 				self.state.refCount++;
 				return self.state.fiber ? as$1(interruptFiber(self.state.fiber), self.state) : succeed$4(self.state);
-			case "Empty": return scopeMake().pipe(bindTo("scope"), bind("value", ({ scope }) => restore(fiberRefLocally(self.acquire, currentContext$1, add(self.context, scopeTag, scope)))), map$3(({ scope, value }) => {
+			case "Empty": return scopeMake().pipe(bindTo("scope"), bind("value", ({ scope }) => restore(fiberRefLocally(self.acquire, currentContext$1, add$1(self.context, scopeTag, scope)))), map$3(({ scope, value }) => {
 				const state = {
 					_tag: "Acquired",
 					value,
@@ -10190,6 +10190,13 @@ const writeSelection = (out, fields, path) => gen(function* () {
 	if (selection.kind === "value") out.write(`${selection.text}\n`);
 	else if (selection.kind === "unknown") return yield* fail$5(new SelectorUsageError(`gtd: unknown --json selector "${selection.path}" — see \`gtd --help\``));
 });
+/** Writes `document` per `json` (bare → whole, `=path` → one value); returns false for `off`. */
+const writeJson = (json, out, document) => gen(function* () {
+	if (json.kind === "off") return false;
+	if (json.kind === "document") out.write(`${JSON.stringify(document)}\n`);
+	else yield* writeSelection(out, document, json.path);
+	return true;
+});
 //#endregion
 //#region src/cli/Strays.ts
 const resolveSide = (git, side) => git.resolveRef(`${side}^{commit}`).pipe(mapError(() => new GtdError(`gtd strays: unknown revision '${side}'`)));
@@ -10247,13 +10254,6 @@ const resolveHistoryRef = (arg, entries) => {
 	return fail$5(/* @__PURE__ */ new Error(`gtd history: no history ref matches "${arg}"`));
 };
 const seven = (hash) => hash.slice(0, 7);
-/** Writes `document` per `json` (bare → whole, `=path` → one value); returns false for `off`. */
-const writeJson = (json, out, document) => gen(function* () {
-	if (json.kind === "off") return false;
-	if (json.kind === "document") out.write(`${JSON.stringify(document)}\n`);
-	else yield* writeSelection(out, document, json.path);
-	return true;
-});
 const runHistoryListCommand = (json, out) => gen(function* () {
 	const entries = yield* historyEntries;
 	if (yield* writeJson(json, out, entries)) return;
@@ -10266,13 +10266,12 @@ const runHistoryListCommand = (json, out) => gen(function* () {
 const runHistoryShowCommand = (ref, json, out) => gen(function* () {
 	const entry = yield* resolveHistoryRef(ref, yield* historyEntries);
 	const trail = yield* historyTrail(entry.tip);
-	const document = {
+	if (yield* writeJson(json, out, {
 		ref: entry.ref,
 		entry: entry.entry,
 		branch: entry.branch,
 		...trail
-	};
-	if (yield* writeJson(json, out, document)) return;
+	})) return;
 	if (trail.versionWarning !== void 0) yield* (yield* Narrator).warn(trail.versionWarning);
 	const lines = [`${entry.ref} (branch ${entry.branch ?? "-"}, tip ${seven(entry.tip)})`];
 	for (const step of trail.steps) {
@@ -10288,6 +10287,200 @@ const runHistoryFetchCommand = (remote, out) => sync$2(() => {
 	out.write(`${combinedScript(fetchHistoryRefs(remote), "")}\n`);
 });
 //#endregion
+//#region src/cli/Metrics.ts
+const QUALITY = ".gtd/QUALITY.md";
+const LENS = /^((?:.*\.)?quality\.[^.]+)\.reviewing$/;
+const CONTINUE = /(^|\.)continue\./;
+const inSeam = (step) => step.startsWith("seam.");
+const phaseOf = (step) => {
+	const scope = step.split(".")[0];
+	if (inSeam(step) && step.endsWith(".naive")) return "naive";
+	if (step === "seam.note" || scope === "refactor") return "refactor";
+	if (scope === "implement") return "implement";
+	return "other";
+};
+const round = (n, places = 6) => {
+	const f = 10 ** places;
+	return Math.round(n * f) / f;
+};
+const record = () => Object.create(null);
+const add = (into, key, n) => {
+	into[key] = (into[key] ?? 0) + n;
+};
+const roundAll = (record) => Object.fromEntries(Object.entries(record).map(([k, v]) => [k, round(v)]));
+const emptyTally = () => ({
+	slices: {
+		decided: 0,
+		landed: 0,
+		rebuilt: 0,
+		refactored: 0
+	},
+	continuations: record(),
+	byModel: record(),
+	byPhase: {
+		naive: 0,
+		refactor: 0,
+		implement: 0,
+		other: 0
+	},
+	doubleWork: {
+		naive: 0,
+		rebuild: 0
+	},
+	byLens: record()
+});
+const sum = (record) => Object.values(record).reduce((a, b) => a + b, 0);
+const finish = (t) => ({
+	slices: t.slices,
+	refactorFirstRate: t.slices.decided === 0 ? null : round(t.slices.rebuilt / t.slices.decided, 3),
+	continuations: t.continuations,
+	cost: {
+		total: round(sum(t.byModel)),
+		byModel: roundAll(t.byModel),
+		byPhase: roundAll(t.byPhase),
+		doubleWork: {
+			naive: round(t.doubleWork.naive),
+			rebuild: round(t.doubleWork.rebuild),
+			total: round(t.doubleWork.naive + t.doubleWork.rebuild)
+		}
+	},
+	findings: {
+		total: sum(t.byLens),
+		byLens: t.byLens
+	}
+});
+const tallyCost = (t, open, costs, phase) => {
+	for (const { cost, model } of costs) {
+		add(t.byModel, model ?? "unspecified", cost);
+		t.byPhase[phase] += cost;
+		if (phase === "naive") open.naive += cost;
+		if (phase === "implement" && open.rebuilding) t.doubleWork.rebuild += cost;
+	}
+};
+/** A slice is decided where its turns leave the seam: for `implement.applying` the naive pass landed — unless it fails to apply and is built afresh — anywhere else it is rebuilt. */
+const tallyDecision = (t, open, at, to) => {
+	if (at === "implement.closing") open.rebuilding = false;
+	if (open.applying !== void 0 && at === "implement.applying") {
+		const naive = open.applying;
+		open.applying = void 0;
+		if (to !== "implement.building") return;
+		t.slices.landed--;
+		rebuild(t, open, naive);
+		return;
+	}
+	if (!inSeam(at) || inSeam(to)) return;
+	t.slices.decided++;
+	const naive = open.naive;
+	open.naive = 0;
+	if (to === "implement.applying") {
+		open.applying = naive;
+		open.rebuilding = false;
+		t.slices.landed++;
+		return;
+	}
+	rebuild(t, open, naive);
+	if (at === "seam.note") t.slices.refactored++;
+};
+const rebuild = (t, open, naive) => {
+	open.rebuilding = true;
+	t.slices.rebuilt++;
+	t.doubleWork.naive += naive;
+};
+/** Oldest first; a commit gtd did not write is skipped. */
+const processMetrics = (commits) => {
+	const t = emptyTally();
+	const open = {
+		naive: 0,
+		rebuilding: false,
+		applying: void 0
+	};
+	for (const commit of commits) {
+		const message = parseCommitMessage(commit.message);
+		const subject = message.parsed;
+		if (subject === void 0) continue;
+		const at = subject.from ?? subject.to;
+		tallyCost(t, open, message.cost, phaseOf(at));
+		if (subject.actor === "agent" && CONTINUE.test(at)) add(t.continuations, at.replace(CONTINUE, "$1"), 1);
+		const lens = LENS.exec(at)?.[1];
+		if (lens !== void 0 && commit.findings > 0) add(t.byLens, lens, commit.findings);
+		tallyDecision(t, open, at, subject.to);
+	}
+	return finish(t);
+};
+const totalMetrics = (all) => {
+	const t = emptyTally();
+	for (const m of all) {
+		for (const key of Object.keys(t.slices)) t.slices[key] += m.slices[key];
+		for (const [k, v] of Object.entries(m.continuations)) add(t.continuations, k, v);
+		for (const [k, v] of Object.entries(m.cost.byModel)) add(t.byModel, k, v);
+		for (const key of Object.keys(t.byPhase)) t.byPhase[key] += m.cost.byPhase[key];
+		t.doubleWork.naive += m.cost.doubleWork.naive;
+		t.doubleWork.rebuild += m.cost.doubleWork.rebuild;
+		for (const [k, v] of Object.entries(m.findings.byLens)) add(t.byLens, k, v);
+	}
+	return {
+		processes: all.length,
+		...finish(t)
+	};
+};
+const chunks = (content) => content === void 0 ? 0 : (content.match(/^## /gm) ?? []).length;
+const readProcessMetrics = (entry) => gen(function* () {
+	const git = yield* GitService;
+	const base = getOrUndefined(yield* git.readRefOption(`${entry.entry}^`));
+	const commits = yield* git.commitHistory(base, entry.tip);
+	const quality = (hash) => git.readFileAtRef(hash, QUALITY).pipe(map$4((content) => content), orElseSucceed(() => void 0));
+	let count = chunks(base === void 0 ? void 0 : yield* quality(base));
+	const read = [];
+	for (const { hash, message, touched } of commits) {
+		const before = count;
+		if (touched.includes(QUALITY)) count = chunks(yield* quality(hash));
+		read.push({
+			message,
+			findings: Math.max(0, count - before)
+		});
+	}
+	return {
+		workflow: (commits[0] === void 0 ? void 0 : parseCommitMessage(commits[0].message).workflow) ?? null,
+		...processMetrics(read)
+	};
+});
+const printable = (s) => s.replace(/[\x00-\x1f\x7f-\x9f\u2028\u2029]/g, "?");
+const listed = (record) => Object.entries(record).map(([k, v]) => `${printable(k)} ${v}`).join(", ");
+const line = (label, m) => {
+	const { slices, cost } = m;
+	const percent = m.refactorFirstRate === null ? "-" : `${Math.round(m.refactorFirstRate * 100)}%`;
+	const continued = sum(m.continuations);
+	return [
+		`${label}: ${slices.decided} slices, ${slices.rebuilt} rebuilt (refactor-first ${percent}), ${slices.refactored} refactored`,
+		`${continued} continuations${continued > 0 ? ` (${listed(m.continuations)})` : ""}`,
+		`cost ${cost.total} (${listed(cost.byPhase)}; by model ${listed(cost.byModel) || "-"}), double work ${cost.doubleWork.total}`,
+		`${m.findings.total} findings${m.findings.total > 0 ? ` (${listed(m.findings.byLens)})` : ""}`
+	].join("; ");
+};
+const runHistoryMetricsCommand = (refs, json, out) => gen(function* () {
+	const entries = yield* historyEntries;
+	const chosen = refs.length === 0 ? entries : (yield* forEach$2(refs, (ref) => resolveHistoryRef(ref, entries).pipe(map$4((hit) => hit.branch === ref ? entries.filter((e) => e.branch === ref) : [hit])))).flat();
+	const processes = yield* forEach$2(chosen.filter((e, i) => chosen.findIndex((o) => o.ref === e.ref) === i), (e) => readProcessMetrics(e).pipe(map$4((metrics) => ({
+		ref: e.ref,
+		entry: e.entry,
+		branch: e.branch,
+		tip: e.tip,
+		...metrics
+	}))), { concurrency: 4 });
+	const document = {
+		processes,
+		total: totalMetrics(processes)
+	};
+	if (yield* writeJson(json, out, document)) return;
+	if (processes.length === 0) {
+		out.write("no history refs; run gtd history fetch | sh to pull them\n");
+		return;
+	}
+	const lines = processes.map((p) => line(`${p.entry.slice(0, 7)} ${printable(p.branch ?? "-")}${p.workflow === null ? "" : ` (${printable(p.workflow)})`}`, p));
+	lines.push(line(`total (${processes.length} processes)`, document.total));
+	out.write(`${lines.join("\n")}\n`);
+});
+//#endregion
 //#region src/cli/Program.ts
 const selfGtd = () => {
 	const script = process.argv[1];
@@ -10939,6 +11132,7 @@ const dispatchVoidCommand = (command, json, out) => {
 		case "judgeRun": return runJudgeRunCommand(command, out);
 		case "historyList": return runHistoryListCommand(json, out);
 		case "historyShow": return runHistoryShowCommand(command.ref, json, out);
+		case "historyMetrics": return runHistoryMetricsCommand(command.refs, json, out);
 		case "historyFetch": return runHistoryFetchCommand(command.remote, out);
 	}
 };
@@ -10977,18 +11171,30 @@ const share = (raw, flag) => {
 	const n = Number(raw);
 	return raw.trim() !== "" && n > 0 && n <= 1 ? right(n) : left(`gtd: ${flag} must be a share of the context window in (0, 1] — got "${raw}"`);
 };
+const JSON_KINDS = /* @__PURE__ */ new Set([
+	"next",
+	"land",
+	"judge",
+	"judgeAnswer",
+	"doors",
+	"slices",
+	"historyList",
+	"historyShow",
+	"historyMetrics",
+	"strays"
+]);
 const FLAGS = [
 	{
 		name: "--json",
 		arity: "optional",
 		repeatable: false,
-		scope: (kind) => kind === "next" || kind === "land" || kind === "judge" || kind === "judgeAnswer" || kind === "doors" || kind === "slices" || kind === "historyList" || kind === "historyShow" || kind === "strays",
+		scope: (kind) => JSON_KINDS.has(kind),
 		decode: ([raw]) => right(raw ?? ""),
-		scopeError: "gtd: --json is only valid for `gtd next`/`gtd land`/`gtd judge`/`gtd judge answer`/`gtd doors`/`gtd slices`/`gtd history list`/`gtd history show`/`gtd strays` — every other command prints plain text; see `gtd install` for the driver protocol briefing",
+		scopeError: "gtd: --json is only valid for `gtd next`/`gtd land`/`gtd judge`/`gtd judge answer`/`gtd doors`/`gtd slices`/`gtd history list`/`gtd history show`/`gtd history metrics`/`gtd strays` — every other command prints plain text; see `gtd install` for the driver protocol briefing",
 		valueHint: "<path>",
 		help: [
 			"(gtd next/gtd land/gtd judge/gtd judge answer/gtd doors/gtd slices/gtd history",
-			"list/gtd history show/gtd strays only) output structured JSON. Bare --json prints the whole document;",
+			"list/gtd history show/gtd history metrics/gtd strays only) output structured JSON. Bare --json prints the whole document;",
 			"--json=<path> (a dotted key path into that document, e.g.",
 			"kind, content, session.id) prints just that value: a",
 			"scalar raw and unquoted, a boolean as true/false, a list",
@@ -11638,6 +11844,25 @@ const COMMAND_ROWS = [
 			"prints the trail as one document; writes nothing"
 		]
 	},
+	{
+		token: "history metrics",
+		kind: "historyMetrics",
+		arity: {
+			name: "ref",
+			many: true
+		},
+		details: [
+			"Report how the kept processes went: slices whose naive pass",
+			"landed or was rebuilt (the refactor-first rate), continuations",
+			"per phase, Gtd-Cost by model and phase with the double work of",
+			"a rebuild, and quality-lap findings per lens — per process and",
+			"in total. Each <ref> is read as by history show, but a branch",
+			"name means every process kept from it; none means every ref.",
+			"Reads commit subjects and trailers, never replays, so a",
+			"changed config is no refusal. --json prints { processes, total",
+			"} as one document; writes nothing"
+		]
+	},
 	{
 		token: "history fetch",
 		kind: "historyFetch",
@@ -11669,7 +11894,7 @@ const flagHeader = (row) => {
 };
 const renderHelp = () => {
 	const commandBlocks = COMMAND_ROWS.map((row) => {
-		const header = row.arity === "none" ? row.token : "names" in row.arity ? `${row.token} <${row.arity.names[0]}> <${row.arity.names[1]}>` : "variadic" in row.arity ? `${row.token} <${row.arity.name}> [${row.arity.variadic}...]` : "optional" in row.arity ? `${row.token} [${row.arity.name}]` : `${row.token} <${row.arity.name}>`;
+		const header = row.arity === "none" ? row.token : "names" in row.arity ? `${row.token} <${row.arity.names[0]}> <${row.arity.names[1]}>` : "variadic" in row.arity ? `${row.token} <${row.arity.name}> [${row.arity.variadic}...]` : "optional" in row.arity ? `${row.token} [${row.arity.name}]` : "many" in row.arity ? `${row.token} [${row.arity.name}...]` : `${row.token} <${row.arity.name}>`;
 		return renderBlock(header, row.details);
 	});
 	return `Usage: gtd [command] [options]\n\nCommands:\n${[
@@ -11777,12 +12002,14 @@ const conflictViolation = (present) => {
 		for (const other of row.conflicts ?? []) if (present.has(other)) return `gtd: ${row.name} and ${other} are mutually exclusive`;
 	}
 };
+const tooMany = (cmd, rest, expected, max) => rest.length > max ? `gtd ${cmd}: too many arguments — expected ${expected}, got: ${rest.join(", ")}` : void 0;
 const arityError = (cmd, rest, arity) => {
-	if (arity === "none") return rest.length > 0 ? `gtd ${cmd}: too many arguments — expected none, got: ${rest.join(", ")}` : void 0;
+	if (arity === "none") return tooMany(cmd, rest, "none", 0);
 	if ("names" in arity) return pairArityError(cmd, rest, arity.names);
-	if ("optional" in arity) return rest.length > 1 ? `gtd ${cmd}: too many arguments — expected at most one ${arity.name}, got: ${rest.join(", ")}` : void 0;
+	if ("many" in arity) return void 0;
+	if ("optional" in arity) return tooMany(cmd, rest, `at most one ${arity.name}`, 1);
 	if (rest.length === 0) return `gtd ${cmd}: missing ${arity.name} argument`;
-	if (!("variadic" in arity) && rest.length > 1) return `gtd ${cmd}: too many arguments — expected one ${arity.name}, got: ${rest.join(", ")}`;
+	return "variadic" in arity ? void 0 : tooMany(cmd, rest, `one ${arity.name}`, 1);
 };
 const pairArityError = (cmd, rest, [first, second]) => {
 	if (rest.length === 0) return `gtd ${cmd}: missing ${first} and ${second} arguments`;
@@ -11833,7 +12060,7 @@ const parseArgv = (argv) => {
 	};
 	const isHistory = first === "history";
 	const row = first === void 0 ? void 0 : commandByToken(isHistory ? `history ${positionals[1] ?? ""}` : first);
-	if (isHistory && row === void 0) return usagePlan("gtd history: expected a subcommand — list, show <ref> or fetch [remote]", jsonSeen);
+	if (isHistory && row === void 0) return usagePlan("gtd history: expected a subcommand — list, show <ref>, metrics [ref...] or fetch [remote]", jsonSeen);
 	const judgeAnswer = row?.kind === "judge" && positionals[1] === "answer";
 	const selectsStart = workflowPresent && first === void 0;
 	const judgeRun = row?.kind === "judge" && positionals[1] === "run";
@@ -11966,6 +12193,15 @@ const parseArgv = (argv) => {
 		json,
 		verbose
 	};
+	if (kind === "historyMetrics") return {
+		kind: "command",
+		command: {
+			kind: "historyMetrics",
+			refs: restPositionals
+		},
+		json,
+		verbose
+	};
 	if (kind === "historyFetch") return {
 		kind: "command",
 		command: {

package/dist/workflows/cleanup.mjs

@@ -1,6 +1,6 @@
 import { agent, changes, glob, read, refuse, scope, start, vars } from "../flows.mjs";
-import { Dt as registryEntry, Ot as requireFlag, S as coder, St as envDefaults, Tt as flagReferences, i as skills, n as summary, o as flagShipped, r as access, t as steering, xt as defaults } from "../chunks/reserved-CfQ8eurM.mjs";
-import { a as refusePendingHandOff, r as handOffTail } from "../chunks/tail-C7yaWvaS.mjs";
+import { Dt as registryEntry, Ot as requireFlag, S as coder, St as envDefaults, Tt as flagReferences, i as skills, n as summary, o as flagShipped, r as access, t as steering, xt as defaults } from "../chunks/reserved-C3PgP7XB.mjs";
+import { a as refusePendingHandOff, r as handOffTail } from "../chunks/tail-Bkxki2nK.mjs";
 //#region src/workflows/cleanup/cleanup.ts
 const removingPrompt = (name, registry) => `Clean up the release flag "${name}", which is default-on: delete its entry in ${registry}, and remove every \`GTD_FLAG_${name.toUpperCase()}\` check from the shipped sources. Keep the flag-on path; delete code only the off path reached, including tests that pin the off path.`;
 const cleanupFlow = async () => {

package/dist/workflows/feature.mjs

@@ -1,7 +1,7 @@
 import { agent, answered, applyScript, changes, changesSince, check, codeChanges, env, hasThreadFor, head, human, judge, judgeDiffShape, kept, mark, matches, numeric, quote, read, refuse, removeScript, requireAnswers, requireProgress, requireReplies, requireRevert, requireThreadsClosed, restoreScript, revertScript, run, scope, slice, start, vars, wrote } from "../flows.mjs";
 import { lensEntriesOf, review as review$1 } from "../workflow-kit.mjs";
-import { $ as naiveApplyFailure, A as agentWithSkills, B as coverageQuestion, C as fixCheck, Ct as testFileGlobs, D as reviewMissing, E as planner, F as buildReviewTriageMessage, G as designSystem, H as criterionLine, I as builderSystem, K as designTriagePrompt, L as clearCriteriaMessage, M as buildReviewAwaitAfterDeferMessage, N as buildReviewCollectingPrompt, P as buildReviewFixNitsPrompt, Q as implementFixPrompt, R as clearCriteriaQuestion, S as coder, St as envDefaults, T as fixRisks, U as deferNotesScript, V as coveringPrompt, W as designGateAnswerMessage, X as idleMessage, Z as implementBuildingPrompt, _ as REFACTOR_NOTE, _t as startGateBlockedMessage, a as flagModeOn, at as refactorDroppedRefusal, b as SLICES, bt as unwindFailure, ct as refactorRules, d as guarded, et as naivePassPrompt, f as healthy, ft as reviewNotesCapture, g as REFACTOR, gt as slicingPrompt, h as QUALITY, ht as seamSteerMessage, i as skills, it as refactorBuildingPrompt, j as buildReviewAnswerQuestionsPrompt, k as reviewing, lt as reviewEditNotesCapture, m as HANDOFF, mt as seamByHandMessage, n as summary, nt as oversizedMessage, ot as refactorFixPrompt, p as FEEDBACK, pt as reviewerSystem, r as access, rt as qualityUnresolvedMessage, s as shipped, st as refactorNotePrompt, t as steering, tt as normaliseCriteriaScript, u as gate, ut as reviewEditsCapture, v as REQUIREMENTS, vt as uncoveredMessage, x as awaitReview, xt as defaults, y as REVIEW, yt as unwindFailedMessage, z as coverageMessage } from "../chunks/reserved-CfQ8eurM.mjs";
-import { a as refusePendingHandOff, i as isOptionalObject, n as closeReview, o as tail } from "../chunks/tail-C7yaWvaS.mjs";
+import { $ as naiveApplyFailure, A as agentWithSkills, B as coverageQuestion, C as fixCheck, Ct as testFileGlobs, D as reviewMissing, E as planner, F as buildReviewTriageMessage, G as designSystem, H as criterionLine, I as builderSystem, K as designTriagePrompt, L as clearCriteriaMessage, M as buildReviewAwaitAfterDeferMessage, N as buildReviewCollectingPrompt, P as buildReviewFixNitsPrompt, Q as implementFixPrompt, R as clearCriteriaQuestion, S as coder, St as envDefaults, T as fixRisks, U as deferNotesScript, V as coveringPrompt, W as designGateAnswerMessage, X as idleMessage, Z as implementBuildingPrompt, _ as REFACTOR_NOTE, _t as startGateBlockedMessage, a as flagModeOn, at as refactorDroppedRefusal, b as SLICES, bt as unwindFailure, ct as refactorRules, d as guarded, et as naivePassPrompt, f as healthy, ft as reviewNotesCapture, g as REFACTOR, gt as slicingPrompt, h as QUALITY, ht as seamSteerMessage, i as skills, it as refactorBuildingPrompt, j as buildReviewAnswerQuestionsPrompt, k as reviewing, lt as reviewEditNotesCapture, m as HANDOFF, mt as seamByHandMessage, n as summary, nt as oversizedMessage, ot as refactorFixPrompt, p as FEEDBACK, pt as reviewerSystem, r as access, rt as qualityUnresolvedMessage, s as shipped, st as refactorNotePrompt, t as steering, tt as normaliseCriteriaScript, u as gate, ut as reviewEditsCapture, v as REQUIREMENTS, vt as uncoveredMessage, x as awaitReview, xt as defaults, y as REVIEW, yt as unwindFailedMessage, z as coverageMessage } from "../chunks/reserved-C3PgP7XB.mjs";
+import { a as refusePendingHandOff, i as isOptionalObject, n as closeReview, o as tail } from "../chunks/tail-Bkxki2nK.mjs";
 import { posix } from "node:path";
 //#region src/workflows/shared/fences.ts
 const markFenced = (text) => {

package/dist/workflows/fix.mjs

@@ -1,7 +1,7 @@
 import { read, refuse, removeScript, run, scope, start } from "../flows.mjs";
 import { d as reviewNotes, f as reviewRisks } from "../chunks/steering-DVILanVf.mjs";
-import { A as agentWithSkills, J as fixReviewNotesPrompt, S as coder, St as envDefaults, c as baseline, i as skills, n as summary, q as finisherSystem, r as access, s as shipped, t as steering, xt as defaults, y as REVIEW } from "../chunks/reserved-CfQ8eurM.mjs";
-import { r as handOffTail, t as REVIEW_ORIG } from "../chunks/tail-C7yaWvaS.mjs";
+import { A as agentWithSkills, J as fixReviewNotesPrompt, S as coder, St as envDefaults, c as baseline, i as skills, n as summary, q as finisherSystem, r as access, s as shipped, t as steering, xt as defaults, y as REVIEW } from "../chunks/reserved-C3PgP7XB.mjs";
+import { r as handOffTail, t as REVIEW_ORIG } from "../chunks/tail-Bkxki2nK.mjs";
 //#region src/workflows/fix/fix.ts
 /**
 * Fix every note a human left in a handed-off `.gtd/REVIEW.md` and every

package/dist/workflows/review.mjs

@@ -1,6 +1,6 @@
 import { start } from "../flows.mjs";
-import { St as envDefaults, dt as reviewGateBlockedMessage, i as skills, n as summary, r as access, s as shipped, t as steering, u as gate, xt as defaults } from "../chunks/reserved-CfQ8eurM.mjs";
-import { a as refusePendingHandOff, r as handOffTail } from "../chunks/tail-C7yaWvaS.mjs";
+import { St as envDefaults, dt as reviewGateBlockedMessage, i as skills, n as summary, r as access, s as shipped, t as steering, u as gate, xt as defaults } from "../chunks/reserved-C3PgP7XB.mjs";
+import { a as refusePendingHandOff, r as handOffTail } from "../chunks/tail-Bkxki2nK.mjs";
 //#region src/workflows/review/review.ts
 /**
 * Pure review of everything since `reviewBase`: a green gate, the quality

package/dist/workflows/rollout.mjs

@@ -1,5 +1,5 @@
 import { agent, changesSince, glob, head, mark, read, refuse, removeScript, run, scope, vars } from "../flows.mjs";
-import { Et as flipProblems, Ot as requireFlag, S as coder, St as envDefaults, i as skills, n as summary, o as flagShipped, p as FEEDBACK, r as access, t as steering, u as gate, wt as flagMentions, xt as defaults } from "../chunks/reserved-CfQ8eurM.mjs";
+import { Et as flipProblems, Ot as requireFlag, S as coder, St as envDefaults, i as skills, n as summary, o as flagShipped, p as FEEDBACK, r as access, t as steering, u as gate, wt as flagMentions, xt as defaults } from "../chunks/reserved-C3PgP7XB.mjs";
 //#region src/workflows/rollout/rollout.ts
 const flippingPrompt = (name, registry) => `Roll out the release flag "${name}": in ${registry}, set \`defaultOn: true\` on its entry. Change nothing else — no other entry, no other field, no other file, no comments.`;
 const suiteBlockedMessage = () => "The suite is red after the rollout. Fix it by hand — a rollout may only touch the flag's registry entry — then land.";

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "@pmelab/gtd",
-  "version": "38.1.0",
+  "version": "38.2.0",
   "private": false,
   "description": "Git-aware CLI that emits the next prompt for an autonomous coding agent based on the current repository state",
   "bin": {

package/src/cli/Cli.test.ts

@@ -1021,14 +1021,21 @@ describe("parseArgv — gtd history", () => {
     expect(parse("history", "fetch", "upstream")).toMatchObject({
       command: { kind: "historyFetch", remote: "upstream" },
     })
+    expect(parse("history", "metrics")).toMatchObject({
+      command: { kind: "historyMetrics", refs: [] },
+    })
+    expect(parse("history", "metrics", "a", "feat/b")).toMatchObject({
+      command: { kind: "historyMetrics", refs: ["a", "feat/b"] },
+    })
   })
 
-  it("bare history and an unknown subcommand are usage errors naming list, show, fetch", () => {
+  it("bare history and an unknown subcommand are usage errors naming list, show, metrics, fetch", () => {
     for (const args of [["history"], ["history", "nope"]]) {
       const message = usage(parse(...args))
       expect(message).toContain("list")
       expect(message).toContain("show")
       expect(message).toContain("fetch")
+      expect(message).toContain("metrics")
     }
   })
 
@@ -1039,19 +1046,23 @@ describe("parseArgv — gtd history", () => {
     expect(usage(parse("history", "fetch", "a", "b"))).toContain("too many arguments")
   })
 
-  it("--json is accepted for list and show, rejected for fetch", () => {
+  it("--json is accepted for list, show and metrics, rejected for fetch", () => {
     expect(parse("history", "list", "--json")).toMatchObject({ json: { kind: "document" } })
     expect(parse("history", "show", "x", "--json=ended")).toMatchObject({
       json: { kind: "select", path: "ended" },
     })
+    expect(parse("history", "metrics", "--json=total.refactorFirstRate")).toMatchObject({
+      json: { kind: "select", path: "total.refactorFirstRate" },
+    })
     expect(parse("history", "fetch", "--json").kind).toBe("usage")
   })
 
-  it("help lists the three history rows", () => {
+  it("help lists the four history rows", () => {
     const help = renderHelp()
     expect(help).toMatch(/^ {2}history list\b/m)
     expect(help).toContain("history show <ref>")
     expect(help).toContain("history fetch [remote]")
+    expect(help).toContain("history metrics [ref...]")
   })
 })
 
@@ -1136,6 +1147,7 @@ describe("standaloneKinds / needsOf", () => {
       "slices",
       "historyList",
       "historyShow",
+      "historyMetrics",
       "historyFetch",
     ] as const) {
       expect(needsOf(kind)).toBe("state")