@pmelab/gtd 36.0.0 → 38.0.0

package/dist/testkit.mjs

@@ -1,5 +1,5 @@
 import { applyScript, checkScript, configProblems, configure, installContext, isFactoryWorkflow, moveScript, protocolMismatch, removeScript, restoreScript, revertScript, showScript, t as flows_exports } from "./flows.mjs";
-import { O as ACCESS_REFUSAL, a as selectPath, d as renderLandPlain, g as statusOf, h as renderBeatJson, i as resolveSession, j as renderFormat, l as noopText, m as beatDocument, n as slicesDocument, o as judgeJson, p as renderBeatPlain, r as globMatches, s as landFields, t as renderSlicesJson, u as renderLandJson, v as beatKindOf, y as demandOf } from "./chunks/wire-D3Rc5r22.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-CSsa3Wxd.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 { createRequire } from "node:module";
@@ -7128,6 +7128,15 @@ const budgeted = (evidence, budgetBytes) => {
 		truncated
 	};
 };
+const scopeLabel = (chain) => {
+	const path = chain.flatMap((o) => o.name === void 0 ? [] : [o.name]).join(".");
+	if (chain.at(-1)?.name !== void 0) return `scope "${path}"`;
+	return path === "" ? "an unnamed scope" : `an unnamed scope inside "${path}"`;
+};
+const inheritedContext = (layers) => layers.reduce((merged, layer) => layer === void 0 ? merged : {
+	...merged,
+	...Object.fromEntries(Object.entries(layer).filter(([, value]) => value !== void 0))
+}, void 0);
 const sameSkills = (a, b) => (a?.length ?? 0) === (b?.length ?? 0) && (a ?? []).every((skill, i) => skill === b?.[i]);
 const samePersona = (a, b) => a.model === b.model && a.system === b.system && sameSkills(a.skills, b.skills) && sameAccess(a.access, b.access);
 /**
@@ -7147,6 +7156,7 @@ const KNOWN_OPTIONS = {
 		...STEERING_OPTIONS,
 		"model",
 		"system",
+		"context",
 		"allowEmpty",
 		"keep"
 	]),
@@ -7261,11 +7271,13 @@ const replay = async (input) => {
 				if (s.model !== void 0) persona.model = s.model;
 				if (s.system !== void 0) persona.system = s.system;
 			}
+			const context = inheritedContext([...scopes.map((s) => s.context), request.options.context]);
 			return {
 				...request,
 				options: {
 					...persona,
-					...request.options
+					...request.options,
+					...context === void 0 ? {} : { context }
 				}
 			};
 		}
@@ -7403,10 +7415,26 @@ const replay = async (input) => {
 		});
 		return landPending(step, input.pending);
 	};
+	const scopeContextFault = () => {
+		for (const [i, s] of scopes.entries()) {
+			const fault = s.context === void 0 ? void 0 : contextShapeFault(s.context);
+			if (fault !== void 0) return `the context of ${scopeLabel(scopes.slice(0, i + 1))}: ${fault}`;
+		}
+	};
+	const resolvedContextFault = (request) => {
+		const own = request.options.context;
+		const layered = scopeContextFault() ?? (own === void 0 ? void 0 : contextShapeFault(own));
+		if (layered !== void 0) return layered;
+		const resolved = resolve(request);
+		const context = resolved.kind === "agent" ? resolved.options.context : void 0;
+		return context === void 0 ? void 0 : contextLimitFault(context);
+	};
 	const requestFault = (request) => {
 		if (request.kind === "run" && typeof request.body !== "string") return `gtd: step "${scoped(request.name)}": a run() body is a shell script string — decide in flow code, then render the script (see checkScript and friends)`;
 		if (request.kind !== "agent") return void 0;
 		const name = scoped(request.name);
+		const contextFault = resolvedContextFault(request);
+		if (contextFault !== void 0) return `gtd: step "${name}": ${contextFault}`;
 		if (request.options.keep === true) {
 			if (request.options.allowEmpty === true) return `gtd: step "${name}": keep: true cannot be combined with allowEmpty — a turn that changes nothing has nothing to keep`;
 			const refFault = name.includes("/") ? "it contains \"/\"" : refNameFault(name);
@@ -9016,6 +9044,10 @@ const commonOf = (step) => {
 		...optional("mode", options.mode)
 	};
 };
+const stepContext = (context) => context === void 0 ? void 0 : {
+	...optional("soft", context.soft),
+	...optional("hard", context.hard)
+};
 const promptDef = (common, request, skills, access) => ({
 	...common,
 	kind: "prompt",
@@ -9024,6 +9056,7 @@ const promptDef = (common, request, skills, access) => ({
 	...optional("system", request.options.system),
 	...optional("allowEmpty", request.options.allowEmpty),
 	...optional("keep", request.options.keep),
+	...optional("context", stepContext(request.options.context)),
 	...optional("skills", skills),
 	...optional("access", access)
 });
@@ -9109,7 +9142,8 @@ const hintsOf = (def) => ({
 	...optional("system", def.system),
 	...optional("mode", def.mode),
 	...optional("skills", def.skills),
-	...optional("access", def.access)
+	...optional("access", def.access),
+	...optional("context", def.context)
 });
 const normalizeStatus = (raw) => raw === "A" ? "A" : raw === "D" ? "D" : "M";
 /** Per-model token totals, highest-cost first (ties broken by model name). */
@@ -10390,6 +10424,17 @@ const readStdin = () => tryPromise({
 	},
 	catch: (e) => e instanceof Error ? e : new Error(String(e))
 });
+/** Stdout is written once: a hook reads one JSON document, or none. */
+const runContextHookCommand = (command, out) => gen(function* () {
+	const tools = yield* ToolCommands;
+	const input = yield* readStdin();
+	out.write(yield* tools.contextHook({
+		input,
+		...command.soft !== void 0 ? { soft: command.soft } : {},
+		...command.hard !== void 0 ? { hard: command.hard } : {},
+		...command.window !== void 0 ? { window: command.window } : {}
+	}));
+});
 /** Stdout is written once, after the answerer resolves — a rejection leaves it empty. */
 const runJudgeRunCommand = (command, out) => gen(function* () {
 	const host = yield* Host;
@@ -10846,6 +10891,7 @@ const needsOf = (kind) => {
 		case "lsp":
 		case "install":
 		case "loop":
+		case "contextHook":
 		case "judgeRun":
 		case "strays": return "none";
 		case "check":
@@ -10885,6 +10931,7 @@ const dispatchVoidCommand = (command, json, out) => {
 		case "uncheck": return runUncheckCommand(command.file);
 		case "install": return runInstallCommand(out);
 		case "loop": return runLoopCommand();
+		case "contextHook": return runContextHookCommand(command, out);
 		case "summary": return runSummaryCommand(out, command.slice);
 		case "base": return runBaseCommand(out);
 		case "judge": return runJudgeCommand(json, out);
@@ -10926,6 +10973,10 @@ const nonNegativeNumber = (raw, flag) => {
 	if (raw.trim() === "" || !Number.isFinite(n) || n < 0) return left(`gtd: ${flag} must be a non-negative number — got "${raw}"`);
 	return right(n);
 };
+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 FLAGS = [
 	{
 		name: "--json",
@@ -11053,6 +11104,39 @@ const FLAGS = [
 			"GTD_JUDGE_MODEL, then judge.json, then sonnet"
 		]
 	},
+	{
+		name: "--soft",
+		arity: 1,
+		repeatable: false,
+		scope: (kind) => kind === "contextHook",
+		decode: ([raw]) => share(raw ?? "", "--soft"),
+		scopeError: "gtd: --soft is only valid for `gtd context-hook`",
+		valueHint: "<share>",
+		help: ["(gtd context-hook only) the soft limit; default 0.6"]
+	},
+	{
+		name: "--hard",
+		arity: 1,
+		repeatable: false,
+		scope: (kind) => kind === "contextHook",
+		decode: ([raw]) => share(raw ?? "", "--hard"),
+		scopeError: "gtd: --hard is only valid for `gtd context-hook`",
+		valueHint: "<share>",
+		help: ["(gtd context-hook only) the hard limit; default 0.7"]
+	},
+	{
+		name: "--window",
+		arity: 1,
+		repeatable: false,
+		scope: (kind) => kind === "contextHook",
+		decode: ([raw]) => {
+			const window = parseContextWindow(raw);
+			return window !== void 0 ? right(window) : left(`gtd: --window must be a positive integer — got "${raw ?? ""}"`);
+		},
+		scopeError: "gtd: --window is only valid for `gtd context-hook`",
+		valueHint: "<tokens>",
+		help: ["(gtd context-hook only) the model's context window in", "tokens; default 200000"]
+	},
 	{
 		name: "--slice",
 		arity: 1,
@@ -11359,6 +11443,22 @@ const COMMAND_ROWS = [
 			"~/.config/gtd/loop.json); see docs/driver.md"
 		]
 	},
+	{
+		token: "context-hook",
+		kind: "contextHook",
+		arity: "none",
+		details: [
+			"A Claude Code PostToolUse and PreCompact hook that stops an",
+			"agent turn at a share of its context window. Reads the",
+			"hook's input on stdin and the context the transcript's",
+			"latest assistant message used. Past --soft it blocks with a",
+			"request to end the turn with a handoff note; past --hard,",
+			"or at PreCompact, it stops the turn with a stopReason",
+			"starting \"gtd: context limit\". Prints nothing otherwise,",
+			"and for a subagent's tool call. Always exits 0 on valid",
+			"input; see docs/driver.md"
+		]
+	},
 	{
 		token: "summary",
 		kind: "summary",
@@ -11837,6 +11937,17 @@ const parseArgv = (argv) => {
 			verbose
 		};
 	}
+	if (kind === "contextHook") return {
+		kind: "command",
+		command: {
+			kind: "contextHook",
+			...bag["--soft"] !== void 0 ? { soft: bag["--soft"] } : {},
+			...bag["--hard"] !== void 0 ? { hard: bag["--hard"] } : {},
+			...bag["--window"] !== void 0 ? { window: bag["--window"] } : {}
+		},
+		json,
+		verbose
+	};
 	if (kind === "summary") return {
 		kind: "command",
 		command: {
@@ -12615,6 +12726,7 @@ const missingToolCommands = {
 	ui: missingTool("ui"),
 	lsp: missingTool("lsp"),
 	loop: missingTool("loop"),
+	contextHook: missingTool("context-hook"),
 	judge: () => Promise.reject(/* @__PURE__ */ new Error("gtd judge run: ToolCommands has no test double wired into testLayers()"))
 };
 /** The fine-grained `GitService` layer alone — for unit tests that need only git. */

package/dist/wire.mjs

@@ -1,2 +1,2 @@
-import { A as WIRE_SCHEMA, C as EXIT_RUNTIME_ERROR, D as EXIT_USAGE_ERROR, E as EXIT_STRAYS_FOUND, O as ACCESS_REFUSAL, S as EXIT_OK, T as EXIT_SIGTERM, _ as BEAT_KINDS, a as selectPath, b as stallDiagnosis, c as landProseText, d as renderLandPlain, f as DEMAND_BRIEFING, g as statusOf, h as renderBeatJson, i as resolveSession, j as renderFormat, k as UNATTRIBUTED_MODEL, l as noopText, m as beatDocument, n as slicesDocument, o as judgeJson, p as renderBeatPlain, r as globMatches, s as landFields, t as renderSlicesJson, u as renderLandJson, v as beatKindOf, w as EXIT_SIGINT, x as EXIT_CODES, y as demandOf } from "./chunks/wire-D3Rc5r22.mjs";
-export { ACCESS_REFUSAL, BEAT_KINDS, DEMAND_BRIEFING, EXIT_CODES, EXIT_OK, EXIT_RUNTIME_ERROR, EXIT_SIGINT, EXIT_SIGTERM, EXIT_STRAYS_FOUND, EXIT_USAGE_ERROR, UNATTRIBUTED_MODEL, WIRE_SCHEMA, beatDocument, beatKindOf, demandOf, globMatches, judgeJson, landFields, landProseText, noopText, renderBeatJson, renderBeatPlain, renderFormat, renderLandJson, renderLandPlain, renderSlicesJson, resolveSession, selectPath, slicesDocument, stallDiagnosis, statusOf };
+import { A as beatKindOf, B as ACCESS_REFUSAL, C as renderLandPlain, D as renderBeatJson, E as beatDocument, F as EXIT_RUNTIME_ERROR, H as WIRE_SCHEMA, I as EXIT_SIGINT, L as EXIT_SIGTERM, M as stallDiagnosis, N as EXIT_CODES, O as statusOf, P as EXIT_OK, R as EXIT_STRAYS_FOUND, S as renderLandJson, T as renderBeatPlain, U as renderFormat, V as UNATTRIBUTED_MODEL, _ as selectPath, a as contextLimitFault, b as landProseText, c as hookOutput, d as transcriptTokens, f as usageTokens, g as resolveSession, h as globMatches, i as contextHook, j as demandOf, k as BEAT_KINDS, l as parseContextWindow, m as slicesDocument, n as CONTEXT_STOP_FILE_ENV, o as contextShapeFault, p as renderSlicesJson, r as DEFAULT_CONTEXT_LIMIT, s as contextWindowFor, t as CONTEXT_LIMIT_MARKER, u as subagentTranscriptPath, v as judgeJson, w as DEMAND_BRIEFING, x as noopText, y as landFields, z as EXIT_USAGE_ERROR } from "./chunks/wire-CSsa3Wxd.mjs";
+export { ACCESS_REFUSAL, BEAT_KINDS, CONTEXT_LIMIT_MARKER, CONTEXT_STOP_FILE_ENV, DEFAULT_CONTEXT_LIMIT, DEMAND_BRIEFING, EXIT_CODES, EXIT_OK, EXIT_RUNTIME_ERROR, EXIT_SIGINT, EXIT_SIGTERM, EXIT_STRAYS_FOUND, EXIT_USAGE_ERROR, UNATTRIBUTED_MODEL, WIRE_SCHEMA, beatDocument, beatKindOf, contextHook, contextLimitFault, contextShapeFault, contextWindowFor, demandOf, globMatches, hookOutput, judgeJson, landFields, landProseText, noopText, parseContextWindow, renderBeatJson, renderBeatPlain, renderFormat, renderLandJson, renderLandPlain, renderSlicesJson, resolveSession, selectPath, slicesDocument, stallDiagnosis, statusOf, subagentTranscriptPath, transcriptTokens, usageTokens };

package/dist/workflows/cleanup.mjs

@@ -1,6 +1,6 @@
 import { agent, changes, glob, read, refuse, scope, start, vars } from "../flows.mjs";
-import { St as requireFlag, gt as envDefaults, ht as defaults, i as skills, n as summary, o as flagShipped, r as access, t as steering, xt as registryEntry, y as coder, yt as flagReferences } from "../chunks/reserved-BAv71I4i.mjs";
-import { a as refusePendingHandOff, r as handOffTail } from "../chunks/tail-kar1zhOb.mjs";
+import { Ct as flagReferences, Et as requireFlag, Tt as registryEntry, bt as envDefaults, i as skills, n as summary, o as flagShipped, r as access, t as steering, x as coder, yt as defaults } from "../chunks/reserved-sfMdy7v7.mjs";
+import { a as refusePendingHandOff, r as handOffTail } from "../chunks/tail-Cgca5Gp-.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 () => {