@goodbones/cli 0.1.0-beta.1 → 0.1.0-beta.10

package/src/run.ts

@@ -1,40 +1,79 @@
-import { readFileSync, writeFileSync } from "node:fs";
+import { execFileSync } from "node:child_process";
+import { createHash } from "node:crypto";
+import { existsSync, mkdirSync, readFileSync, writeFileSync } from "node:fs";
 import * as path from "node:path";
 
 import {
+  allowed,
   type Baseline,
   baselineOf,
+  type CampaignHit,
+  campaignsSelecting,
+  type CompiledCampaign,
+  CONFORMANCE_MEASURES,
+  type ConformanceMeasure,
+  type CoverageFamily,
   coverageOf,
-  coverageShortfalls,
+  cyclesIn,
   decodeBaseline,
+  decodeManifest,
   EMPTY_BASELINE,
+  entryOf,
+  evaluateCampaigns,
   evaluateGraph,
   evaluateMemberSite,
+  evaluateResolvedEdge,
   evaluateSelectedBindings,
-  evaluateSelectedEdge,
   evaluateStructure,
   evaluateSurface,
+  explainCampaign,
   exportRulesSelecting,
+  findManifestFile,
   fingerprintOf,
+  formatManifestYaml,
   formatMessage,
   fractionsOf,
+  type Graph,
   hasGraphRules,
+  heightOf,
+  isComplete,
+  isStalled,
+  leafTermsOf,
+  type Ledger,
+  ledgerArithmeticHolds,
+  ledgerOf,
   listSourceFiles,
+  makeBaselineFilter,
+  MANIFEST_FILENAMES,
+  MANIFEST_SCHEMA_ID,
   memberRulesSelecting,
+  type ObservedEdge,
+  progressOf,
+  pruned,
+  readManifestFile,
+  reconcile,
+  reportSpecsOf,
   requiredSiblingsOf,
+  residueOf,
   rulesSelecting,
   serializeBaseline,
+  serializeLedger,
+  slackOf,
+  type Snapshot,
+  SNAPSHOT_VERSION,
+  type SnapshotCampaign,
   type SourceFacts,
   staleEntriesOf,
   surfaceRulesSelecting,
-  unbaselined,
+  vacancyOf,
   type Violation,
 } from "@goodbones/core";
 import * as Effect from "effect/Effect";
 import * as Result from "effect/Result";
 
-import { type LoadedPolicy, loadPolicyFromFile } from "./config-loader.js";
+import { type LoadedPolicy, loadPolicyFromFile, manifestPathOf } from "./config-loader.js";
 import { buildGraph } from "./graph.js";
+import { infer } from "./infer.js";
 import { sourceFactsOf } from "./source-facts.js";
 
 // The policy, run with no linter in the loop.
@@ -44,46 +83,83 @@ import { sourceFactsOf } from "./source-facts.js";
 // second way to ask the same question — and the only way to write a baseline,
 // since that needs every finding at once rather than one file at a time.
 //
-// It covers all four families. The two that need a syntax tree read TypeScript's
-// rather than oxlint's; both adapters meet at the same vocabulary — a specifier,
-// a binding, a member site — so they answer to the same core rather than to each
-// other.
+// It covers all four families. The ones that need a syntax tree read it through
+// the language pack's own parse rather than oxlint's; both adapters meet at the
+// same vocabulary — a specifier, a binding, a member site — so they answer to
+// the same core rather than to each other.
 
 export type CliFailure = { readonly _tag: "CliFailure"; readonly message: string };
 
 const fail = (message: string): CliFailure => ({ _tag: "CliFailure", message });
 
+// An edge the resolver could not turn into a file. It is reported on its own,
+// since every import rule about it enforces nothing.
+export type UnresolvedEdge = {
+  readonly file: string;
+  readonly specifier: string;
+  readonly detail: string;
+};
+
 export type Findings = {
   readonly violations: ReadonlyArray<Violation>;
-  readonly unresolved: ReadonlyArray<string>;
+  // Every campaign hit, ledgered or not. Kept apart from the violations: a
+  // hit is debt a campaign is paying down, judged against its ledger rather
+  // than the baseline.
+  readonly campaigns: ReadonlyArray<CampaignHit>;
+  readonly unresolved: ReadonlyArray<UnresolvedEdge>;
   readonly files: number;
+  // Every edge resolved from a file under an import rule — what the slack
+  // report reads. An edge from a file no import rule selects is not here,
+  // since no allowlist could have admitted it.
+  readonly edges: ReadonlyArray<ObservedEdge>;
+  // The import graph, when a graph rule needed it or the caller asked.
+  readonly graph: Graph | null;
+};
+
+export type CollectOptions = {
+  // Build the graph even when no rule needs it — the snapshot counts cycles
+  // and orders violations by it.
+  readonly graph?: boolean;
 };
 
-export const collectFindings = (policy: LoadedPolicy, roots: ReadonlyArray<string>): Findings => {
+export const collectFindings = (
+  policy: LoadedPolicy,
+  roots: ReadonlyArray<string>,
+  options: CollectOptions = {},
+): Findings => {
   const files = listSourceFiles(policy.repoRoot, roots, policy.languages);
   const violations: Array<Violation> = [];
-  const unresolved: Array<string> = [];
+  const campaigns: Array<CampaignHit> = [];
+  const unresolved: Array<UnresolvedEdge> = [];
+  const edges: Array<ObservedEdge> = [];
 
-  // Each file is parsed at most once, whether the per-file families or the
-  // graph pass asks first.
+  // Each file is read and parsed at most once, whether the per-file
+  // families, the graph pass or a campaign asks first.
+  const texts = new Map<string, string>();
+  const textOf = (file: string): string => {
+    const cached = texts.get(file);
+    if (cached !== undefined) return cached;
+    const text = readFileSync(path.join(policy.repoRoot, file), "utf8");
+    texts.set(file, text);
+    return text;
+  };
   const parsed = new Map<string, SourceFacts>();
   const factsOf = (file: string): SourceFacts => {
     const cached = parsed.get(file);
     if (cached !== undefined) return cached;
-    const facts = sourceFactsOf(policy.repoRoot, file, policy.extractor);
+    const facts = policy.extractor.factsOf(file, textOf(file));
     parsed.set(file, facts);
     return facts;
   };
 
   // The graph is the whole repository resolved at once — the one question no
   // per-file adapter can ask — and is built only when a rule needs it.
-  if (hasGraphRules(policy.graph)) {
-    for (const violation of evaluateGraph(
-      policy.graph,
-      buildGraph(files, policy.resolver, factsOf),
-    )) {
-      violations.push(violation);
-    }
+  const graph =
+    options.graph === true || hasGraphRules(policy.graph)
+      ? buildGraph(files, policy.resolver, factsOf)
+      : null;
+  if (graph !== null && hasGraphRules(policy.graph)) {
+    for (const violation of evaluateGraph(policy.graph, graph)) violations.push(violation);
   }
 
   for (const file of files) {
@@ -91,6 +167,31 @@ export const collectFindings = (policy: LoadedPolicy, roots: ReadonlyArray<strin
       violations.push(violation);
     }
 
+    // A campaign selects by its scope. The file is parsed by the scope's
+    // matcher once, and only when a term of some selected campaign reads the
+    // syntax tree.
+    const selectedCampaigns = campaignsSelecting(policy.campaignRules, file);
+    if (selectedCampaigns.length > 0) {
+      const text = textOf(file);
+      const needsSyntax = selectedCampaigns.some((rule) =>
+        leafTermsOf(rule.detect).some(
+          (leaf) => leaf === "syntax" || leaf === "report" || leaf === "fn",
+        ),
+      );
+      for (const hit of evaluateCampaigns(selectedCampaigns, {
+        file,
+        text,
+        facts: factsOf(file),
+        resolver: policy.resolver,
+        fileSystem: policy.fileSystem,
+        syntax: needsSyntax ? policy.syntax.parse(file, text) : null,
+        functions: policy.functions,
+        reports: policy.reports,
+      })) {
+        campaigns.push(hit);
+      }
+    }
+
     const selectedImports = rulesSelecting(policy.importRules, file);
     const selectedExports = exportRulesSelecting(policy.exportRules, file);
     const selectedMembers = memberRulesSelecting(policy.memberRules, file);
@@ -118,14 +219,21 @@ export const collectFindings = (policy: LoadedPolicy, roots: ReadonlyArray<strin
     for (const specifier of facts.specifiers) {
       const edge = { importer: file, specifier };
 
-      const imported = evaluateSelectedEdge(selectedImports, policy.resolver, edge);
-      if (Result.isFailure(imported)) {
-        if (policy.config.resolve.unresolved === "off") continue;
-        if (policy.ignoreUnresolved.some((pattern) => pattern.test(specifier))) continue;
-        unresolved.push(`${file} → ${specifier} (${imported.failure.detail})`);
-        continue;
+      // A file no import rule selects never needs its imports resolved, which
+      // is what keeps resolution off the hot path for the bulk of the repo.
+      if (selectedImports.length > 0) {
+        const resolved = policy.resolver.resolve(file, specifier);
+        if (Result.isFailure(resolved)) {
+          if (policy.config.resolve.unresolved === "off") continue;
+          if (policy.ignoreUnresolved.some((pattern) => pattern.test(specifier))) continue;
+          unresolved.push({ file, specifier, detail: resolved.failure.detail });
+          continue;
+        }
+        edges.push({ importer: file, target: resolved.success });
+        for (const violation of evaluateResolvedEdge(selectedImports, file, resolved.success)) {
+          violations.push(violation);
+        }
       }
-      for (const violation of imported.success) violations.push(violation);
 
       const bound = facts.bindings.get(specifier) ?? [];
       const exported = evaluateSelectedBindings(selectedExports, policy.resolver, {
@@ -138,7 +246,7 @@ export const collectFindings = (policy: LoadedPolicy, roots: ReadonlyArray<strin
     }
   }
 
-  return { violations, unresolved, files: files.length };
+  return { violations, campaigns, unresolved, files: files.length, edges, graph };
 };
 
 const baselinePathOf = (policy: LoadedPolicy): string | null =>
@@ -164,69 +272,726 @@ const report = (lines: ReadonlyArray<string>): Effect.Effect<void> =>
 const describe = (violation: Violation): string =>
   `  ${violation.file}\n      ${formatMessage(violation)}`;
 
-export const check = (
+// Everything `check` has to say, as one value: the two renderers below read
+// it, and nothing else computes a finding. `version` is here so a document
+// that grows this shape (a conformance snapshot) can say which one it grew.
+export type ReportedViolation = Violation & {
+  readonly fingerprint: string;
+  readonly baselined: boolean;
+  // For a campaign hit: carried by the campaign's ledger, so `check` does
+  // not fail on it. The campaign analogue of `baselined`.
+  readonly ledgered: boolean;
+};
+
+// One campaign, as `check` sees it: how many hits, which are new, which
+// ledger entries no longer fire, and whether the ledger adds up.
+export type CampaignReport = {
+  readonly id: string;
+  readonly count: number;
+  // Hits the ledger does not carry — unrecorded growth, as entries.
+  readonly new: ReadonlyArray<string>;
+  // Ledger entries no hit produces — fixed, and waiting to be pruned.
+  readonly stale: ReadonlyArray<string>;
+  // Entries whose hash moved under a still-present anchor.
+  readonly drifted: number;
+  // No ledger file: `campaigns init` has not been run.
+  readonly missingLedger: boolean;
+  // `entries.length === initial + Σ delta − fixed`.
+  readonly arithmetic: boolean;
+  readonly complete: boolean;
+  readonly stalled: boolean;
+  readonly onComplete: "keep" | "remove";
+};
+
+export type CoverageReport = Readonly<
+  Record<
+    CoverageFamily,
+    { readonly covered: number; readonly total: number; readonly floor?: number }
+  >
+>;
+
+// The conformance measures as counts, each beside the ceiling the manifest's
+// `limits.conformance` states for it. `conformance` names what each counts;
+// `check` holds the counts to the ceilings.
+export type ConformanceReport = Readonly<
+  Record<ConformanceMeasure, { readonly count: number; readonly ceiling?: number }>
+>;
+
+export type CheckReport = {
+  readonly version: 1;
+  readonly files: number;
+  readonly roots: ReadonlyArray<string>;
+  readonly ok: boolean;
+  // The file the policy was read from, repo-relative, and a hash of its
+  // bytes — the root file only, when the manifest is split with `include`.
+  readonly manifest: { readonly path: string; readonly sha256: string };
+  // Every finding, baselined ones included; `baselined` says which.
+  readonly violations: ReadonlyArray<ReportedViolation>;
+  readonly unresolved: ReadonlyArray<UnresolvedEdge>;
+  // Baseline entries the code no longer produces.
+  readonly stale: ReadonlyArray<string>;
+  readonly coverage: CoverageReport;
+  readonly conformance: ConformanceReport;
+  readonly adoption: {
+    readonly unrestricted: ReadonlyArray<string>;
+    readonly partial: ReadonlyArray<string>;
+  };
+  readonly campaigns: ReadonlyArray<CampaignReport>;
+};
+
+// Each campaign's hits against its ledger. A campaign with no ledger has
+// every hit new; one with no hits and no ledger has nothing to say.
+const campaignReportsOf = (
+  policy: LoadedPolicy,
+  hits: ReadonlyArray<CampaignHit>,
+): ReadonlyArray<CampaignReport> =>
+  policy.campaignRules.map((rule) => {
+    const own = hits.filter((hit) => hit.campaign === rule.id).map((hit) => hit.violation);
+    const ledger = policy.ledgers.get(rule.id);
+    if (ledger === undefined) {
+      return {
+        id: rule.id,
+        count: own.length,
+        new: [...new Set(own.map(entryOf))].sort(),
+        stale: [],
+        drifted: 0,
+        missingLedger: true,
+        arithmetic: true,
+        complete: own.length === 0,
+        stalled: false,
+        onComplete: rule.onComplete,
+      };
+    }
+    const state = reconcile(ledger, own, rule.unit);
+    return {
+      id: rule.id,
+      count: own.length,
+      new: [...new Set(state.unrecorded.map(entryOf))].sort(),
+      stale: state.stale,
+      drifted: state.drifted.length,
+      missingLedger: false,
+      arithmetic: ledgerArithmeticHolds(ledger),
+      complete: isComplete(ledger) && own.length === 0,
+      stalled: isStalled(rule, ledger, policy.now),
+      onComplete: rule.onComplete,
+    };
+  });
+
+// Whether a campaign hit is carried by its ledger — exactly, or by anchor.
+const ledgeredFilter = (
+  policy: LoadedPolicy,
+  hits: ReadonlyArray<CampaignHit>,
+): ((hit: CampaignHit) => boolean) => {
+  const carried = new Set<Violation>();
+  for (const rule of policy.campaignRules) {
+    const ledger = policy.ledgers.get(rule.id);
+    if (ledger === undefined) continue;
+    const own = hits.filter((hit) => hit.campaign === rule.id).map((hit) => hit.violation);
+    for (const one of reconcile(ledger, own, rule.unit).ledgered) carried.add(one);
+  }
+  return (hit) => carried.has(hit.violation);
+};
+
+// Why a campaign report is not ok, in the order `check` explains it.
+const campaignFailuresOf = (campaigns: ReadonlyArray<CampaignReport>): ReadonlyArray<string> => [
+  ...campaigns.filter((one) => one.stale.length > 0).map(() => "stale ledger entries"),
+  ...campaigns.filter((one) => !one.arithmetic).map(() => "ledger arithmetic does not hold"),
+  ...campaigns
+    .filter((one) => one.missingLedger && one.count > 0)
+    .map((one) => `campaign ${one.id} has no ledger`),
+  ...campaigns
+    .filter((one) => !one.missingLedger && one.new.length > 0)
+    .map(() => "unrecorded campaign growth"),
+  ...campaigns
+    .filter((one) => one.complete && !one.missingLedger && one.onComplete === "remove")
+    .map((one) => `campaign ${one.id} is complete and declared onComplete: remove`),
+];
+
+const COVERAGE_FAMILIES: ReadonlyArray<CoverageFamily> = [
+  "imports",
+  "structure",
+  "members",
+  "surface",
+  "graph",
+];
+
+const sha256Of = (file: string): string => {
+  try {
+    return createHash("sha256").update(readFileSync(file)).digest("hex");
+  } catch {
+    return "";
+  }
+};
+
+export const checkReport = (
   policy: LoadedPolicy,
   roots: ReadonlyArray<string>,
-): Effect.Effect<void, CliFailure> =>
-  Effect.gen(function* () {
-    const findings = collectFindings(policy, roots);
-    const baseline = readBaseline(policy);
-    const reportable = unbaselined(baseline, findings.violations);
-    const stale = staleEntriesOf(baseline, findings.violations);
+  manifestPath: string,
+): CheckReport => reportOf(policy, roots, manifestPath, collectFindings(policy, roots)).report;
 
-    yield* report(reportable.map(describe));
-    yield* report(findings.unresolved.map((one) => `  unresolved: ${one}`));
+// The four conformance measures, as `conformance` names them: what no
+// family reaches, what no file is under, what nothing imports through, and
+// the fragment entries concentrated at fewer than half the nodes granted.
+type Measures = {
+  readonly residue: ReturnType<typeof residueOf>;
+  readonly vacant: ReturnType<typeof vacancyOf>;
+  readonly slack: ReturnType<typeof slackOf>["slack"];
+  readonly concentration: ReturnType<typeof slackOf>["concentration"];
+};
 
-    const carried = findings.violations.length - reportable.length;
-    yield* report([
-      "",
-      `${String(findings.files)} files, ${String(reportable.length)} violations` +
-        (carried > 0 ? `, ${String(carried)} carried by the baseline` : ""),
-    ]);
+const measuresOf = (
+  policy: LoadedPolicy,
+  files: ReadonlyArray<string>,
+  edges: ReadonlyArray<ObservedEdge>,
+): Measures => {
+  // Slack is measured over the walked files as well as the edges: an
+  // allowlist that selects no file is vacant, and its entries are reported as
+  // that rather than as lines nobody needs.
+  const { concentration, slack } = slackOf(policy.importRules, edges, files);
+  return {
+    residue: residueOf(policy, files),
+    vacant: vacancyOf(policy.importRules, files),
+    slack,
+    concentration,
+  };
+};
 
-    if (stale.length > 0) {
-      // The ratchet: a fixed violation must leave the baseline, or the floor
-      // never rises and the file stops describing anything real.
-      yield* report([
-        "",
-        `${String(stale.length)} baseline entries no longer fire. The code was fixed; prune them:`,
-        ...stale.map((entry) => `  ${entry}`),
-        "",
-        "  architecture baseline    # rewrites the file from what still fires",
-      ]);
-      return yield* Effect.fail(fail("stale baseline entries"));
-    }
+// A fragment entry is concentrated when it is used at fewer than half the
+// nodes granted it — the text report's threshold, and the ceiling's.
+const isConcentrated = (one: { readonly usedAt: number; readonly of: number }): boolean =>
+  one.usedAt * 2 < one.of;
 
-    // The floors. A policy states how much of the tree it reaches, per
-    // family; falling under is a policy that quietly stopped covering files.
-    const floors = policy.config.limits?.coverage;
-    const shortfalls =
-      floors === undefined
-        ? []
-        : coverageShortfalls(
-            coverageOf(policy, listSourceFiles(policy.repoRoot, roots, policy.languages)),
-            floors,
-          );
-    if (shortfalls.length > 0) {
-      yield* report([
+const countsOf = (measures: Measures): Readonly<Record<ConformanceMeasure, number>> => ({
+  residue: measures.residue.files.length,
+  vacant: measures.vacant.length,
+  slack: measures.slack.length,
+  concentration: measures.concentration.filter(isConcentrated).length,
+});
+
+const reportOf = (
+  policy: LoadedPolicy,
+  roots: ReadonlyArray<string>,
+  manifestPath: string,
+  findings: Findings,
+): {
+  readonly report: CheckReport;
+  readonly measures: Measures;
+  readonly files: ReadonlyArray<string>;
+} => {
+  const baseline = readBaseline(policy);
+  const stale = staleEntriesOf(baseline, findings.violations);
+  const { isBaselined } = makeBaselineFilter(baseline);
+  const isLedgered = ledgeredFilter(policy, findings.campaigns);
+  const violations = [
+    ...findings.violations.map((violation) => ({
+      ...violation,
+      fingerprint: fingerprintOf(violation),
+      baselined: isBaselined(violation),
+      ledgered: false,
+    })),
+    ...findings.campaigns.map((hit) => ({
+      ...hit.violation,
+      fingerprint: fingerprintOf(hit.violation),
+      baselined: false,
+      ledgered: isLedgered(hit),
+    })),
+  ];
+  const campaigns = campaignReportsOf(policy, findings.campaigns);
+
+  // The floors. A policy states how much of the tree it reaches, per
+  // family; falling under is a policy that quietly stopped covering files.
+  const floors = policy.config.limits?.coverage ?? {};
+  const files = listSourceFiles(policy.repoRoot, roots, policy.languages);
+  const found = coverageOf(policy, files);
+  const covered = (family: CoverageFamily): number =>
+    family === "structure" ? found.structure.enumerated : found[family].covered;
+  const coverage = Object.fromEntries(
+    COVERAGE_FAMILIES.map((family) => {
+      const floor = floors[family];
+      return [
+        family,
+        {
+          covered: covered(family),
+          total: found.files,
+          ...(floor === undefined ? {} : { floor }),
+        },
+      ];
+    }),
+  ) as CoverageReport;
+  const shortfalls = shortfallsOf(coverage);
+
+  // The ceilings. What no family reaches, what no file is under and what
+  // nothing imports through are each a count the policy may hold itself
+  // to; rising over one is a manifest that quietly widened.
+  const ceilings = policy.config.limits?.conformance ?? {};
+  const measures = measuresOf(policy, files, findings.edges);
+  const counts = countsOf(measures);
+  const conformance = Object.fromEntries(
+    CONFORMANCE_MEASURES.map((measure) => {
+      const ceiling = ceilings[measure];
+      return [measure, { count: counts[measure], ...(ceiling === undefined ? {} : { ceiling }) }];
+    }),
+  ) as ConformanceReport;
+  const excesses = excessesOf(conformance);
+
+  const reportable = violations.filter((one) => !one.baselined && !one.ledgered).length;
+  const report: CheckReport = {
+    version: 1,
+    files: findings.files,
+    roots,
+    ok:
+      reportable === 0 &&
+      findings.unresolved.length === 0 &&
+      stale.length === 0 &&
+      shortfalls.length === 0 &&
+      excesses.length === 0 &&
+      campaignFailuresOf(campaigns).length === 0,
+    manifest: {
+      path: path.relative(policy.repoRoot, manifestPath).replaceAll(path.sep, "/"),
+      sha256: sha256Of(manifestPath),
+    },
+    violations,
+    unresolved: findings.unresolved,
+    stale,
+    coverage,
+    conformance,
+    adoption: {
+      unrestricted: policy.adoption.unrestricted,
+      partial: policy.adoption.partial,
+    },
+    campaigns,
+  };
+  return { report, measures, files };
+};
+
+// Why a report is not `ok`, in the order the text renderer explains it: a
+// stale baseline first, since nothing else is trustworthy until the file
+// describes something real.
+type Shortfall = {
+  readonly family: CoverageFamily;
+  readonly actual: number;
+  readonly floor: number;
+};
+
+const shortfallsOf = (coverage: CoverageReport): ReadonlyArray<Shortfall> =>
+  COVERAGE_FAMILIES.flatMap((family) => {
+    const { covered, floor, total } = coverage[family];
+    const actual = total === 0 ? 1 : covered / total;
+    return floor === undefined || actual >= floor ? [] : [{ family, actual, floor }];
+  });
+
+// A conformance measure over the ceiling the policy states for it.
+type Excess = {
+  readonly measure: ConformanceMeasure;
+  readonly count: number;
+  readonly ceiling: number;
+};
+
+const excessesOf = (conformance: ConformanceReport): ReadonlyArray<Excess> =>
+  CONFORMANCE_MEASURES.flatMap((measure) => {
+    const { ceiling, count } = conformance[measure];
+    return ceiling === undefined || count <= ceiling ? [] : [{ measure, count, ceiling }];
+  });
+
+const failureOf = (
+  report: CheckReport,
+  shortfalls: ReadonlyArray<Shortfall>,
+): CliFailure | null => {
+  if (report.stale.length > 0) return fail("stale baseline entries");
+  const [campaignFailure] = campaignFailuresOf(report.campaigns);
+  if (campaignFailure !== undefined) return fail(campaignFailure);
+  if (shortfalls.length > 0) return fail("coverage below floor");
+  if (excessesOf(report.conformance).length > 0) return fail("conformance above ceiling");
+  if (report.ok) return null;
+  return fail("architecture violations");
+};
+
+// What each measure counts, as the failure names it.
+const MEASURE_NOUNS: Readonly<Record<ConformanceMeasure, readonly [string, string]>> = {
+  residue: ["file no family reaches", "files no family reaches"],
+  vacant: ["node no file is under", "nodes no file is under"],
+  slack: ["allowance nothing imports through", "allowances nothing imports through"],
+  concentration: [
+    "allowance used at fewer than half the nodes granted",
+    "allowances used at fewer than half the nodes granted",
+  ],
+};
+
+const describeExcess = (one: Excess): string => {
+  const [singular, plural] = MEASURE_NOUNS[one.measure];
+  return `  ${one.measure}: ${count(one.count, singular, plural)}, ceiling ${String(one.ceiling)}`;
+};
+
+// A campaign hit, with the campaign's `how` as its instruction.
+const describeHit = (violation: ReportedViolation): string =>
+  `  ${violation.file}${violation.subject === null ? "" : `  (${violation.subject})`}\n      ${formatMessage(violation)}`;
+
+const renderCampaigns = (report: CheckReport): ReadonlyArray<string> => {
+  const hits = report.violations.filter((one) => one.kind === "campaign");
+  return report.campaigns.flatMap((campaign): ReadonlyArray<string> => {
+    const rule = `campaign/${campaign.id}`;
+    const fresh = new Set(campaign.new);
+    const own = hits.filter((one) => one.ruleName === rule && fresh.has(entryOf(one)));
+    if (campaign.missingLedger && campaign.count > 0) {
+      return [
         "",
-        "coverage is below the floor the policy states for itself:",
-        ...shortfalls.map(
-          (one) => `  ${one.family}: ${percent(one.actual)} covered, floor ${percent(one.floor)}`,
-        ),
+        `campaign ${campaign.id}: ${count(campaign.count, "hit")} and no ledger. Record them before they count as growth:`,
         "",
-        "  architecture coverage    # which files no rule reaches",
-      ]);
-      return yield* Effect.fail(fail("coverage below floor"));
+        `  architecture campaigns init ${campaign.id}`,
+      ];
     }
+    const complete = campaign.complete && !campaign.missingLedger;
+    return [
+      ...(campaign.new.length === 0
+        ? []
+        : [
+            "",
+            `campaign ${campaign.id}: ${count(campaign.new.length, "new hit")} the ledger does not carry. Fix them, or record why the count may rise:`,
+            ...own.map(describeHit),
+            "",
+            `  architecture campaigns allow ${campaign.id} --reason "<why>"`,
+          ]),
+      ...(campaign.stale.length === 0
+        ? []
+        : [
+            "",
+            `campaign ${campaign.id}: ${count(campaign.stale.length, "ledger entry", "ledger entries")} no longer fire. The code was fixed; prune them:`,
+            ...campaign.stale.map((entry) => `  ${entry}`),
+            "",
+            `  architecture campaigns prune ${campaign.id}`,
+          ]),
+      ...(campaign.arithmetic
+        ? []
+        : [
+            "",
+            `campaign ${campaign.id}: the ledger does not add up (entries ≠ initial + allowed − fixed). An entry was added by hand; remove it, or record it with \`campaigns allow\`.`,
+          ]),
+      ...(complete && campaign.onComplete === "remove"
+        ? [
+            "",
+            `campaign ${campaign.id} is complete and declares onComplete: remove. Delete it from the manifest, and its ledger.`,
+          ]
+        : []),
+      ...(campaign.stalled
+        ? [
+            "",
+            `notice: campaign ${campaign.id} has stalled — no entry has left its ledger within its staleAfter.`,
+          ]
+        : []),
+      ...(complete && campaign.onComplete === "keep"
+        ? ["", `notice: campaign ${campaign.id} is complete, and stays as a guard.`]
+        : []),
+    ];
+  });
+};
 
-    if (reportable.length > 0 || findings.unresolved.length > 0) {
-      return yield* Effect.fail(fail("architecture violations"));
-    }
+const renderText = (report: CheckReport): ReadonlyArray<string> => {
+  const reportable = report.violations.filter((one) => one.kind !== "campaign" && !one.baselined);
+  const carried =
+    report.violations.filter((one) => one.kind !== "campaign").length - reportable.length;
+  const shortfalls = shortfallsOf(report.coverage);
+  const excesses = excessesOf(report.conformance);
+  return [
+    ...reportable.map(describe),
+    ...report.unresolved.map(
+      (one) => `  unresolved: ${one.file} → ${one.specifier} (${one.detail})`,
+    ),
+    "",
+    `${String(report.files)} files, ${String(reportable.length)} violations` +
+      (carried > 0 ? `, ${String(carried)} carried by the baseline` : ""),
+    // The ratchet: a fixed violation must leave the baseline, or the floor
+    // never rises and the file stops describing anything real.
+    ...(report.stale.length === 0
+      ? []
+      : [
+          "",
+          `${String(report.stale.length)} baseline entries no longer fire. The code was fixed; prune them:`,
+          ...report.stale.map((entry) => `  ${entry}`),
+          "",
+          "  architecture baseline    # rewrites the file from what still fires",
+        ]),
+    ...(shortfalls.length === 0
+      ? []
+      : [
+          "",
+          "coverage is below the floor the policy states for itself:",
+          ...shortfalls.map(
+            (one) => `  ${one.family}: ${percent(one.actual)} covered, floor ${percent(one.floor)}`,
+          ),
+          "",
+          "  architecture coverage    # which files no rule reaches",
+        ]),
+    ...(excesses.length === 0
+      ? []
+      : [
+          "",
+          "conformance is above the ceiling the policy states for itself:",
+          ...excesses.map(describeExcess),
+          "",
+          "  architecture conformance    # which files, nodes and allowances",
+        ]),
+    ...renderCampaigns(report),
+  ];
+};
+
+export type CheckOptions = {
+  readonly format: "text" | "json";
+  readonly manifestPath: string;
+};
+
+export const check = (
+  policy: LoadedPolicy,
+  roots: ReadonlyArray<string>,
+  options: CheckOptions,
+): Effect.Effect<void, CliFailure> =>
+  Effect.gen(function* () {
+    const report_ = checkReport(policy, roots, options.manifestPath);
+    // JSON is one object on stdout and nothing else there; the failure, when
+    // there is one, is a sentence on stderr and the exit code, as in text.
+    yield* report(
+      options.format === "json" ? [JSON.stringify(report_, null, 2)] : renderText(report_),
+    );
+    const failure = failureOf(report_, shortfallsOf(report_.coverage));
+    if (failure !== null) return yield* Effect.fail(failure);
   });
 
 const percent = (fraction: number): string => `${String(Math.floor(fraction * 100))}%`;
 
+const count = (n: number, noun: string, plural = `${noun}s`): string =>
+  `${String(n)} ${n === 1 ? noun : plural}`;
+
+// The conformance snapshot: `check`'s report grown with what no family
+// reaches, what the allowlists permit and nothing uses, the cycle count and
+// the size of the debt — the whole distance between the tree and the
+// manifest, as one document another run can be compared against. Its shape
+// is the core's `Snapshot`, and the schema published beside the manifest's.
+export const snapshotOf = (
+  policy: LoadedPolicy,
+  roots: ReadonlyArray<string>,
+  manifestPath: string,
+): Snapshot => {
+  const findings = collectFindings(policy, roots, { graph: true });
+  const { files, measures, report: report_ } = reportOf(policy, roots, manifestPath, findings);
+  const graph = findings.graph ?? { files, edges: new Map() };
+  const heights = heightOf(graph);
+
+  // Leaf edges first. A violation names a target when it is about an edge;
+  // the cost of fixing it is roughly how much of the graph stands beneath
+  // that target, so the ones nearest the ground come first and a reader
+  // starting at the top of the list is starting where a fix stays local.
+  // Ties keep the fingerprint order, so the list is the same on every run.
+  const heightOfViolation = (one: ReportedViolation): number =>
+    heights.get(one.subject ?? "") ?? heights.get(one.file) ?? 0;
+  const violations = [...report_.violations].sort((left, right) => {
+    const byHeight = heightOfViolation(left) - heightOfViolation(right);
+    return byHeight !== 0 ? byHeight : left.fingerprint.localeCompare(right.fingerprint);
+  });
+
+  const campaigns: ReadonlyArray<SnapshotCampaign> = policy.campaignRules.map((rule) => {
+    const ledger = policy.ledgers.get(rule.id);
+    const own = findings.campaigns.filter((hit) => hit.campaign === rule.id).length;
+    const base: SnapshotCampaign = {
+      id: rule.id,
+      ...(rule.title === null ? {} : { title: rule.title }),
+      ...(rule.owner === null ? {} : { owner: rule.owner }),
+      initial: own,
+      allowed: 0,
+      count: own,
+      fixed: 0,
+      progress: 0,
+      lastProgress: new Date(policy.now).toISOString(),
+      regressions: 0,
+      stalled: false,
+      complete: own === 0,
+      onComplete: rule.onComplete,
+      ledgered: false,
+    };
+    if (ledger === undefined) return base;
+    return {
+      ...base,
+      initial: ledger.initial,
+      allowed: ledger.regressions.reduce((sum, one) => sum + one.delta, 0),
+      count: ledger.entries.length,
+      fixed: ledger.fixed,
+      progress: progressOf(ledger),
+      lastProgress: ledger.lastProgress,
+      regressions: ledger.regressions.length,
+      stalled: isStalled(rule, ledger, policy.now),
+      complete: isComplete(ledger),
+      ledgered: true,
+    };
+  });
+
+  return {
+    version: SNAPSHOT_VERSION,
+    manifest: report_.manifest,
+    roots: report_.roots,
+    files: report_.files,
+    ok: report_.ok,
+    coverage: report_.coverage,
+    conformance: report_.conformance,
+    residue: measures.residue,
+    vacant: measures.vacant,
+    violations,
+    unresolved: report_.unresolved,
+    stale: report_.stale,
+    baseline: { size: readBaseline(policy).entries.length },
+    cycles: cyclesIn(graph).length,
+    slack: measures.slack,
+    concentration: measures.concentration,
+    adoption: report_.adoption,
+    campaigns,
+  };
+};
+
+// The campaigns, stalled and complete first, then by progress.
+const renderCampaignRows = (campaigns: ReadonlyArray<SnapshotCampaign>): ReadonlyArray<string> => {
+  const width = Math.max(0, ...campaigns.map((one) => one.id.length));
+  const state = (one: SnapshotCampaign): string =>
+    !one.ledgered ? "no ledger" : one.complete ? "complete" : one.stalled ? "stalled" : "";
+  const ordered = [...campaigns].sort((left, right) => {
+    const rank = (one: SnapshotCampaign): number =>
+      one.stalled ? 0 : one.complete && one.ledgered ? 1 : 2;
+    const byRank = rank(left) - rank(right);
+    return byRank !== 0 ? byRank : left.progress - right.progress;
+  });
+  return ordered.map(
+    (one) =>
+      `  ${one.id.padEnd(width)}  ${percent(one.progress).padStart(4)}  ${String(one.count).padStart(5)} left` +
+      `  ${String(one.fixed)} fixed  ${String(one.allowed)} allowed` +
+      (one.owner === undefined ? "" : `  ${one.owner}`) +
+      (state(one) === "" ? "" : `  ${state(one)}`),
+  );
+};
+
+const renderSnapshot = (snapshot: Snapshot): ReadonlyArray<string> => {
+  const reportable = snapshot.violations.filter((one) => !one.baselined && !one.ledgered);
+  const carried = snapshot.violations.length - reportable.length;
+  const row = (family: CoverageFamily): string => {
+    const { covered, floor, total } = snapshot.coverage[family];
+    const fraction = total === 0 ? 1 : covered / total;
+    const mark =
+      floor === undefined
+        ? ""
+        : fraction >= floor
+          ? `  ≥ ${percent(floor)} ✓`
+          : `  < ${percent(floor)} ✗`;
+    return `  ${family.padEnd(10)} ${String(covered).padStart(5)}/${String(total)}  ${percent(fraction).padStart(4)}${mark}`;
+  };
+  const section = (title: string, lines: ReadonlyArray<string>): ReadonlyArray<string> => [
+    "",
+    title,
+    ...lines,
+  ];
+  const vacantWidth = Math.max(0, ...snapshot.vacant.map((one) => one.node.length));
+  // The document carries every partly-used fragment entry; the text shows
+  // the ones concentrated enough to read as a per-file rule written wide.
+  const concentrated = snapshot.concentration.filter(isConcentrated);
+  // The ceiling beside each measure that has one, and the ratchet's nudge
+  // when the count has fallen under it: a ceiling is lowered by hand.
+  const ceilingMark = (measure: ConformanceMeasure): string => {
+    const { ceiling, count: actual } = snapshot.conformance[measure];
+    if (ceiling === undefined) return "";
+    if (actual > ceiling) return `  > ${String(ceiling)} ✗`;
+    return `  ≤ ${String(ceiling)} ✓${actual < ceiling ? `, lower it to ${String(actual)}` : ""}`;
+  };
+
+  return [
+    `${String(snapshot.files)} files under ${snapshot.roots.join(", ")}, against ${snapshot.manifest.path}`,
+    ...section("coverage", COVERAGE_FAMILIES.map(row)),
+    ...section(
+      `residue: ${count(snapshot.residue.files.length, "file")} no family reaches` +
+        (snapshot.residue.folders.length === 0
+          ? ""
+          : `, ${count(snapshot.residue.folders.length, "folder")} wholly`) +
+        ceilingMark("residue"),
+      [
+        ...snapshot.residue.folders.map((folder) => `  ${folder}/`),
+        ...snapshot.residue.files
+          .filter(
+            (file) => !snapshot.residue.folders.some((folder) => file.startsWith(`${folder}/`)),
+          )
+          .map((file) => `  ${file}`),
+      ],
+    ),
+    ...section(
+      `vacant: ${count(snapshot.vacant.length, "node")} ${snapshot.vacant.length === 1 ? "selects" : "select"} no file` +
+        ceilingMark("vacant"),
+      snapshot.vacant.map(
+        (one) => `  ${one.node.padEnd(vacantWidth)}  ${count(one.allowances, "allowance")}`,
+      ),
+    ),
+    ...section(
+      `violations: ${count(reportable.length, "reportable")}` +
+        (carried > 0 ? `, ${String(carried)} carried by the baseline or a ledger` : "") +
+        (snapshot.stale.length > 0
+          ? `, ${count(snapshot.stale.length, "stale entry", "stale entries")}`
+          : "") +
+        (reportable.length > 0 ? " — nearest the ground first" : ""),
+      reportable.map(describe),
+    ),
+    ...(snapshot.unresolved.length === 0
+      ? []
+      : section(
+          `unresolved: ${count(snapshot.unresolved.length, "import")} no rule can police`,
+          snapshot.unresolved.map((one) => `  ${one.file} → ${one.specifier} (${one.detail})`),
+        )),
+    ...section(
+      `slack: ${count(snapshot.slack.length, "allowance")} nothing imports through` +
+        ceilingMark("slack"),
+      snapshot.slack.map(
+        (one) =>
+          `  ${one.node}: ${one.kind} ${JSON.stringify(one.entry)}` +
+          (one.of === undefined ? "" : `  (via use, at ${count(one.of, "node")})`),
+      ),
+    ),
+    ...(concentrated.length === 0 && snapshot.conformance.concentration.ceiling === undefined
+      ? []
+      : section(
+          `concentrated: ${count(concentrated.length, "allowance")} used at fewer than half the nodes granted` +
+            ceilingMark("concentration"),
+          concentrated.map(
+            (one) =>
+              `  ${one.fragment}: ${one.kind} ${JSON.stringify(one.entry)}  used at ${String(one.usedAt)} of ${count(one.of, "node")}`,
+          ),
+        )),
+    ...(snapshot.campaigns.length === 0
+      ? []
+      : section(
+          `campaigns: ${count(snapshot.campaigns.length, "campaign")}` +
+            (snapshot.campaigns.some((one) => one.stalled)
+              ? `, ${count(snapshot.campaigns.filter((one) => one.stalled).length, "stalled", "stalled")}`
+              : "") +
+            (snapshot.campaigns.some((one) => one.complete && one.ledgered)
+              ? `, ${count(snapshot.campaigns.filter((one) => one.complete && one.ledgered).length, "complete", "complete")}`
+              : ""),
+          renderCampaignRows(snapshot.campaigns),
+        )),
+    "",
+    `cycles: ${String(snapshot.cycles)}`,
+    `baseline: ${count(snapshot.baseline.size, "entry", "entries")}`,
+    `adoption: ${count(snapshot.adoption.unrestricted.length, "unrestricted tier")}, ${count(snapshot.adoption.partial.length, "partial tier")}`,
+  ];
+};
+
+export type ConformanceOptions = CheckOptions;
+
+// The report of the tree against the manifest. Unlike `check`, it never
+// fails: it is a measurement, and the manifest it measures against may be one
+// the tree was never expected to satisfy yet — `--against` names a target.
+// `ok` in the document says what `check` would have done.
+export const conformance = (
+  policy: LoadedPolicy,
+  roots: ReadonlyArray<string>,
+  options: ConformanceOptions,
+): Effect.Effect<void, CliFailure> =>
+  Effect.gen(function* () {
+    const snapshot = snapshotOf(policy, roots, options.manifestPath);
+    yield* report(
+      options.format === "json" ? [JSON.stringify(snapshot, null, 2)] : renderSnapshot(snapshot),
+    );
+  });
+
 // How much of the tree the policy reaches. A probe proves a rule can fire;
 // this is whether the files are there to fire on. Reported per family, with the
 // adoption backlog — the tiers that said "not tightened yet" — beneath it.
@@ -321,7 +1086,8 @@ export const explain = (policy: LoadedPolicy, file: string): Effect.Effect<void,
         !rule.fileNot.some((pattern) => pattern.test(relative)),
     );
 
-    const firstSentence = (message: string) => `${message.split(". ")[0] ?? message}.`;
+    const firstSentence = (message: string) =>
+      `${(message.split(". ")[0] ?? message).replace(/\.$/, "")}.`;
     const named = (rule: { readonly name: string; readonly message: string }): string =>
       `    ${rule.name} — ${firstSentence(rule.message)}`;
 
@@ -347,6 +1113,33 @@ export const explain = (policy: LoadedPolicy, file: string): Effect.Effect<void,
     const section = (title: string, lines: ReadonlyArray<string>): ReadonlyArray<string> =>
       lines.length === 0 ? [] : ["", title, ...lines];
 
+    // Each campaign selecting the file, with its truth table: one line per
+    // leaf term and what it answered here, so a detector that "should fire"
+    // and does not shows which term is not saying what its author thinks.
+    const selectedCampaigns = campaignsSelecting(policy.campaignRules, relative);
+    const campaignLines = selectedCampaigns.flatMap((rule) => {
+      const at = path.join(policy.repoRoot, relative);
+      const text = existsSync(at) ? readFileSync(at, "utf8") : "";
+      const input = {
+        file: relative,
+        text,
+        facts: policy.extractor.factsOf(relative, text),
+        resolver: policy.resolver,
+        fileSystem: policy.fileSystem,
+        syntax: policy.syntax.parse(relative, text),
+        functions: policy.functions,
+        reports: policy.reports,
+      };
+      const hits = evaluateCampaigns([rule], input);
+      return [
+        `    ${rule.name} — ${firstSentence(rule.why)} (${rule.unit}; ${hits.length === 0 ? "no hit" : count(hits.length, "hit")})`,
+        ...explainCampaign(rule, input).map(
+          (line) =>
+            `        ${line.answer ? "✓" : "✗"} ${line.term}${line.count === undefined ? "" : ` (${String(line.count)})`}`,
+        ),
+      ];
+    });
+
     yield* report([
       relative,
       "",
@@ -379,6 +1172,7 @@ export const explain = (policy: LoadedPolicy, file: string): Effect.Effect<void,
       ...section("  vocabulary (members):", vocabulary.map(named)),
       ...section("  may export (surface):", surface.map(named)),
       ...section("  graph:", graph),
+      ...section("  campaigns:", campaignLines),
     ]);
   });
 
@@ -445,25 +1239,460 @@ export const facts = (
     ]);
   });
 
+const SCHEMA_HEADER = `# yaml-language-server: $schema=${MANIFEST_SCHEMA_ID}\n`;
+
+// A first manifest: one open root that reaches itself, the ceilings at zero,
+// and a comment per section naming the page that explains it. Tight enough to
+// fire on the first external import — which is the moment the author learns
+// where the allowlist is — and small enough to read in one sitting.
+const STARTER_MANIFEST = `${SCHEMA_HEADER}#
+# The architecture policy: one manifest of this repository.
+# https://dataquail.github.io/goodbones/architecture-rules/manifest/
+#
+# A key ending in \`/\` is a folder; anything else is a file. The default is
+# tight: a folder admits only the children it lists, and a file may import only
+# what it or an ancestor allows. Laxity is opted into, by name, at the node that
+# wants it. Quote every glob — \`*\` and \`@\` mean something else to YAML bare.
+
+# How an import specifier becomes a file. Every pattern below is matched
+# against a resolved path, so this is what makes the rest mean anything.
+# https://dataquail.github.io/goodbones/architecture-rules/enforcement/resolution/
+resolve:
+  scopes:
+    - files: ""
+      language: typescript
+      options: { tsconfig: tsconfig.json }
+  unresolved: error
+
+# Violations this repository is carrying while it adopts the policy, keyed by
+# fingerprint. Written by \`architecture baseline\`; the floor only rises.
+# https://dataquail.github.io/goodbones/architecture-rules/enforcement/baseline/
+baseline: .architecture-baseline.json
+
+# Ceilings on how many tiers may say "not tightened yet". At zero, raising one
+# is a line in this file a reviewer sees. The same block takes coverage floors
+# and ceilings on what \`architecture conformance\` measures, once there are
+# numbers to write.
+# https://dataquail.github.io/goodbones/architecture-rules/enforcement/adoption/
+limits:
+  unrestricted: 0
+  partial: 0
+
+# Migrations the repository is running, each with a detector, a rationale, a
+# guide, an owner and a ledger of every place the pattern still occurs. Fill
+# one in, then \`architecture campaigns init <id>\` to write its ledger.
+# https://dataquail.github.io/goodbones/architecture-rules/manifest/campaigns/
+# campaigns:
+#   - id: js-to-ts
+#     why: The strict tsconfig cannot land while any src file is JavaScript.
+#     how: Rename to .ts, add types at the module boundary, leave the body alone.
+#     scope: ["src/**"]
+#     unit: file
+#     detect: { path: { file: "\\.(js|jsx)$" } }
+#     probes: { fires: [{ path: src/legacy/util.js }], ignores: [{ path: src/util.ts }] }
+#     staleAfter: 14d
+#     onComplete: remove
+
+# The repository. One open root, reaching itself and the runtime; run
+# \`architecture check\` to see what else it reaches, and write that down here.
+# https://dataquail.github.io/goodbones/architecture-rules/manifest/imports/
+tree:
+  "src/":
+    message: "src/ is the whole program. Nothing in it is layered yet."
+    layout: open
+    imports:
+      message: "This import is not on the allowlist."
+      allow: ["src/**", "node:**"]
+      # npm packages this tier may reach, by name.
+      external: []
+    children: {}
+`;
+
+// A starter manifest, for a repository that has none.
+export const init = (repoRoot: string): Effect.Effect<void, CliFailure> =>
+  Effect.gen(function* () {
+    const present = MANIFEST_FILENAMES.filter((name) => existsSync(path.resolve(repoRoot, name)));
+    if (present.length > 0) {
+      return yield* Effect.fail(
+        fail(
+          `${present.join(", ")} already exists. \`init\` writes a starter manifest for a ` +
+            `repository that has none, and does not overwrite one.`,
+        ),
+      );
+    }
+    yield* Effect.sync(() => {
+      writeFileSync(path.resolve(repoRoot, "architecture.yaml"), STARTER_MANIFEST);
+    });
+    yield* report([
+      "wrote architecture.yaml.",
+      "",
+      "  architecture check       # what src/ reaches today; add it to the allowlist by name",
+      "  architecture coverage    # how much of the tree the policy reaches",
+    ]);
+  });
+
+// The same manifest as a data file. Nothing is hoisted into `defs` — which
+// subtrees are worth naming is the author's call — and comments do not
+// survive, since no tool carries them across; the report says so.
+export const migrate = (
+  repoRoot: string,
+  configFilename?: string,
+): Effect.Effect<void, CliFailure> =>
+  Effect.gen(function* () {
+    const from = yield* Effect.try({
+      try: () =>
+        configFilename === undefined
+          ? findManifestFile(repoRoot)
+          : path.resolve(repoRoot, configFilename),
+      catch: (cause) => fail(String(cause)),
+    });
+    if (![".mjs", ".js", ".cjs"].includes(path.extname(from))) {
+      return yield* Effect.fail(
+        fail(
+          `${path.basename(from)} is already a data file. \`migrate\` reads a JavaScript ` +
+            `manifest and writes the same policy as architecture.yaml.`,
+        ),
+      );
+    }
+    const to = path.resolve(repoRoot, "architecture.yaml");
+    if (existsSync(to)) {
+      return yield* Effect.fail(
+        fail("architecture.yaml already exists; `migrate` does not overwrite it."),
+      );
+    }
+
+    const read = yield* Effect.tryPromise({
+      try: () => readManifestFile(from),
+      catch: (cause) => fail(String(cause)),
+    });
+    // Written only if it decodes: a manifest that does not load as a module
+    // is not going to load as YAML either, and the error names why.
+    const decoded = decodeManifest(from, read.manifest);
+    if (Result.isFailure(decoded)) return yield* Effect.fail(fail(decoded.failure.message));
+
+    yield* Effect.sync(() => {
+      writeFileSync(to, `${SCHEMA_HEADER}\n${formatManifestYaml(read.manifest)}`);
+    });
+    yield* report([
+      `wrote architecture.yaml from ${path.basename(from)}.`,
+      "",
+      "Comments were not carried over; port the ones worth keeping by hand.",
+      `Then delete ${path.basename(from)}: a repository with two manifests is refused.`,
+    ]);
+  });
+
+// The ledgers. `campaigns` alone is the status table; `init` writes a
+// campaign's first ledger from what fires today; `prune` removes what no
+// longer fires; `allow` is the one way an entry is added, and it records why.
+const ledgerPathOf = (policy: LoadedPolicy, id: string): string =>
+  path.resolve(policy.repoRoot, policy.ledgerDir, `${id}.json`);
+
+const writeLedger = (policy: LoadedPolicy, ledger: Ledger): void => {
+  const at = ledgerPathOf(policy, ledger.id);
+  mkdirSync(path.dirname(at), { recursive: true });
+  writeFileSync(at, serializeLedger(ledger));
+};
+
+const campaignNamed = (policy: LoadedPolicy, id: string): CompiledCampaign | null =>
+  policy.campaignRules.find((rule) => rule.id === id) ?? null;
+
+// The author of a regression: `--by`, else git's user.email, else the
+// GIT_AUTHOR_EMAIL the environment carries. Without one the record is refused
+// rather than written blank, since the record is the point.
+const authorOf = (given: string | undefined): string | null => {
+  if (given !== undefined && given !== "") return given;
+  try {
+    const email = execFileSync("git", ["config", "user.email"], {
+      encoding: "utf8",
+      stdio: ["ignore", "pipe", "ignore"],
+    }).trim();
+    if (email !== "") return email;
+  } catch {
+    // git absent, or no email configured
+  }
+  const fromEnvironment = process.env.GIT_AUTHOR_EMAIL;
+  return fromEnvironment === undefined || fromEnvironment === "" ? null : fromEnvironment;
+};
+
+const flagOf = (argv: ReadonlyArray<string>, flag: string): string | undefined => {
+  const at = argv.indexOf(flag);
+  const value = at === -1 ? undefined : argv[at + 1];
+  return value === undefined || value.startsWith("--") ? undefined : value;
+};
+
+const CAMPAIGN_SUBCOMMANDS = ["init", "prune", "allow"] as const;
+const CAMPAIGN_VALUE_FLAGS = ["--reason", "--by", "--entries"] as const;
+
+// `campaigns [init <id> | prune [<id>] | allow <id> --reason <text>] [roots…]`:
+// the subcommand and its id come first; whatever positional is left names
+// the roots to walk, as it does for every other command.
+export const campaignArgsOf = (
+  argv: ReadonlyArray<string>,
+  ids: ReadonlyArray<string>,
+): {
+  readonly subcommand: string | undefined;
+  readonly id: string | undefined;
+  readonly roots: ReadonlyArray<string>;
+} => {
+  const positional: Array<string> = [];
+  for (let at = 0; at < argv.length; at += 1) {
+    const one = argv[at] ?? "";
+    if ((CAMPAIGN_VALUE_FLAGS as ReadonlyArray<string>).includes(one)) {
+      at += 1;
+      continue;
+    }
+    if (!one.startsWith("--")) positional.push(one);
+  }
+  const [first, second, ...rest] = positional;
+  if (first === undefined || !(CAMPAIGN_SUBCOMMANDS as ReadonlyArray<string>).includes(first)) {
+    return { subcommand: undefined, id: undefined, roots: positional };
+  }
+  // `prune` takes an optional id; the next word is one only if a campaign
+  // has that name, else it is a root.
+  const takesId = first !== "prune" || (second !== undefined && ids.includes(second));
+  return takesId
+    ? { subcommand: first, id: second, roots: rest }
+    : { subcommand: first, id: undefined, roots: second === undefined ? [] : [second, ...rest] };
+};
+
+export const campaigns = (
+  policy: LoadedPolicy,
+  defaultRoots: ReadonlyArray<string>,
+  argv: ReadonlyArray<string>,
+): Effect.Effect<void, CliFailure> =>
+  Effect.gen(function* () {
+    const parsed = campaignArgsOf(
+      argv,
+      policy.campaignRules.map((rule) => rule.id),
+    );
+    const { id, subcommand } = parsed;
+    const roots = parsed.roots.length > 0 ? parsed.roots : defaultRoots;
+    if (policy.campaignRules.length === 0) {
+      return yield* report(["this policy declares no campaigns."]);
+    }
+    const hitsOf = (): ReadonlyArray<CampaignHit> => collectFindings(policy, roots).campaigns;
+    const own = (hits: ReadonlyArray<CampaignHit>, campaign: string): ReadonlyArray<Violation> =>
+      hits.filter((hit) => hit.campaign === campaign).map((hit) => hit.violation);
+
+    switch (subcommand) {
+      case undefined: {
+        const snapshot = snapshotOf(policy, roots, manifestPathOf(policy.repoRoot));
+        return yield* report([
+          `${count(snapshot.campaigns.length, "campaign")} under ${roots.join(", ")}`,
+          "",
+          ...renderCampaignRows(snapshot.campaigns),
+          "",
+          "  architecture campaigns init <id>                       # write a ledger from what fires today",
+          "  architecture campaigns prune [<id>]                    # drop entries that no longer fire",
+          '  architecture campaigns allow <id> --reason "<why>"     # record why the count may rise',
+        ]);
+      }
+      case "init": {
+        if (id === undefined) return yield* Effect.fail(fail("campaigns init needs a campaign id"));
+        const rule = campaignNamed(policy, id);
+        if (rule === null) return yield* Effect.fail(fail(`no campaign is named "${id}"`));
+        if (policy.ledgers.has(id)) {
+          return yield* Effect.fail(
+            fail(
+              `${path.relative(policy.repoRoot, ledgerPathOf(policy, id))} already exists. \`init\` ` +
+                `writes a campaign's first ledger and does not overwrite one; \`prune\` and \`allow\` ` +
+                `are how it changes.`,
+            ),
+          );
+        }
+        const ledger = ledgerOf(id, own(hitsOf(), id), policy.now);
+        yield* Effect.sync(() => {
+          writeLedger(policy, ledger);
+        });
+        return yield* report([
+          `${count(ledger.entries.length, "hit")} recorded in ${path.relative(policy.repoRoot, ledgerPathOf(policy, id))}.`,
+          "Each one is a place the campaign has yet to reach. Fixing one means pruning its line.",
+        ]);
+      }
+      case "prune": {
+        const targets =
+          id === undefined
+            ? policy.campaignRules
+            : [campaignNamed(policy, id)].filter((one) => one !== null);
+        if (id !== undefined && targets.length === 0) {
+          return yield* Effect.fail(fail(`no campaign is named "${id}"`));
+        }
+        const hits = hitsOf();
+        const lines: Array<string> = [];
+        for (const rule of targets) {
+          const ledger = policy.ledgers.get(rule.id);
+          if (ledger === undefined) {
+            lines.push(`${rule.id}: no ledger to prune (run \`campaigns init ${rule.id}\`).`);
+            continue;
+          }
+          const next = pruned(ledger, own(hits, rule.id), rule.unit, policy.now);
+          const removed = ledger.entries.length - next.entries.length;
+          const rewritten = next.entries.filter((entry) => !ledger.entries.includes(entry)).length;
+          if (removed === 0 && rewritten === 0) {
+            lines.push(`${rule.id}: nothing to prune.`);
+            continue;
+          }
+          yield* Effect.sync(() => {
+            writeLedger(policy, next);
+          });
+          lines.push(
+            `${rule.id}: ${count(removed, "entry", "entries")} pruned` +
+              (rewritten > 0 ? `, ${count(rewritten, "entry", "entries")} rewritten` : "") +
+              `; ${count(next.entries.length, "entry", "entries")} left.`,
+          );
+        }
+        return yield* report(lines);
+      }
+      case "allow": {
+        if (id === undefined)
+          return yield* Effect.fail(fail("campaigns allow needs a campaign id"));
+        const rule = campaignNamed(policy, id);
+        if (rule === null) return yield* Effect.fail(fail(`no campaign is named "${id}"`));
+        const ledger = policy.ledgers.get(id);
+        if (ledger === undefined) {
+          return yield* Effect.fail(
+            fail(`campaign ${id} has no ledger yet; run \`campaigns init ${id}\` first.`),
+          );
+        }
+        const reason = flagOf(argv, "--reason");
+        if (reason === undefined) {
+          return yield* Effect.fail(
+            fail(
+              "campaigns allow needs --reason <text>: growth is recorded with why, or not at all.",
+            ),
+          );
+        }
+        const by = authorOf(flagOf(argv, "--by"));
+        if (by === null) {
+          return yield* Effect.fail(
+            fail("campaigns allow needs an author: pass --by <email>, or set git's user.email."),
+          );
+        }
+        const state = reconcile(ledger, own(hitsOf(), id), rule.unit);
+        const unrecorded = [...new Set(state.unrecorded.map(entryOf))].sort();
+        // `--entries` allows a subset and refuses the rest: a pull request
+        // that legitimately adds one hit while another is an accident.
+        const chosen =
+          flagOf(argv, "--entries")
+            ?.split(",")
+            .map((one) => one.trim()) ?? unrecorded;
+        const unknown = chosen.filter((entry) => !unrecorded.includes(entry));
+        if (unknown.length > 0) {
+          return yield* Effect.fail(
+            fail(`these entries are not unrecorded hits of ${id}: ${unknown.join(", ")}`),
+          );
+        }
+        if (chosen.length === 0) {
+          return yield* report([`${id}: nothing to allow; every hit is in the ledger.`]);
+        }
+        const next = allowed(ledger, chosen, { at: policy.now, by, reason });
+        yield* Effect.sync(() => {
+          writeLedger(policy, next);
+        });
+        const left = unrecorded.filter((entry) => !chosen.includes(entry));
+        return yield* report([
+          `${id}: ${count(chosen.length, "entry", "entries")} allowed, recorded as a regression by ${by}.`,
+          ...chosen.map((entry) => `  ${entry}`),
+          ...(left.length === 0
+            ? []
+            : ["", `${count(left.length, "hit")} left unrecorded; check still fails on them.`]),
+        ]);
+      }
+      default:
+        return yield* Effect.fail(
+          fail(
+            `unknown campaigns subcommand "${subcommand}". Try: campaigns | campaigns init <id> | campaigns prune [<id>] | campaigns allow <id> --reason <text> [--by <email>] [--entries a,b]`,
+          ),
+        );
+    }
+  });
+
+// The commands that judge a campaign, and so ask its report source.
+const READS_REPORTS: ReadonlySet<string> = new Set([
+  "check",
+  "conformance",
+  "baseline",
+  "campaigns",
+  "explain",
+]);
+
 export const run = (
   repoRoot: string,
   argv: ReadonlyArray<string>,
+  // From ARCHITECTURE_CONFIG. Absent, the manifest is discovered by name.
+  configFilename?: string,
 ): Effect.Effect<void, CliFailure> =>
   Effect.gen(function* () {
     const [command = "check", ...rest] = argv;
+
+    // The three commands that write a manifest rather than read one.
+    if (command === "init") return yield* init(repoRoot);
+    if (command === "migrate") return yield* migrate(repoRoot, configFilename);
+    if (command === "infer") {
+      yield* infer(repoRoot, rest, configFilename);
+      return;
+    }
+
+    // `--against <file>` measures the tree against a manifest other than the
+    // repository's own — the target the team is moving toward. Only
+    // `conformance` takes it: a `check` against a manifest nobody is held to
+    // yet would fail for no one's benefit.
+    const againstAt = rest.indexOf("--against");
+    const against = againstAt === -1 ? undefined : rest[againstAt + 1];
+    if (againstAt !== -1 && (against === undefined || against.startsWith("--"))) {
+      return yield* Effect.fail(fail("--against needs a manifest path"));
+    }
+    if (against !== undefined && command !== "conformance") {
+      return yield* Effect.fail(
+        fail(`--against is a \`conformance\` flag; ${command} does not take it`),
+      );
+    }
+    const manifestFilename = against ?? configFilename;
+
     const policy = yield* Effect.tryPromise({
-      try: () => loadPolicyFromFile(repoRoot),
+      try: () => loadPolicyFromFile(repoRoot, manifestFilename),
       catch: (cause) => fail(String(cause)),
     });
     yield* Effect.sync(() => {
       for (const notice of policy.notices) process.stderr.write(`deprecated: ${notice}\n`);
     });
 
-    const roots = rest.length > 0 ? rest : ["packages"];
+    // Every `report` a campaign names is read now, before any file asks:
+    // a term's several commands run at once rather than one after another
+    // the first time a campaign selects a file. What cannot be read is kept
+    // for the campaign to report; a report that does not parse is refused.
+    if (READS_REPORTS.has(command)) {
+      yield* Effect.tryPromise({
+        try: () =>
+          Promise.all(
+            reportSpecsOf(policy.campaignRules).map((spec) => policy.reports.read?.(spec)),
+          ),
+        catch: (cause) => fail(String(cause)),
+      });
+    }
+
+    const json = rest.includes("--json");
+    const positional = rest.filter(
+      (argument, index) =>
+        argument !== "--json" &&
+        argument !== "--against" &&
+        (againstAt === -1 || index !== againstAt + 1),
+    );
+    const roots = positional.length > 0 ? positional : ["packages"];
 
     switch (command) {
+      case "campaigns":
+        return yield* campaigns(policy, ["packages"], rest);
       case "check":
-        return yield* check(policy, roots);
+        return yield* check(policy, roots, {
+          format: json ? "json" : "text",
+          manifestPath: manifestPathOf(repoRoot, configFilename),
+        });
+      case "conformance":
+        return yield* conformance(policy, roots, {
+          format: json ? "json" : "text",
+          manifestPath: manifestPathOf(repoRoot, manifestFilename),
+        });
       case "baseline":
         return yield* writeBaseline(policy, roots);
       case "explain": {
@@ -474,14 +1703,14 @@ export const run = (
       case "coverage":
         return yield* coverage(policy, roots);
       case "facts": {
-        const [file] = rest.filter((argument) => argument !== "--json");
+        const [file] = positional;
         if (file === undefined) return yield* Effect.fail(fail("facts needs a file path"));
-        return yield* facts(policy, file, rest.includes("--json") ? "json" : "text");
+        return yield* facts(policy, file, json ? "json" : "text");
       }
       default:
         return yield* Effect.fail(
           fail(
-            `unknown command "${command}". Try: check | baseline | coverage | explain <file> | facts <file> [--json]`,
+            `unknown command "${command}". Try: check [--json] | conformance [--json] [--against <manifest>] | baseline | campaigns [init <id> | prune [<id>] | allow <id> --reason <text>] | coverage | explain <file> | facts <file> [--json] | init | infer | migrate`,
           ),
         );
     }