@letterstory/cli 0.43.0 → 0.45.0

package/README.md

@@ -386,8 +386,19 @@ letterstory admin crm accounts --stage demo_scheduled  # with likelihood
 letterstory admin crm score <account-id>               # recompute; prints the factors
 letterstory admin crm slack-channels [--all]           # Watchdog channels + the account each is linked to
 letterstory admin crm link-slack <account-id> C0123ABC # the CRM's watch-only Slack link (`none` unlinks)
+
+# One-click onboarding of a won client (key needs crm:write + fleet:onboard + org:create)
+letterstory admin crm onboard <account-id> --domain acme.com \
+  --site "Where fintech compliance is heading" --site "" \
+  --slack jane@acme.com --invite jane@acme.com:admin --invite bob@acme.com
+letterstory admin crm onboarding <account-id>          # step-by-step progress (sites refreshed)
+letterstory admin crm retry-onboarding <onboarding-id> # re-run only the failed steps
 ```
 
+`onboard` runs org → link → phantom sites → Slack channel → checklist → app invites →
+stage in one call. Each site is a real (not test) fleet build; `--site ""` lets the engine
+infer its beat from the client's homepage.
+
 Every trigger — Cal.com bookings, Circleback recordings, Letterhome dinner RSVPs, RB2B
 visits, and what an agent records here — goes through one intake (`ingestSignal`,
 src/lib/crm/signals-intake.ts), so an agent's signal dedupes against a webhook's exactly

package/lib/cli.mjs

@@ -52,7 +52,7 @@ import {
 } from "./commands.mjs";
 
 // Keep in sync with cli/package.json.
-export const VERSION = "0.43.0";
+export const VERSION = "0.45.0";
 
 // Flags that never take a value. Listing them explicitly means `deploy get --json <id>`
 // can't accidentally swallow the id as --json's value.
@@ -61,6 +61,7 @@ const BOOLEAN_FLAGS = new Set([
 	"yes",
 	"confirm-missing-target",
 	"no-wait",
+	"no-checklist",
 	"accept",
 	"help",
 	"version",
@@ -563,13 +564,28 @@ Admin (STAFF key — --staff-key / LETTERSTORY_STAFF_API_KEY; acts before an org
           | accounts [--stage lead] [--q acme] | account <id> | score <account-id>
           | slack-channels [--all] | link-slack <account-id> <channel-id|none>
           | white-glove [--suggested] | set-white-glove <account-id> on|off [--note "…"]
+          | churn [--months 12] | record-churn <account-id> <reason> [--note "…"] [--at ISO]
+            [--mrr-cents N] | undo-churn <account-id>
+          | onboard <account-id> --domain acme.com [--name "Acme"] [--site "<direction>"]… [--sites N]
+                   [--slack a@acme.com,b@acme.com] [--invite a@acme.com[:admin]]… [--no-checklist]
+          | onboarding <account-id> | retry-onboarding <onboarding-id>
                                                        The staff CRM's pipeline: the inbound signal
                                                        feed, recording a signal with no webhook
                                                        (Bookface, a tweet like), qualifying or
                                                        dismissing one, and the explained score.
                                                        White glove is a person's decision: the
                                                        desk only suggests ($1K+/mo post-sales).
-                                                       Needs crm:read (reads) / crm:write (writes).
+                                                       Churn: 30/90-day logo + revenue rates, who
+                                                       churned and why; Stripe cancellations are
+                                                       only suggestions until a person records one.
+                                                       Onboard runs org → link → phantom sites →
+                                                       Slack channel → checklist → app invites →
+                                                       stage in one call (--site "" = infer the
+                                                       beat from their homepage); retry re-runs
+                                                       only what failed.
+                                                       Needs crm:read (reads) / crm:write (writes);
+                                                       onboard + retry also need fleet:onboard and
+                                                       org:create.
   admin tuning-context [--q "<question>"]              The experiment agent's context pack (JSON):
                                                        the pipeline as deployed, levers, measures,
                                                        goals, related history.

package/lib/commands/admin.mjs

@@ -7,7 +7,7 @@
 //   admin experiments list|show|new|update|note|started|spend|conclude|abandon …   (tuning:experiment)
 //   admin tuning-context [--q "<question>"]                                         (tuning:experiment)
 //   admin tuning-import <brief-results.json> [--experiment <id>]                    (tuning:experiment)
-//   admin crm signals|record|signal|accounts|account|score|slack-channels|link-slack|white-glove|set-white-glove …  (crm:read / crm:write)
+//   admin crm signals|record|signal|accounts|account|score|slack-channels|link-slack|white-glove|set-white-glove|churn|record-churn|undo-churn|onboard|onboarding|retry-onboarding …  (crm:read / crm:write)
 //   admin create-org --domain acme.com [--name "Acme"] [--test] [--no-key] [--key-name N]
 //                    [--capabilities a,b] [--onboard] [--about "…"] [--sitemap <url>]
 //                    [--cms <provider>] [--posts N] [--seers suggest|skip] [--no-visuals]
@@ -425,6 +425,57 @@ function accountLine(a) {
 	return `${a.id}  [${a.stage}]  ${score}  ${a.name}${a.domain ? ` (${a.domain})` : ""}${a.isYc ? " · YC" : ""}`;
 }
 
+function onboardingLines(o) {
+	if (!o) return "(never onboarded from the CRM)";
+	const mark = { done: "✓", skipped: "–", failed: "✗", running: "…", pending: "·" };
+	return [
+		`${o.id}  started ${o.startedAt.slice(0, 16).replace("T", " ")}${o.finishedAt ? "  finished" : "  in progress"}`,
+		...o.steps.map(
+			(s) =>
+				`  ${mark[s.status] ?? "?"} ${s.key.padEnd(9)} ${s.status}${s.progress ? ` (${s.progress.done}/${s.progress.total})` : ""}${s.detail ? `  ${s.detail}` : ""}${s.error ? `\n      error: ${s.error}` : ""}`
+		),
+	].join("\n");
+}
+
+/**
+ * `admin crm onboard` body from flags — the same CrmOnboardBodySchema the desk sends.
+ * --site "<direction>" per site (repeatable; "" = infer from the homepage) and/or
+ * --sites N (pads with inferred sites); --slack a@x,b@x (bare --slack = the channel, no
+ * invites yet); --invite email[:admin|editor] (repeatable); --no-checklist.
+ */
+function onboardBody(flags) {
+	const domain = flagStr(flags.domain);
+	if (!domain) {
+		throw new CliError(
+			'Usage: admin crm onboard <account-id> --domain acme.com [--name "Acme"] [--site "<direction>"]… [--sites N] [--slack a@x,b@x] [--invite a@x[:admin]]… [--no-checklist]'
+		);
+	}
+	const sites = flagList(flags.site).map((direction) => ({ direction: direction.trim() || null }));
+	const total = flagNum(flags.sites);
+	while (total !== undefined && sites.length < total) sites.push({ direction: null });
+	const slackEmails = flagList(flags.slack)
+		.flatMap((v) => v.split(","))
+		.map((e) => e.trim())
+		.filter(Boolean);
+	const slack = flags.slack === undefined ? null : { emails: slackEmails };
+	const invites = flagList(flags.invite)
+		.flatMap((v) => v.split(","))
+		.map((v) => v.trim())
+		.filter(Boolean)
+		.map((v) => {
+			const [email, role] = v.split(":");
+			return { email, role: role === "admin" ? "admin" : "editor" };
+		});
+	return compact({
+		domain,
+		name: flagStr(flags.name),
+		sites,
+		slack,
+		invites,
+		checklist: flagBool(flags["no-checklist"]) ? false : undefined,
+	});
+}
+
 /**
  * `admin crm …` — the headless half of the staff CRM, so a background agent can watch the
  * pipeline and record the signals that have no webhook (Bookface, tweet likes, DMs).
@@ -567,9 +618,85 @@ async function cmdAdminCrm(ctx) {
 			);
 			return out(r, () => (action === "on" ? "moved to white glove" : "left white glove"));
 		}
+		case "churn": {
+			// admin crm churn [--months 12] — the 30/90-day rates, who churned and why, likely churns.
+			const params = new URLSearchParams(compact({ months: flagStr(flags.months) }));
+			const pct = (x) => (x == null ? "—" : `${(x * 100).toFixed(1)}%`);
+			const usd = (cents) => `$${Math.round(cents / 100).toLocaleString("en-US")}`;
+			const win = (label, w) =>
+				`${label}: ${w.churned}/${w.customersAtStart} customers (${pct(w.rate)}) · ${usd(w.mrrLostCents)}/mo lost (${pct(w.revenueRate)} of MRR)`;
+			return out(await staffRequest(ctx, "GET", `${CRM}/churn?${params}`), (r) =>
+				[
+					win("30d", r.window.days30),
+					win("90d", r.window.days90),
+					"",
+					"Churned:",
+					...(r.churned.length
+						? r.churned.map(
+								(c) =>
+									`  ${c.churnedAt.slice(0, 10)}${c.churnedAtSource === "undated" ? "?" : ""}  ${c.account.name}  ${c.reason ?? "unrecorded"}  ${usd(c.mrrLostCents)}/mo${c.note ? `  — ${c.note}` : ""}`
+							)
+						: ["  (none)"]),
+					"",
+					"Likely churned (not recorded):",
+					...(r.likely.length
+						? r.likely.map((l) => `  ${accountLine(l.account)}\n    ${l.signal}`)
+						: ["  (none)"]),
+				].join("\n")
+			);
+		}
+		case "record-churn": {
+			// admin crm record-churn <account-id> <reason> [--note "…"] [--at ISO] [--mrr-cents N]
+			if (!id || !action) {
+				throw new CliError(
+					'Usage: admin crm record-churn <account-id> <price|no_results|competitor|in_house|shut_down|budget|bad_fit|service|other> [--note "…"] [--at 2026-09-22T00:00:00Z] [--mrr-cents 50000]'
+				);
+			}
+			const r = await staffPost(
+				ctx,
+				`${CRM}/accounts/${id}/churn`,
+				compact({
+					reason: action,
+					note: flagStr(flags.note),
+					churned_at: flagStr(flags.at),
+					mrr_cents: flagNum(flags["mrr-cents"]),
+				})
+			);
+			return out(
+				r,
+				(x) =>
+					`${x.change === "updated" ? "churn updated" : "churn recorded"}: ${accountLine(x.account)} · ${x.account.churnMrrCents == null ? "no MRR on file" : `$${Math.round(x.account.churnMrrCents / 100)}/mo lost`}`
+			);
+		}
+		case "undo-churn": {
+			// admin crm undo-churn <account-id> — clear the churn and move back to active.
+			if (!id) throw new CliError("Usage: admin crm undo-churn <account-id>");
+			const r = await staffRequest(ctx, "DELETE", `${CRM}/accounts/${id}/churn`);
+			return out(r, (x) => `churn undone: ${accountLine(x.account)}`);
+		}
+		case "onboard": {
+			// admin crm onboard <account-id> --domain acme.com … — one-click onboarding of a won
+			// client. The key needs crm:write + fleet:onboard + org:create.
+			if (!id) throw new CliError("Usage: admin crm onboard <account-id> --domain acme.com … (see --help)");
+			const r = await staffPost(ctx, `${CRM}/accounts/${id}/onboard`, onboardBody(flags));
+			return out(r, (x) => onboardingLines(x.onboarding));
+		}
+		case "onboarding": {
+			// admin crm onboarding <account-id> — the latest onboarding, sites refreshed.
+			if (!id) throw new CliError("Usage: admin crm onboarding <account-id>");
+			return out(await staffRequest(ctx, "GET", `${CRM}/accounts/${id}/onboard`), (x) =>
+				onboardingLines(x.onboarding)
+			);
+		}
+		case "retry-onboarding": {
+			// admin crm retry-onboarding <onboarding-id> — re-run the failed/pending steps.
+			if (!id) throw new CliError("Usage: admin crm retry-onboarding <onboarding-id>");
+			const r = await staffPost(ctx, `${CRM}/onboardings/${id}/retry`, {});
+			return out(r, (x) => onboardingLines(x.onboarding));
+		}
 		default:
 			throw new CliError(
-				"Usage: admin crm signals|record|signal|accounts|account|score|slack-channels|link-slack|white-glove|set-white-glove … (see --help)"
+				"Usage: admin crm signals|record|signal|accounts|account|score|slack-channels|link-slack|white-glove|set-white-glove|churn|record-churn|undo-churn|onboard|onboarding|retry-onboarding … (see --help)"
 			);
 	}
 }

package/package.json

@@ -1,6 +1,6 @@
 {
 	"name": "@letterstory/cli",
-	"version": "0.43.0",
+	"version": "0.45.0",
 	"description": "Spin up and manage Letterstory phantom blogs from your terminal.",
 	"type": "module",
 	"license": "UNLICENSED",