@pmelab/gtd 41.0.0 → 43.0.0

package/dist/steering.mjs

@@ -1,2 +1,2 @@
-import { C as headingSections, S as headingSectionBodies, _ as openThreadFindings, a as unansweredQuestions, b as parseThreadsWithFindings, c as stripCodeThreads, d as reviewNotes, f as reviewRisks, g as THREAD_REPLY_ACTION_TITLE, h as FOOTNOTE_ACTION_TITLE, i as steeringFormatOrFreeForm, l as freeFormFormat, m as isAnswered, n as openThreads, o as viewOf, p as FREE_TEXT_PLACEHOLDER, r as steeringFormatFor, s as parseCodeThreads, t as BUILT_IN_MODE_NAMES, u as applySteeringEdits, v as parseFootnotes, w as formatFinding, x as getParseCount, y as parseThreads } from "./chunks/steering-DVILanVf.mjs";
-export { BUILT_IN_MODE_NAMES, FOOTNOTE_ACTION_TITLE, FREE_TEXT_PLACEHOLDER, THREAD_REPLY_ACTION_TITLE, applySteeringEdits, formatFinding, freeFormFormat, getParseCount, headingSectionBodies, headingSections, isAnswered, openThreadFindings, openThreads, parseCodeThreads, parseFootnotes, parseThreads, parseThreadsWithFindings, reviewNotes, reviewRisks, steeringFormatFor, steeringFormatOrFreeForm, stripCodeThreads, unansweredQuestions, viewOf };
+import { C as parseFootnotes, D as headingSectionBodies, E as getParseCount, O as headingSections, S as openThreadFindings, T as parseThreadsWithFindings, _ as unansweredNotes, a as unansweredQuestions, b as FOOTNOTE_ACTION_TITLE, c as stripCodeThreads, d as ANSWER_FIX, f as ANSWER_LEAD, g as reviewRisks, h as reviewNotes, i as steeringFormatOrFreeForm, k as formatFinding, l as freeFormFormat, m as reviewDecisions, n as openThreads, o as viewOf, p as ANSWER_WONT_FIX, r as steeringFormatFor, s as parseCodeThreads, t as BUILT_IN_MODE_NAMES, u as applySteeringEdits, v as FREE_TEXT_PLACEHOLDER, w as parseThreads, x as THREAD_REPLY_ACTION_TITLE, y as isAnswered } from "./chunks/steering-D4LUQ-av.mjs";
+export { ANSWER_FIX, ANSWER_LEAD, ANSWER_WONT_FIX, BUILT_IN_MODE_NAMES, FOOTNOTE_ACTION_TITLE, FREE_TEXT_PLACEHOLDER, THREAD_REPLY_ACTION_TITLE, applySteeringEdits, formatFinding, freeFormFormat, getParseCount, headingSectionBodies, headingSections, isAnswered, openThreadFindings, openThreads, parseCodeThreads, parseFootnotes, parseThreads, parseThreadsWithFindings, reviewDecisions, reviewNotes, reviewRisks, steeringFormatFor, steeringFormatOrFreeForm, stripCodeThreads, unansweredNotes, unansweredQuestions, viewOf };

package/dist/testkit.mjs

@@ -1,6 +1,6 @@
-import { applyScript, checkScript, configProblems, configure, installContext, isFactoryWorkflow, moveScript, protocolMismatch, removeScript, restoreScript, revertScript, showScript, t as flows_exports } from "./flows.mjs";
+import { answered, applyScript, checkScript, configProblems, configure, installContext, isFactoryWorkflow, moveScript, numeric, protocolMismatch, removeScript, restoreScript, revertScript, showScript, t as flows_exports, writeScript } 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 { D as headingSectionBodies, O as headingSections, T as parseThreadsWithFindings, a as unansweredQuestions, k as formatFinding, n as openThreads, r as steeringFormatFor, s as parseCodeThreads, t as BUILT_IN_MODE_NAMES } from "./chunks/steering-D4LUQ-av.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";
@@ -10253,6 +10253,13 @@ const resolveHistoryRef = (arg, entries) => {
 	if (byBranch !== void 0) return succeed$6(byBranch);
 	return fail$5(/* @__PURE__ */ new Error(`gtd history: no history ref matches "${arg}"`));
 };
+/** Every kept process, or those `refs` name — a branch name meaning every process kept from it, not just its newest. */
+const selectHistoryEntries = (refs) => gen(function* () {
+	const entries = yield* historyEntries;
+	if (refs.length === 0) return entries;
+	const chosen = (yield* forEach$2(refs, (ref) => resolveHistoryRef(ref, entries).pipe(map$4((hit) => hit.branch === ref ? entries.filter((e) => e.branch === ref) : [hit])))).flat();
+	return chosen.filter((e, i) => chosen.findIndex((o) => o.ref === e.ref) === i);
+});
 const seven = (hash) => hash.slice(0, 7);
 const runHistoryListCommand = (json, out) => gen(function* () {
 	const entries = yield* historyEntries;
@@ -10288,7 +10295,7 @@ const runHistoryFetchCommand = (remote, out) => sync$2(() => {
 });
 //#endregion
 //#region src/cli/Metrics.ts
-const QUALITY = ".gtd/QUALITY.md";
+const QUALITY$1 = ".gtd/QUALITY.md";
 const LENS = /^((?:.*\.)?quality\.[^.]+)\.reviewing$/;
 const CONTINUE = /(^|\.)continue\./;
 const inSeam = (step) => step.startsWith("seam.");
@@ -10435,12 +10442,12 @@ 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));
+	const quality = (hash) => git.readFileAtRef(hash, QUALITY$1).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));
+		if (touched.includes(QUALITY$1)) count = chunks(yield* quality(hash));
 		read.push({
 			message,
 			findings: Math.max(0, count - before)
@@ -10466,9 +10473,7 @@ const line = (label, m) => {
 	].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) => ({
+	const processes = yield* forEach$2(yield* selectHistoryEntries(refs), (e) => readProcessMetrics(e).pipe(map$4((metrics) => ({
 		ref: e.ref,
 		entry: e.entry,
 		branch: e.branch,
@@ -10489,6 +10494,381 @@ const runHistoryMetricsCommand = (refs, json, out) => gen(function* () {
 	out.write(`${lines.join("\n")}\n`);
 });
 //#endregion
+//#region src/cli/Judges.ts
+const FEEDBACK = ".gtd/FEEDBACK.md";
+const QUALITY = ".gtd/QUALITY.md";
+const REVIEW = ".gtd/REVIEW.md";
+const REQUIREMENTS = ".gtd/REQUIREMENTS.md";
+const JUDGE_STEPS = [
+	["retry", /(^|\.)health\.judge$/],
+	["triage", /(^|\.)quality\.triage$/],
+	["clear", /(^|\.)design\.clear$/]
+];
+const answerOf = (answer) => typeof answer === "boolean" ? answer ? "yes" : "no" : String(answer);
+const verdictOf = (answer, p) => ({
+	answer: answerOf(answer),
+	p
+});
+const THRESHOLDS = {
+	judgeIdenticalMinP: {
+		judge: "retry",
+		decide: (answer, p, minP) => answered(verdictOf(answer, p), "identical", minP) ? "identical" : "retry",
+		labels: {
+			identical: [
+				"escalation",
+				"escalations",
+				"an escalation"
+			],
+			retry: [
+				"plain retry",
+				"plain retries",
+				"a plain retry"
+			]
+		}
+	},
+	qualityTriageMinP: {
+		judge: "triage",
+		decide: (answer, p, minP) => ["mechanical", "noise"].find((k) => answered(verdictOf(answer, p), k, minP)) ?? "design",
+		labels: {
+			mechanical: [
+				"auto-fix",
+				"auto-fixes",
+				"an auto-fix"
+			],
+			noise: [
+				"noise drop",
+				"noise drops",
+				"a noise drop"
+			],
+			design: [
+				"note",
+				"notes",
+				"a note"
+			]
+		}
+	}
+};
+const UNTITLED = "Quality findings";
+/** The quality lap's own numbering: prose outside every `## ` section is finding Q1. */
+const findingsOf = (text) => {
+	const sections = headingSectionBodies(text);
+	const stray = sections.reduce((rest, s) => rest.replace(s.body, "\n"), text).split("\n").filter((line) => !/^#\s/.test(line)).join("\n").trim();
+	return [...stray === "" ? [] : [{
+		title: UNTITLED,
+		body: stray
+	}], ...sections.map((s) => ({
+		title: s.title,
+		body: s.body.split("\n").slice(1).join("\n").trim()
+	}))].map((f, i) => ({
+		id: `Q${i + 1}`,
+		...f
+	}));
+};
+/** The criteria list, one item per line, wrapping undone: prose around it is no criterion. */
+const criteriaOf = (text) => {
+	if (text === void 0) return void 0;
+	const section = headingSectionBodies(text).find((s) => /^acceptance criteria$/i.test(s.title.trim()));
+	if (section === void 0) return void 0;
+	const items = [];
+	let open = false;
+	for (const line of section.body.split("\n").slice(1)) {
+		const item = /^\s*[-*+]\s+(.*)$/.exec(line);
+		if (item !== null) items.push(item[1].trim());
+		else if (open && line.trim() !== "") items.push(`${items.pop()} ${line.trim()}`);
+		open = item !== null || open && line.trim() !== "";
+	}
+	return items.map((i) => i.replace(/\s+/g, " ")).join("\n");
+};
+const criteriaChanged = (before, after) => criteriaOf(before) !== criteriaOf(after);
+const chunkLines = (doc, title) => headingSectionBodies(doc).find((s) => s.title === title)?.body.split("\n").slice(1).map((l) => l.trim()).filter((l) => l !== "") ?? [];
+const retryOutcome = (reads, i, scope) => {
+	const isCheck = (r) => r.at === `${scope}health.check` || r.at === `${scope}health.recheck`;
+	const after = reads.slice(i + 1);
+	const fix = after.findIndex((r) => isCheck(r) && r.commit.feedback === void 0 || r.actor === "agent" && !r.at.startsWith(`${scope}health.`));
+	if (fix === -1 || after[fix].actor !== "agent") return null;
+	const check = after.findIndex((r, k) => k > fix && r.at === `${scope}health.check`);
+	if (check === -1) return null;
+	if (after.slice(0, check).some((r) => r.actor === "human" && r.commit.code === true)) return null;
+	return after[check].commit.feedback === void 0 ? "overturned" : "held";
+};
+const RESHOWN = {
+	mechanical: "Fixed automatically",
+	noise: "Dropped as noise"
+};
+const isItem = (line) => line.startsWith("- ");
+/** The line at `at` and the note lines under it, up to the next list item. */
+const block = (lines, at) => {
+	const next = lines.findIndex((l, k) => k > at && isItem(l));
+	return lines.slice(at, next === -1 ? void 0 : next).join("\n");
+};
+/** Whether the review edited `title`'s line in `chunk`, or wrote under it; null when the review did not list it there. */
+const reviewedLine = (review, chunk, title) => {
+	const before = chunkLines(review.before, chunk);
+	const at = before.findIndex((l) => l.startsWith(`- ${title} (`));
+	if (at === -1) return null;
+	const after = chunkLines(review.after, chunk);
+	const kept = after.indexOf(before[at]);
+	return (kept === -1 ? after.some((l) => !before.includes(l) && l.startsWith(`- ${title}`) && !before.some((o, k) => k !== at && o.startsWith(`- ${title}`) && l.startsWith(o.split(" (")[0]))) : block(after, kept) !== block(before, at)) ? "overturned" : "held";
+};
+const triageOutcome = (reads, i, answer, finding) => {
+	const chunk = RESHOWN[answer];
+	if (chunk === void 0 || finding === void 0) return null;
+	const next = reads.slice(i + 1).find((r) => judgeOf(r.at) === "triage" || r.actor === "human" && r.commit.review !== void 0);
+	const review = next?.actor === "human" ? next.commit.review : void 0;
+	return review === void 0 ? null : reviewedLine(review, chunk, finding.title);
+};
+const CLEAR_MIN_P = .8;
+const clearOutcome = (reads, i, v) => {
+	if (!answered(verdictOf(v.answer, v.p), "yes", CLEAR_MIN_P)) return null;
+	if (!reads[i].to.endsWith("design.normalise")) return null;
+	return reads.slice(i + 1).some((r) => r.actor === "human" && /(^|\.)design\./.test(r.at) && r.commit.criteriaChanged === true) ? "overturned" : "held";
+};
+const judgeOf = (step) => JUDGE_STEPS.find(([, pattern]) => pattern.test(step))?.[0];
+const reportsBefore = (reads, i, scope) => reads.slice(0, i).filter((r) => (r.at === `${scope}health.check` || r.at === `${scope}health.recheck`) && r.commit.feedback !== void 0).map((r) => r.commit.feedback);
+/** Oldest first: every verdict of a calibrated judge, with its outcome. */
+const processJudgments = (commits) => {
+	const reads = commits.map((commit) => {
+		const message = parseCommitMessage(commit.message);
+		const subject = message.parsed;
+		return {
+			commit,
+			actor: subject?.actor,
+			at: subject === void 0 ? "" : subject.from ?? subject.to,
+			to: subject?.to ?? "",
+			judge: message.judge
+		};
+	});
+	const sketch = commits[0]?.sketch;
+	return reads.flatMap((r, i) => {
+		const judge = judgeOf(r.at);
+		if (judge === void 0) return [];
+		const scope = r.at.slice(0, r.at.length - r.at.split(".").slice(-2).join(".").length);
+		const at = {
+			reads,
+			i,
+			scope,
+			sketch
+		};
+		return r.judge.map((v) => ({
+			judge,
+			commit: r.commit.hash,
+			step: r.at,
+			question: v.id,
+			...JUDGES[judge](at, v),
+			answer: v.answer,
+			p: v.p
+		}));
+	});
+};
+const NOT_COMPARABLE = { tailsNotComparable: "true" };
+const field = (key, value) => value === void 0 ? {} : { [key]: value };
+const JUDGES = {
+	retry: ({ reads, i, scope }, v) => {
+		const reports = reportsBefore(reads, i, scope);
+		const previous = reports.at(-2);
+		const current = reports.at(-1);
+		const comparable = previous?.trim() !== "" && current?.trim() !== "";
+		const known = previous !== void 0 && current !== void 0;
+		return {
+			state: comparable ? {
+				...field("previous", previous),
+				...field("current", current)
+			} : NOT_COMPARABLE,
+			outcome: known && comparable && answerOf(v.answer) === "identical" ? retryOutcome(reads, i, scope) : null
+		};
+	},
+	triage: ({ reads, i }, v) => {
+		const finding = reads[i].commit.findings?.find((f) => f.id === v.id);
+		return {
+			state: field(v.id, finding && `## ${finding.title}\n\n${finding.body}`),
+			outcome: triageOutcome(reads, i, answerOf(v.answer), finding)
+		};
+	},
+	clear: ({ reads, i, sketch }, v) => ({
+		state: field("sketch", sketch),
+		outcome: clearOutcome(reads, i, v)
+	})
+};
+const rate = (overturned, scored) => Math.round(overturned / scored * 1e3) / 1e3;
+const bucketOf = (p) => Math.min(9, Math.max(0, Math.floor(p * 10))) / 10;
+const calibrate = (judgments) => {
+	const of = (judge) => {
+		const all = judgments.filter((j) => j.judge === judge);
+		const scored = all.filter((j) => j.outcome !== null);
+		const buckets = /* @__PURE__ */ new Map();
+		for (const j of scored) {
+			const b = buckets.get(bucketOf(j.p)) ?? {
+				scored: 0,
+				overturned: 0
+			};
+			b.scored++;
+			if (j.outcome === "overturned") b.overturned++;
+			buckets.set(bucketOf(j.p), b);
+		}
+		const overturned = scored.filter((j) => j.outcome === "overturned").length;
+		return {
+			verdicts: all.length,
+			scored: scored.length,
+			overturned,
+			buckets: [...buckets.entries()].sort(([a], [b]) => a - b).map(([p, b]) => ({
+				p,
+				...b,
+				rate: rate(b.overturned, b.scored)
+			}))
+		};
+	};
+	return {
+		retry: of("retry"),
+		triage: of("triage"),
+		clear: of("clear")
+	};
+};
+/** Every verdict of `threshold`'s judge as `[decided then, decided under value]`. */
+const redecided = (processes, name, value) => {
+	const threshold = THRESHOLDS[name];
+	const now = numeric(value, Infinity);
+	return processes.filter(({ vars }) => Object.hasOwn(vars, name)).flatMap(({ vars, judgments }) => judgments.filter((j) => j.judge === threshold.judge && j.state !== NOT_COMPARABLE).map((j) => {
+		const was = numeric(vars[name], Infinity);
+		return [
+			threshold.decide(j.answer, j.p, was),
+			threshold.decide(j.answer, j.p, now),
+			j
+		];
+	}));
+};
+const whatIf = (processes, name, value) => {
+	const changes = /* @__PURE__ */ new Map();
+	for (const [from, to, j] of redecided(processes, name, value)) {
+		if (from === to) continue;
+		const c = changes.get(`${from} ${to}`) ?? {
+			from,
+			to,
+			count: 0,
+			overturned: 0
+		};
+		changes.set(`${from} ${to}`, {
+			...c,
+			count: c.count + 1,
+			overturned: c.overturned + (j.outcome === "overturned" ? 1 : 0)
+		});
+	}
+	return {
+		var: name,
+		value,
+		judge: THRESHOLDS[name].judge,
+		changes: [...changes.values()]
+	};
+};
+const changeLine = (labels, c) => {
+	const [one, many] = labels[c.from];
+	const [, toMany, toOne] = labels[c.to];
+	const what = c.count === 1 ? `1 ${one} becomes ${toOne}` : `${c.count} ${many} become ${toMany}`;
+	return c.overturned > 0 ? `${what} (${c.overturned} overturned)` : what;
+};
+const reportFact = (at, c, from) => /(^|\.)health\.(re)?check$/.test(from) && c.touched.includes(FEEDBACK) ? at(c.hash, FEEDBACK).pipe(map$4((r) => r === void 0 ? {} : { feedback: stripStamp(r) })) : succeed$6({});
+const findingsFact = (at, parent, from) => judgeOf(from) === "triage" ? at(parent, QUALITY).pipe(map$4((q) => ({ findings: findingsOf(q ?? "") }))) : succeed$6({});
+const reviewFact = (at, c, parent, human) => human && c.touched.includes(REVIEW) ? all$1([at(parent, REVIEW), at(c.hash, REVIEW)]).pipe(map$4(([before, after]) => ({ review: {
+	before: before ?? "",
+	after: after ?? ""
+} }))) : succeed$6({});
+const criteriaFact = (at, c, parent, human) => human && c.touched.includes(REQUIREMENTS) ? all$1([at(parent, REQUIREMENTS), at(c.hash, REQUIREMENTS)]).pipe(map$4(([before, after]) => ({ criteriaChanged: criteriaChanged(before, after) }))) : succeed$6({});
+const sketchFact = (at, c, opening) => {
+	const todo = c.touched.filter((p) => /(^|\/)TODO\.md$/.test(p));
+	return opening && todo.length === 1 ? at(c.hash, todo[0]).pipe(map$4((s) => s === void 0 ? {} : { sketch: s })) : succeed$6({});
+};
+/** Only the files a verdict's outcome or state reads, and only at the commits that can matter. */
+const commitFacts = (at, c, parent, opening) => {
+	const step = parseCommitMessage(c.message).parsed;
+	const from = step === void 0 ? "" : step.from ?? step.to;
+	return all$1([
+		reportFact(at, c, from),
+		findingsFact(at, parent, from),
+		reviewFact(at, c, parent, step?.actor === "human"),
+		criteriaFact(at, c, parent, step?.actor === "human"),
+		sketchFact(at, c, opening)
+	]).pipe(map$4((facts) => Object.assign({
+		hash: c.hash,
+		message: c.message
+	}, c.touched.some((p) => p !== ".gtd" && !p.startsWith(".gtd/")) ? { code: true } : {}, ...facts)));
+};
+const readProcessJudgments = (entry) => gen(function* () {
+	const git = yield* GitService;
+	const base = getOrUndefined(yield* git.readRefOption(`${entry.entry}^`));
+	const commits = yield* git.commitHistory(base, entry.tip);
+	const vars = commits[0] === void 0 ? {} : parseCommitMessage(commits[0].message).vars;
+	if (!commits.some((c) => {
+		const m = parseCommitMessage(c.message);
+		return m.judge.length > 0 && judgeOf(m.parsed?.from ?? m.parsed?.to ?? "") !== void 0;
+	})) return {
+		vars,
+		judgments: []
+	};
+	const at = (ref, path) => ref === void 0 ? succeed$6(void 0) : git.readFileAtRef(ref, path).pipe(map$4((content) => content), orElseSucceed(() => void 0));
+	const read = yield* forEach$2(commits, (commit, i) => commitFacts(at, commit, i === 0 ? base : commits[i - 1].hash, i === 0));
+	return {
+		vars,
+		judgments: processJudgments(read)
+	};
+});
+const stripStamp = (text) => text.replace(/\n<!-- gtd check [0-9a-f]+ -->\n?$/, "\n");
+const NAMES = [
+	"retry",
+	"triage",
+	"clear"
+];
+const calibrationLine = (name, c) => {
+	const buckets = c.buckets.map((b) => `${b.p.toFixed(1)}-${(b.p + .1).toFixed(1)}: ${b.overturned}/${b.scored}`).join(", ");
+	return `${name}: ${c.verdicts} verdicts, ${c.scored} scored, ${c.overturned} overturned${buckets === "" ? "" : ` (${buckets})`}`;
+};
+const runHistoryJudgesCommand = (refs, vars, jsonl, json, out) => gen(function* () {
+	const processes = yield* forEach$2(yield* selectHistoryEntries(refs), (e) => readProcessJudgments(e).pipe(map$4((p) => ({
+		...p,
+		entry: e.entry,
+		ref: e.ref,
+		branch: e.branch
+	}))), { concurrency: 4 });
+	if (jsonl) {
+		for (const p of processes) for (const { judge, commit, step, question, state, answer, p: pr, outcome } of p.judgments) out.write(`${JSON.stringify({
+			process: p.entry,
+			judge,
+			commit,
+			step,
+			question,
+			state,
+			answer,
+			p: pr,
+			outcome
+		})}\n`);
+		return;
+	}
+	const judges = calibrate(processes.flatMap((p) => p.judgments));
+	const whatIfs = Object.entries(vars).map(([name, value]) => whatIf(processes, name, value));
+	if (yield* writeJson(json, out, {
+		processes: processes.map((p) => ({
+			ref: p.ref,
+			entry: p.entry,
+			branch: p.branch,
+			judges: calibrate(p.judgments)
+		})),
+		total: {
+			processes: processes.length,
+			judges
+		},
+		whatIf: whatIfs
+	})) return;
+	if (processes.length === 0) {
+		out.write("no history refs; run gtd history fetch | sh to pull them\n");
+		return;
+	}
+	const lines = NAMES.map((name) => calibrationLine(name, judges[name]));
+	for (const w of whatIfs) {
+		const labels = THRESHOLDS[w.var].labels;
+		const changes = w.changes.map((c) => changeLine(labels, c)).join(", ");
+		lines.push(`what-if ${w.var}=${printable(w.value)}: ${changes || "no decision changes"}`);
+	}
+	out.write(`${lines.join("\n")}\n`);
+});
+//#endregion
 //#region src/cli/Program.ts
 const selfGtd = () => {
 	const script = process.argv[1];
@@ -11141,6 +11521,7 @@ const dispatchVoidCommand = (command, json, out) => {
 		case "historyList": return runHistoryListCommand(json, out);
 		case "historyShow": return runHistoryShowCommand(command.ref, json, out);
 		case "historyMetrics": return runHistoryMetricsCommand(command.refs, json, out);
+		case "historyJudges": return runHistoryJudgesCommand(command.refs, command.vars, command.jsonl, json, out);
 		case "historyFetch": return runHistoryFetchCommand(command.remote, out);
 	}
 };
@@ -11189,6 +11570,7 @@ const JSON_KINDS = /* @__PURE__ */ new Set([
 	"historyList",
 	"historyShow",
 	"historyMetrics",
+	"historyJudges",
 	"strays"
 ]);
 const FLAGS = [
@@ -11198,11 +11580,11 @@ const FLAGS = [
 		repeatable: false,
 		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 history metrics`/`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 history judges`/`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 history metrics/gtd strays only) output structured JSON. Bare --json prints the whole document;",
+			"list/gtd history show/gtd history metrics/gtd history judges/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",
@@ -11380,7 +11762,7 @@ const FLAGS = [
 		name: "--var",
 		arity: 1,
 		repeatable: true,
-		scope: (kind) => kind === "start",
+		scope: (kind) => kind === "start" || kind === "historyJudges",
 		decode: (raws) => {
 			const vars = {};
 			const seen = /* @__PURE__ */ new Set();
@@ -11403,15 +11785,28 @@ const FLAGS = [
 			}
 			return right(vars);
 		},
-		scopeError: "gtd: --var requires --workflow",
+		scopeError: "gtd: --var requires --workflow (or `gtd history judges`)",
 		valueHint: "<name>=<value>",
 		help: [
 			"(with --workflow; repeatable) pin a process setting for the",
 			"new process; the name must already be declared by the",
 			"workflow's defaults (environment settings are not",
-			"pinnable)"
+			"pinnable). (gtd history judges) re-decide past verdicts",
+			"under this threshold: judgeIdenticalMinP or",
+			"qualityTriageMinP"
 		]
 	},
+	{
+		name: "--jsonl",
+		arity: 0,
+		repeatable: false,
+		scope: (kind) => kind === "historyJudges",
+		decode: () => right(true),
+		scopeError: "gtd: --jsonl is only valid for `gtd history judges`",
+		valueHint: "",
+		help: ["(gtd history judges only) print one JSON line per verdict", "instead of the report"],
+		conflicts: ["--json", "--var"]
+	},
 	{
 		name: "--open-questions",
 		arity: 0,
@@ -11872,6 +12267,26 @@ const COMMAND_ROWS = [
 			"} as one document; writes nothing"
 		]
 	},
+	{
+		token: "history judges",
+		kind: "historyJudges",
+		arity: {
+			name: "ref",
+			many: true
+		},
+		details: [
+			"Calibrate the judges of the kept processes from their",
+			"recorded Gtd-Judge verdicts: per judge (retry, triage, clear)",
+			"and p bucket, how many verdicts later events overturned.",
+			"--var <name>=<value> re-decides every past verdict under",
+			"another threshold and prints what would have changed;",
+			"--jsonl prints one { process, judge, commit, step, question,",
+			"state, answer, p, outcome } line per verdict instead. <ref>",
+			"is read as by history metrics. Never replays and asks no",
+			"model. --json prints { processes, total, whatIf }; writes",
+			"nothing"
+		]
+	},
 	{
 		token: "history fetch",
 		kind: "historyFetch",
@@ -12069,7 +12484,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>, metrics [ref...] or fetch [remote]", jsonSeen);
+	if (isHistory && row === void 0) return usagePlan("gtd history: expected a subcommand — list, show <ref>, metrics [ref...], judges [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";
@@ -12211,6 +12626,24 @@ const parseArgv = (argv) => {
 		json,
 		verbose
 	};
+	if (kind === "historyJudges") {
+		const vars = bag["--var"] ?? {};
+		const unknown = Object.keys(vars).find((name) => !Object.hasOwn(THRESHOLDS, name));
+		if (unknown !== void 0) return usagePlan(`gtd history judges: --var ${unknown} is no judge threshold — use ${Object.keys(THRESHOLDS).join(" or ")}`, jsonSeen);
+		const nan = Object.entries(vars).find(([, value]) => value.trim() === "" || !Number.isFinite(Number(value)));
+		if (nan !== void 0) return usagePlan(`gtd history judges: --var ${nan[0]} must be a number — got "${nan[1]}"`, jsonSeen);
+		return {
+			kind: "command",
+			command: {
+				kind: "historyJudges",
+				refs: restPositionals,
+				vars,
+				jsonl: bag["--jsonl"] ?? false
+			},
+			json,
+			verbose
+		};
+	}
 	if (kind === "historyFetch") return {
 		kind: "command",
 		command: {
@@ -13068,6 +13501,18 @@ const recognizeMove = (repo, script) => {
 	repo.writeFile(to, content);
 	return ok();
 };
+const recognizeWrite = (repo, script) => {
+	const lines = shellLines(script.split("\n"));
+	if (!lines[3]?.startsWith("printf '%s' ")) return void 0;
+	const [path] = words$1(lines[2] ?? "");
+	const [, content, to] = words$1(lines[3]);
+	const remove = words$1(lines.find((l) => l.startsWith("rm -rf -- ")) ?? "");
+	if (path === void 0 || content === void 0 || to !== path) return void 0;
+	if (writeScript(path, content, remove) !== script) return void 0;
+	repo.writeFile(path, content);
+	removeAll(repo, remove);
+	return ok();
+};
 const recognizeShow = (repo, script) => {
 	const line = script.split("\n").find((l) => l.startsWith("git show ")) ?? "";
 	const [source, to] = words$1(line);
@@ -13312,7 +13757,7 @@ const recognizeCheck = (repo, commands, script) => {
 */
 const applyFlowScript = (repo, commands, script) => {
 	if (!script.startsWith(`${SHEBANG}\n`)) return void 0;
-	return recognizeRemove(repo, script) ?? recognizeMove(repo, script) ?? recognizeShow(repo, script) ?? recognizePatch(repo, script) ?? recognizeRestore(repo, script) ?? recognizeCheck(repo, commands, script);
+	return recognizeRemove(repo, script) ?? recognizeMove(repo, script) ?? recognizeShow(repo, script) ?? recognizeWrite(repo, script) ?? recognizePatch(repo, script) ?? recognizeRestore(repo, script) ?? recognizeCheck(repo, commands, script);
 };
 //#endregion
 //#region src/testkit/EmittedScriptRecognizer.ts
@@ -13824,18 +14269,6 @@ const splitBlocks = (script) => {
 	if (current.trim().length > 0) blocks.push(current.trim());
 	return blocks;
 };
-/** `deferNotesScript`: append its one section to `.gtd/TODO.md`, reading the section's lines off the final `printf`. */
-const DEFER_HEAD = "mkdir -p .gtd\nif [ -s .gtd/TODO.md ]; then";
-const recognizeDeferNotes = (repo, block) => {
-	if (!block.startsWith(DEFER_HEAD)) return void 0;
-	const at = block.lastIndexOf("\nprintf '%s\\n' ");
-	if (at === -1) return void 0;
-	const lines = extractQuotedTokens(block.slice(at + 15));
-	const old = repo.readFile(".gtd/TODO.md") ?? "";
-	const sep = old === "" ? "" : `${old.endsWith("\n") ? "" : "\n"}\n`;
-	repo.writeFile(".gtd/TODO.md", `${old}${sep}${lines.join("\n")}\n`);
-	return { kind: "applied" };
-};
 /** `mkdir -p <dir>` then `printf '%s\n' <quoted lines> > <path>`: a flow's one-file write. Re-rendered from what was extracted, so any other shape stays unrecognized. */
 const recognizeWriteLines = (repo, block) => {
 	const [mkdir, printf, ...rest] = block.split("\n");
@@ -13855,7 +14288,6 @@ const recognizersFor = (repo, commands, git) => [
 	(block) => recognizeFileExistsGuard(repo, block),
 	(block) => recognizeBinaryGuard(commands, block),
 	(block) => git ? recognizeGitBuilders(repo, block) : void 0,
-	(block) => recognizeDeferNotes(repo, block),
 	(block) => recognizeWriteLines(repo, block),
 	(block) => recognizeFailurePromptWrapper(repo, commands, block),
 	(block) => recognizePresentationSubshell(repo, commands, block, git),