@pmelab/gtd 62.0.0 → 62.1.0

package/dist/testkit/gherkin.mjs

@@ -1,4 +1,4 @@
-import { n as runsItsScript, r as testRepo } from "../chunks/testkit-XQeYCNMn.mjs";
+import { n as runsItsScript, r as testRepo } from "../chunks/testkit-CPzWnl3P.mjs";
 import { resolve } from "node:path";
 import { pathToFileURL } from "node:url";
 import { After, AfterAll, Given, QuickPickleWorld, Then, When, setWorldConstructor } from "quickpickle";

package/dist/testkit.mjs

@@ -1,3 +1,3 @@
 import { H as installContext } from "./chunks/flows-DENt0uWV.mjs";
-import { a as verdictWhen, i as verdict, n as runsItsScript, o as whenPrompted, r as testRepo, t as inTurn } from "./chunks/testkit-XQeYCNMn.mjs";
+import { a as verdictWhen, i as verdict, n as runsItsScript, o as whenPrompted, r as testRepo, t as inTurn } from "./chunks/testkit-CPzWnl3P.mjs";
 export { inTurn, installContext, runsItsScript, testRepo, verdict, verdictWhen, whenPrompted };

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "@pmelab/gtd",
-  "version": "62.0.0",
+  "version": "62.1.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

@@ -114,6 +114,7 @@ describe("parseArgv — scope", () => {
       ["validate", "--json"],
       ["abandon", "--json"],
       ["restore", "--json"],
+      ["repin", "--json"],
       ["start", "--json"],
       ["start", "fix", "--json"],
       ["history", "fetch", "--json"],
@@ -1116,6 +1117,7 @@ describe("standaloneKinds / needsOf", () => {
       "start",
       "abandon",
       "restore",
+      "repin",
       "next",
       "validate",
       "ui",

package/src/cli/Cli.ts

@@ -131,6 +131,7 @@ const SCRIPT_KINDS: ReadonlySet<Command["kind"]> = new Set<Command["kind"]>([
   "start",
   "abandon",
   "restore",
+  "repin",
   "validate",
   "historyFetch",
 ])
@@ -448,6 +449,16 @@ With no <name>, list every workflow and door it can start. An unknown <name>, th
     summary: "Bring back the last abandoned process",
     details: `Bring back the process the last \`gtd abandon\` stopped: the printed script resets HEAD to that process's last commit. Refuses on a dirty working tree, when nothing was abandoned, or when commits made since would be lost.`,
   },
+  {
+    token: "repin",
+    kind: "repin",
+    arity: "none",
+    group: "Start and stop",
+    summary: "Pin the process to the live gtd and workflow",
+    details: `Switch the process underway to the live engine and workflow, the way out when the workflow needs a fix mid-process: the printed script runs the pin beat again, writing \`gtd bundle\`'s output to .gtd/process.gtdpin and committing that file alone. Always runs on the gtd on PATH, never on the pin. Refuses when no process is underway, when the next beat is a pin or unpin beat already, or when the live workflow does not replay the process.
+
+  s=$(gtd repin --json=script) && sh -c "$s"`,
+  },
   {
     token: "summary",
     kind: "summary",
@@ -1306,6 +1317,7 @@ export const parseArgv = (argv: readonly string[]): CliPlan => {
       | "lsp"
       | "abandon"
       | "restore"
+      | "repin"
       | "next"
       | "validate"
       | "guide"

package/src/cli/Launch.ts

@@ -11,6 +11,7 @@ const LIVE_KINDS: ReadonlySet<Command["kind"]> = new Set<Command["kind"]>([
   "lsp",
   "guide",
   "bundle",
+  "repin",
   "historyList",
   "historyShow",
   "historyMetrics",

package/src/cli/Program.test.ts

@@ -1717,6 +1717,7 @@ describe("runCommand — refuses in a repository with no commits", () => {
     start: { kind: "start", name: "fix", args: [], vars: {} },
     abandon: { kind: "abandon" },
     restore: { kind: "restore" },
+    repin: { kind: "repin" },
     next: { kind: "next" },
     validate: { kind: "validate" },
     check: { kind: "check", mode: "qa", file: ".gtd/TODO.md" },
@@ -1743,7 +1744,7 @@ describe("runCommand — refuses in a repository with no commits", () => {
   const NO_COMMITS_MESSAGE =
     "gtd: the repository has no commits yet — make an initial commit, then run gtd again"
 
-  it("derives exactly the seventeen non-standalone kinds — a canary for the table-driven cases below", () => {
+  it("derives exactly the eighteen non-standalone kinds — a canary for the table-driven cases below", () => {
     expect(stateKinds.sort()).toEqual(
       [
         "abandon",
@@ -1753,6 +1754,7 @@ describe("runCommand — refuses in a repository with no commits", () => {
         "land",
         "next",
         "restore",
+        "repin",
         "summary",
         "validate",
         "ui",

package/src/cli/Program.ts

@@ -65,6 +65,7 @@ import {
   summaryRun,
   type RenderedRest,
 } from "../edge/index.js"
+import { formatCommitMessage, PIN_STATES } from "../replay/index.js"
 import { planStart, planStep as planStepPure, type JudgeVerdict } from "../step/index.js"
 import {
   BUILT_IN_MODE_NAMES,
@@ -82,6 +83,9 @@ import {
   hardResetTo,
   mixedResetTo,
   unpinScript,
+  repinScript,
+  commitPath,
+  transitionOutcome,
   ScriptSurface,
   updateRef,
   type RunnableScript,
@@ -154,6 +158,7 @@ export type Command =
     }
   | { readonly kind: "abandon" }
   | { readonly kind: "restore" }
+  | { readonly kind: "repin" }
   | { readonly kind: "next" }
   | { readonly kind: "validate" }
   | {
@@ -862,6 +867,40 @@ const runRestoreCommand = (
     yield* writeScript(json, out, combinedScript(required, ""))
   })
 
+/**
+ * `gtd repin`: the pin beat's script and landing, on demand. It runs live,
+ * so reading the rest first refuses a live workflow that cannot replay the
+ * process before any pin is written.
+ */
+const runRepinCommand = (
+  json: JsonMode,
+  out: ArtifactOut,
+): Effect.Effect<void, Error, CommandRequirements> =>
+  Effect.gen(function* () {
+    const rest = yield* currentRest
+    const refusal =
+      rest.pin === "add"
+        ? "the next beat pins the process already — run it (`gtd next --json=content`), then land"
+        : rest.pin === "remove"
+          ? "the flow has ended — its unpin beat is next, so there is nothing to repin"
+          : noProcessUnderway(rest)
+            ? "no gtd process is underway — nothing to repin"
+            : undefined
+    if (refusal !== undefined) return yield* Effect.fail(new Error(`gtd repin: ${refusal}`))
+    const message = formatCommitMessage({
+      actor: "check",
+      from: PIN_STATES.add,
+      to: rest.step.name,
+      pin: "add",
+    })
+    const steps: EmitStep[] = [
+      { kind: "gitWrite", command: repinScript(PIN_PATH) },
+      { kind: "gitWrite", command: commitPath(PIN_PATH, message) },
+      { kind: "outcome", command: transitionOutcome(PIN_STATES.add, rest.step.name) },
+    ]
+    yield* writeScript(json, out, combinedScript(emitScripts(steps).required, ""))
+  })
+
 /**
  * The mode's own validate command for `file`: a declared `validate:` command
  * verbatim; a `"builtin"` validator or no mode at all names the leaf
@@ -1339,6 +1378,8 @@ const dispatchVoidCommand = (
       return runAbandonCommand(json, out)
     case "restore":
       return runRestoreCommand(json, out)
+    case "repin":
+      return runRepinCommand(json, out)
     case "next":
       return runNextCommand(json, out)
     case "validate":

package/src/emit/GitScript.ts

@@ -44,6 +44,13 @@ export const pinScript = (path: string): string => {
   return `${mkdir}gtd bundle >${p} || { rm -f -- ${p}; exit 1; }`
 }
 
+/** `gtd repin`'s pin write: a failed `gtd bundle` leaves the committed pin in place. */
+export const repinScript = (path: string): string => {
+  const p = shellQuote(path)
+  const next = shellQuote(`${path}.new`)
+  return `gtd bundle >${next} || { rm -f -- ${next}; exit 1; }\nmv -f -- ${next} ${p}`
+}
+
 /** An unpin beat's script, and `gtd abandon`'s removal of the pin. */
 export const unpinScript = (path: string): string => `rm -f -- ${shellQuote(path)}`
 

package/src/emit/index.ts

@@ -18,6 +18,7 @@ export {
   commitClean,
   commitPath,
   pinScript,
+  repinScript,
   unpinScript,
   CHANGED_SINCE_LAND,
   softResetTo,

package/src/twins/EmittedScriptRecognizer.ts

@@ -26,6 +26,7 @@ import {
   modeContradictionSkipNotice,
   OUTCOME_MARKER,
   pinScript,
+  repinScript,
   unpinScript,
 } from "../emit/index.js"
 import {
@@ -272,9 +273,9 @@ const recognizeGitBuilders = (repo: InMemRepo, block: string): BlockOutcome | un
 /** What the in-memory `gtd bundle` prints: a pin header, and no engine behind it. */
 const IN_MEMORY_PIN = "gtdpin 1 gtd in-memory\n"
 
-/** A pin or unpin beat's script. */
+/** A pin or unpin beat's script, or `gtd repin`'s. */
 const recognizePinScripts = (repo: InMemRepo, block: string): BlockOutcome | undefined => {
-  if (block === pinScript(PIN_PATH)) {
+  if (block === pinScript(PIN_PATH) || block === repinScript(PIN_PATH)) {
     repo.writeFile(PIN_PATH, IN_MEMORY_PIN)
     return { kind: "applied" }
   }