@harborppm/cli 0.92.0 → 0.93.0

package/README.md

@@ -213,6 +213,7 @@ harbor import FILE [--project P] [--portfolio P] [--no-people]
                                             add tasks from a CSV file
 harbor premortem PROJECT ["WHAT WENT WRONG"] [--start]
 harbor voyage PROJECT ["YOUR LINE"]
+harbor messages PROJECT ["TEXT"] [--limit N]
 harbor note PROJECT ["NOTE"] [--opens DATE|--milestone NAME|--off-track]
 harbor sound TASK [--answer DAYS|--ask NAMES|--settle DAYS] [--why TEXT]
 harbor soundings [PROJECT]
@@ -258,7 +259,7 @@ A task has one owner (`--assignee`), who answers for it and whose load it counts
 
 `harbor limit RR` prints how many tasks each of a board's columns takes at once; `harbor limit RR doing 8` changes one (1 to 20, or `none` for no limit), if you own the harbor. `harbor projects --json` carries each board's `limits` too.
 
-`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 sound TASK --ask crew` takes a sounding: it asks you, the task's owner and whoever has open work on its project how many working days the task will take (`--ask "Sam,Priya"` picks who). Each person answers alone with `harbor sound TASK --answer 4 --why "…"`, and nobody sees the others' numbers until everyone has; then `harbor sound TASK` shows the spread, an estimate when the guesses are close, or "talk about this first" when they're far apart, and `--settle DAYS` records what you agreed. `harbor soundings` lists them, the ones waiting on your answer first. `harbor goals` lists each portfolio's goals (set on the portfolio's page on the website), off track first, with each key result's progress. `harbor ashore` lists the public holidays and time away in the next eight weeks; `--country US,GB` sets whose holidays the harbor takes and `--person NAME --country DE` one person's own, which the forecast and the weekly load then count as days off.
+`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 messages PROJECT` reads a project's Messages tab, one conversation for the whole project, and `harbor messages PROJECT "TEXT"` writes to it; `@Name` sends it to that person's Inbox. `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 sound TASK --ask crew` takes a sounding: it asks you, the task's owner and whoever has open work on its project how many working days the task will take (`--ask "Sam,Priya"` picks who). Each person answers alone with `harbor sound TASK --answer 4 --why "…"`, and nobody sees the others' numbers until everyone has; then `harbor sound TASK` shows the spread, an estimate when the guesses are close, or "talk about this first" when they're far apart, and `--settle DAYS` records what you agreed. `harbor soundings` lists them, the ones waiting on your answer first. `harbor goals` lists each portfolio's goals (set on the portfolio's page on the website), off track first, with each key result's progress. `harbor ashore` lists the public holidays and time away in the next eight weeks; `--country US,GB` sets whose holidays the harbor takes and `--person NAME --country DE` one person's own, which the forecast and the weekly load then count as days off.
 
 `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.
 

package/dist/app.mjs

@@ -10003,7 +10003,83 @@ function HistoryView({ active, width, height, go }) {
 	});
 }
 
+// src/lib/project-messages.ts
+/** This project's messages, oldest first. */
+function messagesOf(reflections, projectId) {
+	return (reflections ?? []).filter((r) => r.projectId === projectId && isMessage(r)).sort((a, b) => a.createdAt.localeCompare(b.createdAt) || a.id.localeCompare(b.id));
+}
+/** Why a message can't be posted, or null. */
+function messageProblem(body) {
+	const t = body.trim();
+	if (!t) return "Write something first.";
+	if (t.length > 4e3) return `Keep it under ${MESSAGE_MAX.toLocaleString("en")} characters.`;
+	return null;
+}
+/** Who a message @mentions, leaving out its writer. */
+function messageMentions(body, people, authorId) {
+	return parseMentions(body, people).filter((id) => id !== authorId);
+}
+/** Whether someone may change or delete a message: its writer, or the harbor's owner (delete only). */
+function mayChangeMessage(message, personId, role, action) {
+	if (message.authorId === personId) return true;
+	return action === "delete" && role === "owner";
+}
+/**
+* What a person's Inbox says about project messages since `since`: each
+* message that @mentions them, and for each project they've written in, the
+* messages others posted after their last one (a mention among them is
+* already its own line). Projects that are finished are left out.
+*/
+function messageLines(data, personId, since) {
+	const done = new Set(data.projects.filter((p) => p.health === "done").map((p) => p.id));
+	const byProject = /* @__PURE__ */ new Map();
+	for (const r of data.reflections ?? []) {
+		if (!isMessage(r) || done.has(r.projectId)) continue;
+		const list = byProject.get(r.projectId);
+		if (list) list.push(r);
+		else byProject.set(r.projectId, [r]);
+	}
+	const out = [];
+	for (const list of byProject.values()) {
+		list.sort((a, b) => a.createdAt.localeCompare(b.createdAt) || a.id.localeCompare(b.id));
+		let joined = false;
+		let replies = [];
+		for (const m of list) {
+			if (m.authorId === personId) {
+				joined = true;
+				replies = [];
+				continue;
+			}
+			if (m.createdAt < since) continue;
+			if ((m.mentionedIds ?? []).includes(personId)) {
+				out.push({
+					kind: "mention",
+					message: m,
+					authorIds: [m.authorId]
+				});
+				continue;
+			}
+			if (joined) replies.push(m);
+		}
+		const latest = replies.at(-1);
+		if (latest) out.push({
+			kind: "reply",
+			message: latest,
+			authorIds: [...new Set(replies.map((m) => m.authorId))]
+		});
+	}
+	return out;
+}
+var MESSAGE_MAX, isMessage, messageText;
+var init_project_messages = __esmMin((() => {
+	init_work();
+	MESSAGE_MAX = 4e3;
+	isMessage = (r) => r.kind === "message";
+	messageText = (body) => body.trim().slice(0, MESSAGE_MAX);
+}));
+
 // src/lib/read-marks.ts
+init_project_messages();
 /**
 * Inbox read marks. A harbor keeps one list of them (`readPingIds`), shared
 * by everyone in it, so each mark names whose it is: reading a mention that
@@ -10313,6 +10389,25 @@ function inboxOf(data, personId, now = clockNow()) {
 			href: `/projects/${task.projectId}`
 		});
 	}
+	for (const line of messageLines(data, personId, since)) {
+		const project = data.projects.find((p) => p.id === line.message.projectId);
+		if (!project) continue;
+		const names = line.authorIds.map((id) => {
+			const who = data.people.find((p) => p.id === id);
+			return who ? firstName$3(who.name) : "Someone";
+		});
+		const snippet = excerpt(line.message.body);
+		const where = `in ${project.name}’s messages`;
+		pings.push({
+			id: `message-${line.kind}:${line.message.id}`,
+			kind: line.kind,
+			title: line.kind === "mention" ? `${names[0]} mentioned you` : `${listNames(names)} wrote back`,
+			detail: snippet ? `${where} — ${snippet}` : where,
+			at: line.message.createdAt,
+			personId: line.message.authorId,
+			href: `/projects/${project.id}?view=messages`
+		});
+	}
 	for (const task of data.tasks) {
 		if (task.assignedBy !== personId || !task.assigneeId || task.assigneeId === personId) continue;
 		if (task.status !== "done" || !task.completedAt || task.completedAt < since) continue;
@@ -21071,6 +21166,7 @@ function approvalsWaitingOn(tasks, personId) {
 }
 
 // src/lib/mcp/tools.ts
+init_project_messages();
 init_subtasks();
 init_thanks();
 init_task_keys();
@@ -22466,6 +22562,36 @@ const HARBOR_TOOLS = [
 			};
 		}
 	}),
+	tool({
+		name: "list_messages",
+		title: "A project's messages",
+		description: "The conversation on a project's Messages tab, for what isn't about one task: each message with who wrote it, when, whether it was edited, and who it @mentions, oldest first (the newest `limit`, default 50; more says how many earlier ones were left out). post_message writes one." + DATA_NOTE,
+		input: object({
+			harbor: harborArg,
+			project: string().min(1).max(200).describe("Project id or name."),
+			limit: number().int().min(1).max(500).optional()
+		}),
+		run: (ctx, input) => {
+			const { data } = ctx;
+			const p = findOne(data.projects, input.project, "project");
+			const people = byId(data.people);
+			const all = messagesOf(data.reflections, p.id);
+			const limit = input.limit ?? 50;
+			const shown = all.slice(-limit);
+			return {
+				project: p.name,
+				messages: shown.map((m) => ({
+					id: m.id,
+					from: nameOf$2(people, m.authorId),
+					at: m.createdAt,
+					...m.editedAt ? { edited: m.editedAt } : {},
+					body: m.body,
+					...(m.mentionedIds ?? []).length ? { mentions: (m.mentionedIds ?? []).map((id) => nameOf$2(people, id)) } : {}
+				})),
+				...all.length > shown.length ? { more: all.length - shown.length } : {}
+			};
+		}
+	}),
 	tool({
 		name: "list_soundings",
 		title: "Soundings",
@@ -25372,6 +25498,48 @@ function milestonesRaidSlice({ get, write }) {
 			write({ reflections: [...s.reflections ?? [], row] });
 			return row.id;
 		},
+		postMessage: (projectId, body) => {
+			const s = get();
+			if (messageProblem(body)) return null;
+			const project = s.projects.find((p) => p.id === projectId);
+			if (!project) return null;
+			const me = s.currentUserId;
+			const text = messageText(body);
+			const row = {
+				id: uid("msg"),
+				projectId,
+				kind: "message",
+				authorId: me,
+				body: text,
+				createdAt: stamp(),
+				mentionedIds: messageMentions(text, s.people, me)
+			};
+			write({ reflections: [...s.reflections ?? [], row] });
+			get().log(`wrote in ${project.name}’s messages`, `/projects/${projectId}?view=messages`);
+			return row.id;
+		},
+		editMessage: (id, body) => {
+			const s = get();
+			const all = s.reflections ?? [];
+			const row = all.find((r) => r.id === id && isMessage(r));
+			if (!row || !mayChangeMessage(row, s.currentUserId, s.myRole, "edit")) return;
+			if (messageProblem(body)) return;
+			const text = messageText(body);
+			if (text === row.body) return;
+			write({ reflections: all.map((r) => r.id === id ? {
+				...r,
+				body: text,
+				mentionedIds: messageMentions(text, s.people, r.authorId),
+				editedAt: stamp()
+			} : r) });
+		},
+		deleteMessage: (id) => {
+			const s = get();
+			const all = s.reflections ?? [];
+			const row = all.find((r) => r.id === id && isMessage(r));
+			if (!row || !mayChangeMessage(row, s.currentUserId, s.myRole, "delete")) return;
+			write({ reflections: all.filter((r) => r.id !== id) });
+		},
 		writeVoyageLine: (projectId, body) => {
 			const text = body.trim().slice(0, 600);
 			const me = get().currentUserId;
@@ -25465,6 +25633,7 @@ var init_milestones_raid = __esmMin((() => {
 	init_raid_history();
 	init_passage();
 	init_format();
+	init_project_messages();
 	init_utils();
 	init_shared();
 }));

package/lib/cli.mjs

@@ -33,6 +33,7 @@ import {
   myWork,
   premortemText,
   notesText,
+  messagesText,
   charterText,
   daysText,
   soundingText,
@@ -251,6 +252,9 @@ export const HELP = `harbor: Harbor from the terminal
                                               answer or read it
   harbor voyage PROJECT ["YOUR LINE"]         a Done project's voyage log, and
                                               your line in it
+  harbor messages PROJECT ["TEXT"] [--limit N]
+                                              a project's messages, or write
+                                              one (@Name tells them)
   harbor charter PROJECT [--why T] [--in T] [--out T] [--done-when T]
                          [--calls NAME]
                                               a project's five-line charter
@@ -1270,6 +1274,14 @@ const DETAIL = {
     "  it explains. The weekly brief names projects that grew a lot since",
     "  their baseline.",
   ],
+  messages: [
+    "  harbor messages PROJECT                reads a project's Messages tab",
+    '  harbor messages PROJECT "TEXT"         writes: posts to everyone on it',
+    "",
+    "  One conversation for the whole project, for what isn't about one task;",
+    "  harbor comment TASK is for that. @Name sends it to that person's Inbox.",
+    "  Reading shows the newest 50, oldest first; --limit N shows up to 500.",
+  ],
   voyage: [
     "  harbor voyage PROJECT                  reads a Done project's voyage log",
     '  harbor voyage PROJECT "YOUR LINE"      writes: adds or changes your line in it',
@@ -3458,6 +3470,29 @@ export async function run(argv, io = {}) {
       }
       return call("get_voyage_log", { harbor, project }, voyageText, voyageForTerminal);
     }
+    case "messages": {
+      const { positionals, values, harbor } = parse(spec([], ["limit"]));
+      const [project, ...words] = positionals;
+      if (!project)
+        throw new HarborError(
+          'Give a project, and a message if you\'re writing one: harbor messages "NAME" "TEXT".',
+        );
+      const body = words.join(" ").trim();
+      if (body) {
+        if (values.limit)
+          throw new HarborError("--limit is for reading; leave it off when you write.");
+        return call(
+          "post_message",
+          { harbor, project, body },
+          (r) =>
+            `Posted in ${r.posted.project}'s messages${r.mentioned?.length ? `; told ${r.mentioned.join(", ")}` : ""}.`,
+        );
+      }
+      const limit = values.limit ? Number(values.limit) : undefined;
+      if (limit !== undefined && (!Number.isInteger(limit) || limit < 1 || limit > 500))
+        throw new HarborError("--limit is a whole number from 1 to 500.");
+      return call("list_messages", { harbor, project, ...(limit ? { limit } : {}) }, messagesText);
+    }
     case "watch": {
       const { positionals, values, harbor } = parse(spec(["bell", "once"], ["project", "since"]));
       none(positionals);

package/lib/format.mjs

@@ -1295,3 +1295,22 @@ export function goalsText(r) {
   }
   return lines.join("\n");
 }
+
+/** A project's Messages tab, as list_messages answers it: oldest first, one block a message. */
+export function messagesText(r) {
+  const list = r.messages ?? [];
+  if (!list.length)
+    return `No messages on ${r.project} yet. harbor messages "${r.project}" "TEXT" writes the first.`;
+  const head = r.more
+    ? [
+        `${r.more} earlier ${r.more === 1 ? "message" : "messages"} left out (--limit N shows more).`,
+      ]
+    : [];
+  return [
+    ...head,
+    ...list.map(
+      (m) =>
+        `${m.from ?? "Someone"} · ${m.at.slice(0, 16).replace("T", " ")}${m.edited ? " (edited)" : ""}\n  ${m.body.replace(/\n/g, "\n  ")}`,
+    ),
+  ].join("\n\n");
+}

package/package.json

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