@harborppm/cli 0.38.0 → 0.40.0

package/README.md

@@ -57,7 +57,7 @@ Your harbor is the same one at [harborppm.com](https://harborppm.com/today?utm_s
 - **GitHub**: a pull request that names a task's key (RR-42) shows on the task and moves it along.
 - **Claude and other AI apps**, connected over MCP from [harborppm.com/ai](https://harborppm.com/ai?utm_source=npm&utm_medium=readme&utm_campaign=cli).
 
-`harbor open RR-42` opens a task on the website (in the right harbor, even when the browser had another one open), `harbor open Ridge` a project, and `harbor open` on its own opens Today. `harbor invite sam@example.com` sends Sam the same invite letter the People page does (`--viewer` to let them look but not change anything); only a harbor's owner can invite. `harbor calendar` prints your private calendar link, to add to Google, Apple or Outlook calendar: your due dates, milestones and sign-offs beside your meetings, kept up to date (`--program NAME` for everything dated in one program, `--new` to swap the link for a fresh one, `--off` to turn it off). `harbor roadmap "Next steps"` publishes a project as a public roadmap page (Now, Next and Shipped, task titles only) and prints its link; `--dates` adds the day each thing shipped and `--off` takes it down. Only a harbor's owner can publish.
+`harbor open RR-42` opens a task on the website (in the right harbor, even when the browser had another one open), `harbor open Ridge` a project, and `harbor open` on its own opens Today. `harbor invite sam@example.com` sends Sam the same invite letter the People page does (`--viewer` to let them look but not change anything); only a harbor's owner can invite. `harbor calendar` prints your private calendar link, to add to Google, Apple or Outlook calendar: your due dates, milestones and sign-offs beside your meetings, kept up to date (`--program NAME` for everything dated in one program, `--new` to swap the link for a fresh one, `--off` to turn it off). `harbor roadmap "Next steps"` says whether a project is a public roadmap page and prints its link; `--publish` publishes it (Now, Next and Shipped, task titles only, on a link that can't be guessed, which stays the same while it's live), `--publish --dates` adds the day each thing shipped (titles only is the default), and `--off` takes it down at once. Only a harbor's owner can publish. `harbor projects --json` gives each project's `public` and `url`.
 
 The website has the commands too: turn on **Command line at the bottom** in your menu, press `/`, and type `mine`, `add "Call the mill" #ridge @sam --due fri` or `done RR-12`.
 
@@ -115,6 +115,7 @@ Task titles, names and notes can come from an intake form, a GitHub pull request
 
 ```
 harbor harbors                              the harbors you belong to
+harbor whoami                               who you're signed in as, and where
 harbor use HARBOR|none                      the harbor to work in when you're in several
 harbor programs                             programs and their projects
 harbor projects [words] [--program P]       projects with health and open work
@@ -124,12 +125,12 @@ harbor hill [--program P]                   where each project is on its hill
 harbor hill PROJECT --at 0-100|top|done     move it: up to 50 is figuring it out,
                                             past 50 is getting it done
 harbor mine                                 what's on you, late first
-harbor tasks [words] [--project P] [--assignee me|none|NAME] [--late] [--status S,S]
+harbor tasks [words] [--project P] [--assignee me|none|NAME] [--late] [--status S,S] [--all]
 harbor show TASK                            one task in full, with its web link
 harbor open [TASK|PROJECT]                  open it on the website (or Today)
 harbor invite EMAIL [--viewer]              invite someone to your harbor by email
 harbor calendar [--program P] [--new|--off] your private calendar link (.ics)
-harbor roadmap PROJECT [--dates] [--off]    publish a project's public roadmap
+harbor roadmap PROJECT [--publish] [--off]  a project's public roadmap: read, publish or take it down
 
 harbor program "NAME" [--portfolio P] [--lead me|NAME] [--starts DATE]
                      [--ends DATE]
@@ -150,7 +151,7 @@ harbor issue "TITLE" --project P|--program P [--impact 1-5] [--owner NAME]
                     [--due DATE]
 harbor decision "TITLE" --project P|--program P [--owner NAME] [--due DATE]
 harbor risks [words] [--kind risk,issue,decision] [--project P] [--closed]
-harbor brief [--portfolio P] [--say]        the weekly brief, ready to send
+harbor brief [--portfolio P] [--all] [--say] the weekly brief (--all: every late and done task)
 harbor report PROGRAM                       a program's status report, as Markdown
 harbor export tasks PROJECT|risks|review [--all]
                                             a spreadsheet (CSV) to stdout
@@ -177,7 +178,7 @@ Agents on the crew: put an AI app on People with Add an agent and assign it task
 
 `harbor premortem` runs a pre-mortem with your crew: `--start` asks everyone "it's after the end date and this project failed: what happened?", each person adds answers alone for five minutes, and then the answers show together on the project's Risks & issues tab, where each becomes a risk in one click. On its own it prints the question and the answers you can see. Once a project is Done, `harbor voyage` prints its voyage log (planned against actual dates, the biggest slips, the risks that came true, who closed the most, and the crew's lines) and adds yours. `harbor note` leaves a note for later on a project: it stays sealed (the crew sees only that it's there and who left it) until its day, until one of the program's milestones is reached, or until the project turns Off track, and then it opens at the top of the project and in the brief.
 
-`harbor brief --say` turns the brief into the BBC's Shipping Forecast: each program an area, wind for late work, visibility for health, gale warnings for anything off track. It prints the forecast and speaks it with your computer's own voice (`say` on a Mac, Windows' speech, or `espeak-ng` on Linux).
+`harbor brief --say` turns the brief into the BBC's Shipping Forecast: each program an area, wind for late work, visibility for health, gale warnings for anything off track. It prints the forecast and speaks it with your computer's own voice (`say` on a Mac, Windows' speech, or `espeak-ng` on Linux, which you may need to install). With `--json` it prints the forecast and stays quiet.
 
 Every command takes `--json` for the raw result (a refusal then comes out as `{"error": "…"}` on standard output, still with exit code 1), and `harbor COMMAND --help` shows just that command. Statuses are backlog, todo, doing, review and done. A `DATE` is YYYY-MM-DD, `today`, `tomorrow`, or `+N` for N days from today.
 

package/dist/app.mjs

@@ -5013,7 +5013,7 @@ function saidThisWeek(data, now, inScope) {
 		}] : [];
 	});
 }
-/** How many late tasks the brief names before "and N more". */
+/** How many late (or finished) tasks the brief names before "and N more". */
 const BRIEF_LATE_SHOWN = 8;
 function byEndDate(a, b) {
 	return a.endDate.localeCompare(b.endDate);
@@ -5065,6 +5065,7 @@ function lateOwnersOf(data, tasks, now) {
 }
 function composeBriefBody(opts) {
 	const date = format(opts.date, "MMMM d, yyyy");
+	const shown = opts.all ? Infinity : 8;
 	const watch = opts.watch ?? [];
 	const milestones = opts.milestones ?? [];
 	const lateMilestones = milestones.filter((m) => m.daysLate > 0);
@@ -5081,8 +5082,8 @@ function composeBriefBody(opts) {
 	const done = () => {
 		if (!opts.shipped?.length) return;
 		lines.push("Done this week");
-		for (const t of opts.shipped.slice(0, 8)) lines.push(`• ${t.title}${t.project ? ` (${t.project})` : ""}`);
-		if (opts.shipped.length > 8) lines.push(`• and ${opts.shipped.length - 8} more`);
+		for (const t of opts.shipped.slice(0, shown)) lines.push(`• ${t.title}${t.project ? ` (${t.project})` : ""}`);
+		if (opts.shipped.length > shown) lines.push(`• and ${opts.shipped.length - shown} more`);
 		lines.push("");
 	};
 	const said = () => {
@@ -5128,12 +5129,12 @@ function composeBriefBody(opts) {
 	}
 	if (opts.late.length) {
 		lines.push("Late");
-		for (const row of opts.late.slice(0, 8)) {
+		for (const row of opts.late.slice(0, shown)) {
 			const when = `${row.days} day${row.days === 1 ? "" : "s"} late`;
 			const held = row.holdsUp?.length ? ` (holds up ${nameList(row.holdsUp.map((t) => `“${t}”`))})` : "";
 			lines.push(`• ${row.title} — ${row.owner ? `${row.owner}, ` : ""}${when}${held}`);
 		}
-		if (opts.late.length > 8) lines.push(`• and ${opts.late.length - 8} more`);
+		if (opts.late.length > shown) lines.push(`• and ${opts.late.length - shown} more`);
 		lines.push("");
 	}
 	done();
@@ -5334,9 +5335,10 @@ function briefOf(data, opts = {}) {
 		quiet: grouped.offTrack.length === 0 && grouped.atRisk.length === 0 && lateOwners.length === 0 && watch.length === 0 && milestonesLate.length === 0
 	};
 }
-function composeBriefBodyFrom(brief, data, workspace) {
+function composeBriefBodyFrom(brief, data, workspace, all = false) {
 	return composeBriefBody({
 		workspace,
+		all,
 		date: brief.asOf,
 		offTrack: brief.offTrackPrograms,
 		atRisk: brief.atRiskPrograms,
@@ -5375,8 +5377,8 @@ function composeBriefBodyFrom(brief, data, workspace) {
 		}))
 	});
 }
-function renderBriefText(brief, data, workspace = "Harbor") {
-	return composeBriefBodyFrom(brief, data, workspace);
+function renderBriefText(brief, data, workspace = "Harbor", all = false) {
+	return composeBriefBodyFrom(brief, data, workspace, all);
 }
 
 //#endregion

package/lib/cli.mjs

@@ -23,6 +23,7 @@ import {
   forecastOne,
   STATUS,
   harbors,
+  whoami,
   limitsText,
   hillData,
   hillList,
@@ -62,6 +63,7 @@ export const HELP = `harbor: Harbor from the terminal
   harbor login [--server URL] [--read-only]   sign in (opens your browser once)
   harbor logout                               forget the sign-in on this machine
   harbor harbors                              the harbors you belong to
+  harbor whoami                               who you're signed in as, and where
   harbor use HARBOR|none                      the harbor to work in
   harbor theme [auto|light|dark]              the app's colours
   harbor --version                            which version this is
@@ -76,7 +78,9 @@ export const HELP = `harbor: Harbor from the terminal
                                               out, past 50 is getting it done
   harbor mine                                 what's on you, late first
   harbor tasks [words] [--project P] [--assignee me|none|NAME]
-                     [--late] [--status S,S]
+                     [--late] [--status S,S] [--all]
+                                              the first 20 (--all: every one);
+                                              done ones only with --status done
   harbor show TASK                            one task (TASK: a key like RR-42)
   harbor open [TASK|PROJECT]                  open it on the website (or Today)
   harbor invite EMAIL [--viewer]              invite someone to your harbor
@@ -85,8 +89,10 @@ export const HELP = `harbor: Harbor from the terminal
   harbor prompt --init SHELL                  how to add it: zsh, bash, fish
                                               or starship
   harbor calendar [--program P] [--new|--off] your private calendar link (.ics)
-  harbor roadmap PROJECT [--dates|--no-dates] [--off]
-                                              publish a project's public roadmap
+  harbor roadmap PROJECT [--publish [--dates|--no-dates] [--site|--no-site]]
+                 [--off]
+                                              a project's public roadmap: read,
+                                              publish or take it down
 
   harbor init [PROJECT] [--hook]              keep a project's tasks as files in
                                               this repository (.harbor/), one
@@ -120,9 +126,12 @@ export const HELP = `harbor: Harbor from the terminal
   harbor risks [words] [--kind risk,issue,decision] [--project P] [--closed]
                                               the register, worst first
                                               (--closed adds closed ones)
-  harbor brief [--portfolio P] [--say]        the weekly brief, ready to send;
-                                              --say reads it aloud as a
-                                              shipping forecast
+  harbor brief [--portfolio P] [--all] [--say]
+                                              the weekly brief, ready to send
+                                              (--all lists every late and done
+                                              task); --say reads it aloud as a
+                                              shipping forecast (on Linux it
+                                              needs espeak-ng)
   harbor report PROGRAM                       a program's status report
   harbor export tasks PROJECT|risks|review [--all]
                                               a spreadsheet (CSV) to stdout
@@ -450,6 +459,29 @@ const DETAIL = {
     "  PROJECT is a name, a key like RR, or an id. When two projects share a",
     "  name, give the key.",
   ],
+  roadmap: [
+    "  harbor roadmap PROJECT                 reads whether it's public, and its link",
+    "  harbor roadmap PROJECT --publish       writes: publishes it, or keeps it live",
+    "                                         with any change below; the link stays",
+    "                                         the same while it's live",
+    "  harbor roadmap PROJECT --publish --dates",
+    "                                         writes: also shows the day each thing",
+    "                                         shipped (--no-dates: titles only, the",
+    "                                         default)",
+    "  harbor roadmap PROJECT --publish --site",
+    "                                         writes: also shows it at",
+    "                                         harborppm.com/roadmap, in place of any",
+    "                                         other (Harbor's own team only;",
+    "                                         --no-site, the default, takes it off)",
+    "  harbor roadmap PROJECT --off           writes: takes it down at once; the link",
+    "                                         then says it isn't published, and",
+    "                                         publishing again makes a new link",
+    "",
+    "  A visitor sees Now, Next and Shipped: task titles only, with no people,",
+    "  keys, notes, comments or due dates. Anyone with the link can open it; the",
+    "  link is long and random, so it can't be guessed. Only the harbor's owner",
+    "  can publish.",
+  ],
   forecast: [
     "  harbor forecast [--program P]          reads when each open project will",
     "                                         likely finish",
@@ -1053,6 +1085,10 @@ export async function run(argv, io = {}) {
           : harbors(r),
       );
     }
+    case "whoami": {
+      none(parse(spec()).positionals);
+      return call("list_harbors", {}, (r) => whoami(r, creds));
+    }
     case "use": {
       const { positionals } = parse({ flags: ["json"], options: [] });
       const wanted = positionals.join(" ").trim();
@@ -1203,25 +1239,40 @@ export async function run(argv, io = {}) {
     }
     case "tasks": {
       const { positionals, values, harbor } = parse(
-        spec(["late"], ["project", "assignee", "status"]),
-      );
-      return call(
-        "search_tasks",
-        {
-          harbor,
-          query: positionals.join(" ") || undefined,
-          project: values.project,
-          assignee: values.assignee,
-          status: values.status
-            ? values.status
-                .split(",")
-                .map((x) => x.trim())
-                .filter(Boolean)
-            : undefined,
-          overdue: values.late || undefined,
-        },
-        (r) => taskList(r, opts),
+        spec(["late", "all"], ["project", "assignee", "status"]),
       );
+      const args = {
+        harbor,
+        query: positionals.join(" ") || undefined,
+        project: values.project,
+        assignee: values.assignee,
+        status: values.status
+          ? values.status
+              .split(",")
+              .map((x) => x.trim())
+              .filter(Boolean)
+          : undefined,
+        overdue: values.late || undefined,
+      };
+      if (!values.all) return call("search_tasks", args, (r) => taskList(r, opts));
+      // --all pages through every match, PAGE at a time (search_tasks' most).
+      const PAGE = 50;
+      const tasks = [];
+      let first;
+      do {
+        const page = await client
+          .call("search_tasks", { ...args, limit: PAGE, offset: tasks.length })
+          .catch((err) => {
+            if (err instanceof HarborError) throw new HarborError(hint(err.message));
+            throw err;
+          });
+        first ??= page;
+        tasks.push(...(page.tasks ?? []));
+        if (!page.tasks?.length) break;
+      } while (tasks.length < first.total);
+      const result = { ...first, total: tasks.length, tasks };
+      out(asJson ? jsonText(result) : plain(taskList(result, opts)));
+      return 0;
     }
     case "show": {
       const { positionals, harbor } = parse(spec());
@@ -1349,20 +1400,28 @@ export async function run(argv, io = {}) {
     }
     case "roadmap": {
       const { positionals, values, harbor } = parse(
-        spec(["dates", "no-dates", "site", "no-site", "off"]),
+        spec(["publish", "dates", "no-dates", "site", "no-site", "off"]),
       );
       const project = text(positionals, "which project");
       if (values.dates && values["no-dates"])
         throw new HarborError("Say --dates or --no-dates, not both.");
       if (values.site && values["no-site"])
         throw new HarborError("Say --site or --no-site, not both.");
+      if (values.off && values.publish) throw new HarborError("Say --publish or --off, not both.");
+      const changes = ["dates", "no-dates", "site", "no-site"].filter((f) => values[f]);
+      if (changes.length && !values.publish) {
+        throw new HarborError(
+          `Nothing changed. Add --publish to change what the page shows: harbor roadmap "${project}" --publish ${changes.map((f) => `--${f}`).join(" ")}`,
+        );
+      }
       if (!hasFullAccess(creds)) {
-        throw new HarborError("Publishing needs full access. Run harbor login, then try again.");
+        throw new HarborError("Roadmaps need full access. Run harbor login, then try again.");
       }
       const r = await client.app({
         op: "roadmap",
         ...(harbor ? { harbor } : {}),
         project,
+        ...(values.publish ? { publish: true } : {}),
         ...(values.off ? { off: true } : {}),
         ...(values.dates || values["no-dates"] ? { showDates: Boolean(values.dates) } : {}),
         ...(values.site || values["no-site"] ? { onSite: Boolean(values.site) } : {}),
@@ -1374,7 +1433,9 @@ export async function run(argv, io = {}) {
       if (!r.url) {
         out(
           plain(
-            `${r.project} isn't published any more. Its link says the roadmap isn't published.`,
+            values.off
+              ? `${r.project} isn't published any more. Its link now says the roadmap isn't published.`
+              : `${r.project} isn't public. harbor roadmap "${r.project}" --publish publishes it.`,
           ),
         );
         return 0;
@@ -1382,7 +1443,7 @@ export async function run(argv, io = {}) {
       const shows = r.showDates ? "titles and the day each shipped" : "titles only";
       out(
         plain(
-          `${r.project}'s public roadmap (Now, Next and Shipped; ${shows}, no people):\n\n  ${r.url}${r.siteUrl ? `\n\nIt's also Harbor's own roadmap at ${r.siteUrl}.` : ""}\n\nharbor roadmap "${r.project}" --off takes it down.`,
+          `${r.project}${values.publish ? " is public" : "'s public roadmap"} (Now, Next and Shipped; ${shows}, no people):\n\n  ${r.url}${r.siteUrl ? `\n\nIt's also Harbor's own roadmap at ${r.siteUrl}.` : ""}\n\nharbor roadmap "${r.project}" --off takes it down.`,
         ),
       );
       return 0;
@@ -1500,10 +1561,13 @@ export async function run(argv, io = {}) {
       );
     }
     case "brief": {
-      const { positionals, values, harbor } = parse(spec(["say"], ["portfolio"]));
+      const { positionals, values, harbor } = parse(spec(["say", "all"], ["portfolio"]));
       none(positionals);
       if (!values.say) {
-        return call("weekly_brief", { harbor, portfolio: values.portfolio }, (r) => r.text);
+        const args = { harbor, portfolio: values.portfolio, ...(values.all ? { all: true } : {}) };
+        return call("weekly_brief", args, (r) =>
+          r.hidden ? `${r.text}\n\nharbor brief --all lists every one.` : r.text,
+        );
       }
       const result = await client
         .call("shipping_forecast", { harbor, portfolio: values.portfolio, at: localMinute() })
@@ -1511,8 +1575,13 @@ export async function run(argv, io = {}) {
           if (err instanceof HarborError) throw new HarborError(hint(err.message));
           throw err;
         });
+      // --json is for a script reading the forecast, so nothing is spoken.
+      if (asJson) {
+        out(jsonText(result));
+        return 0;
+      }
       const script = plain(result.script ?? "");
-      out(asJson ? jsonText(result) : script);
+      out(script);
       if (!(await (io.speak ?? speak)(script))) {
         throw new HarborError(
           process.platform === "linux"

package/lib/format.mjs

@@ -63,12 +63,15 @@ export function myWork(w, opts) {
 }
 
 export function taskList(r, opts) {
-  if (!r.tasks?.length) return "No tasks match.";
+  const done = r.doneMatches
+    ? `${r.doneMatches} done task${r.doneMatches === 1 ? "" : "s"} match${r.doneMatches === 1 ? "es" : ""} too; add --status done to see ${r.doneMatches === 1 ? "it" : "them"}.`
+    : "";
+  if (!r.tasks?.length) return done ? `No open tasks match. ${done}` : "No tasks match.";
   const more =
     r.total > r.tasks.length
-      ? `\n…and ${r.total - r.tasks.length} more. Narrow it with a word or --project.`
+      ? `\n…and ${r.total - r.tasks.length} more. Add --all for every one, or narrow it with a word or --project.`
       : "";
-  return r.tasks.map((t) => taskLine(t, opts)).join("\n") + more;
+  return r.tasks.map((t) => taskLine(t, opts)).join("\n") + more + (done ? `\n${done}` : "");
 }
 
 const HEALTH = { "on-track": "on track", "at-risk": "at risk", "off-track": "off track" };
@@ -166,6 +169,28 @@ export function limitsText(name, limits, tasks = {}, hidden = []) {
   return `${name}: ${capped.join(", ")}${rest}.${offNote}`;
 }
 
+/**
+ * harbor whoami: the account this machine signed in as, where, and the
+ * harbor commands use. From list_harbors (which names the account) and the
+ * saved sign-in.
+ */
+export function whoami(r, creds) {
+  const a = r.account;
+  const who = a?.name && a?.email ? `${a.name} (${a.email})` : (a?.email ?? a?.name ?? null);
+  const reading = creds.scope?.split(" ").includes("harbor:write") ? "" : ", reading only";
+  const lines = [`${who ? `Signed in as ${who}` : "Signed in"} to ${creds.server}${reading}.`];
+  const list = r.harbors ?? [];
+  const set = creds.harbor ? list.find((h) => h.id === creds.harbor) : null;
+  if (set) lines.push(`Commands use ${set.name} (harbor use).`);
+  else if (creds.harbor)
+    lines.push(`Commands use ${creds.harborName ?? creds.harbor}, which you're no longer in.`);
+  else if (list.length === 1) lines.push(`Commands use ${list[0].name}, your only harbor.`);
+  else if (list.length)
+    lines.push("No harbor set: say --harbor NAME, or set one with harbor use NAME.");
+  else lines.push("You aren't in any harbor yet. Run harbor to make one.");
+  return lines.join("\n");
+}
+
 export function harbors(r) {
   const list = r.harbors ?? [];
   if (!list.length) return "You aren't in any harbor yet. Run harbor to make one.";

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "@harborppm/cli",
-  "version": "0.38.0",
+  "version": "0.40.0",
   "description": "Harbor from the terminal: a full-screen app with everything, plus commands for scripts and agents.",
   "keywords": [
     "harbor",