@harborppm/cli 0.98.0 → 0.99.0

package/README.md

@@ -166,7 +166,7 @@ harbor project "NAME" --program P [--lead me|NAME] [--starts DATE]
                                             they really finished in that project
 harbor add "TITLE" --project P [--assignee me|NAME] [--also "NAME, NAME"] [--due DATE|pilot]
                    [--priority low|medium|high|urgent] [--status S] [--comment TEXT]
-                   [--starts DATE] [--over-limit] [--literal]
+                   [--starts DATE] [--over-limit] [--literal] [--dry-run] [--unless-exists]
                                             no TITLE: one title a line from stdin
                                             --due pilot takes the earliest day the owner's queue
                                             suggests (their open work due first, weekly pace, time
@@ -213,11 +213,19 @@ 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 messages PROJECT ["TEXT"] [--limit N] | messages PROJECT --edit "TEXT" [--message ID]
 harbor note PROJECT ["NOTE"] [--opens DATE|--milestone NAME|--off-track]
 harbor sound TASK [--answer DAYS|--ask NAMES|--settle DAYS] [--why TEXT]
 harbor soundings [PROJECT]
 harbor goals [PORTFOLIO]                    each portfolio's goals, off track first
+harbor goal "GOAL" [--title T] [--owner NAME] [--due DATE|none] [--link WORK] [--unlink WORK]
+            [--kr "KR" --at N|--target N [--start N] [--unit U]|--counts WORK]
+harbor goal "TITLE" --new [--portfolio P] [--owner NAME] [--due DATE] [--why T]
+harbor milestones [PROGRAM] [--project P] [--done]
+harbor milestone "NAME" [--program P] [--due DATE] [--rename T] [--reached|--open]
+                 [--signs-off NAME|none] [--approve|--changes NOTE]
+harbor milestone "NAME" --new --program P --due DATE
+harbor reports [DASHBOARD]                  the Reports page's dashboards, each chart as numbers
 harbor ashore [--weeks N] [--country CODES|none] [--person NAME]
 harbor limit PROJECT [COLUMN N|none]
 harbor week [--next|--last|--week DATE] [--review]
@@ -253,13 +261,13 @@ Agents on the crew: put an AI app on People with Add an agent and assign it task
 
 A task has one owner (`--assignee`), who answers for it and whose load it counts against, and anyone else on it with them (`--also "Sam, Aya"`): they see it under Also on in `harbor mine` and on Today, and count as knowing it. `harbor edit RR-4 --also none` leaves only the owner.
 
-`harbor add --project Trail --comment "From Monday's call" < list.txt` adds one task per line of the file, each with the comment (every option applies to every line); `--dry-run` says what it would add first.
+`harbor add --project Trail --comment "From Monday's call" < list.txt` adds one task per line of the file, each with the comment (every option applies to every line); `--dry-run` asks Harbor to add them on a copy it throws away, so it shows each task as it would really be (key, column, owner, priority, dates, parent, milestone), an open task that already has the title, and anything it would refuse and why; it exits 1 when something would be refused. `--unless-exists` adds a title only if the project has no open task by that name, so a retried script doesn't double up. `--json` gives `added` and `skipped` lists, each entry with its key, for one title or a hundred.
 
 `harbor add "Book the venue @Quinn by Friday !high #Website"` reads the title in plain words, as the website's New task does: it adds "Book the venue" for Quinn, due Friday, high priority, in the Website project, and says what it read. A flag wins over the words (they stay in the title), `--literal` keeps the title exactly as typed, and `--due` takes the same words (`--due "next friday"`, `--due "in two weeks"`). In the full-screen app, `n` reads a new task's title the same way.
 
 `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 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 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, off track first, with each key result's progress. `harbor goal "TITLE" --new` sets one, and `harbor goal "GOAL"` reads or changes one: `--owner`, `--due`, `--why`, `--link "Ridge Runner"` to count a program, project or task toward it, `--kr "Stores signed" --target 40` to add a number key result and `--kr "Stores signed" --at 12` to move it. `harbor milestones` lists a program's milestones soonest first, with how many of their tasks are done, who signs them off and what they wait on; `harbor milestone "NAME" --new --program P --due DATE` adds one, and `harbor milestone "NAME"` moves (`--due`), renames, ticks (`--reached`), sets who signs it off (`--signs-off`), or, if it's yours to sign, `--approve`s it or asks for `--changes`. `harbor reports` prints the Reports page's dashboards, each chart as its numbers. `harbor messages PROJECT --edit "TEXT"` fixes your latest message there. `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

@@ -5327,7 +5327,7 @@ function cascadeDelete(data, kind, id) {
 				taskIds: r.taskIds.filter((t) => !taskIds.has(t))
 			})),
 			spendEntries: (data.spendEntries ?? []).filter((e) => !projectIds.has(e.projectId)),
-			reflections: (data.reflections ?? []).filter((r) => !projectIds.has(r.projectId) && !(r.thanksFor?.kind === "milestone" && goneMilestones.has(r.thanksFor.id)))
+			reflections: (data.reflections ?? []).filter((r) => !projectIds.has(r.projectId) && !(r.programId && programIds.has(r.programId)) && !(r.thanksFor?.kind === "milestone" && goneMilestones.has(r.thanksFor.id)))
 		},
 		counts: {
 			programs: programIds.size,
@@ -10687,9 +10687,23 @@ function landfallJson(project, tasks, today, people) {
 }
 
 // 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));
+/** One conversation's messages (answers too), oldest first. */
+function messagesIn(reflections, place) {
+	return (reflections ?? []).filter((r) => inPlace(r, place)).sort(oldestFirst);
+}
+/**
+* The message an answer hangs under: the one asked for, or, for an answer
+* to an answer, that answer's own message. Null when it isn't a message in
+* the same conversation.
+*/
+function replyRoot(reflections, place, replyToId) {
+	if (!replyToId) return null;
+	const all = reflections ?? [];
+	const target = all.find((r) => r.id === replyToId && inPlace(r, place));
+	if (!target) return null;
+	if (!target.replyToId) return target.id;
+	const root = all.find((r) => r.id === target.replyToId && inPlace(r, place));
+	return root ? root.id : target.id;
 }
 /** Why a message can't be posted, or null. */
 function messageProblem(body) {
@@ -10708,25 +10722,30 @@ function mayChangeMessage(message, personId, role, action) {
 	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). A finished project's replies are left out, but a
-* mention there still reaches you: a wrap-up "thanks @Dana" is meant to.
+* What a person's Inbox says about messages since `since`: each message that
+* @mentions them, and for each conversation they've written in, the messages
+* others posted after their last one (a mention among them is already its
+* own line). An answer to one of your messages reaches you as well, even in
+* a conversation where that's all you've written. A finished project's or
+* program's chatter is left out, but a mention or an answer to you there
+* still reaches you: a wrap-up "thanks @Dana" is meant to.
 */
 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();
+	const done = /* @__PURE__ */ new Set([...data.projects.filter((p) => p.health === "done").map((p) => `project:${p.id}`), ...(data.programs ?? []).filter((p) => p.health === "done").map((p) => `program:${p.id}`)]);
+	const byPlace = /* @__PURE__ */ new Map();
+	const mine = /* @__PURE__ */ new Set();
 	for (const r of data.reflections ?? []) {
 		if (!isMessage(r)) continue;
-		const list = byProject.get(r.projectId);
+		if (r.authorId === personId) mine.add(r.id);
+		const key = placeKey(placeOf(r));
+		const list = byPlace.get(key);
 		if (list) list.push(r);
-		else byProject.set(r.projectId, [r]);
+		else byPlace.set(key, [r]);
 	}
 	const out = [];
-	for (const [projectId, list] of byProject) {
-		const finished = done.has(projectId);
-		list.sort((a, b) => a.createdAt.localeCompare(b.createdAt) || a.id.localeCompare(b.id));
+	for (const [key, list] of byPlace) {
+		const finished = done.has(key);
+		list.sort(oldestFirst);
 		let joined = false;
 		let replies = [];
 		for (const m of list) {
@@ -10744,7 +10763,8 @@ function messageLines(data, personId, since) {
 				});
 				continue;
 			}
-			if (joined && !finished) replies.push(m);
+			const toMe = m.replyToId != null && mine.has(m.replyToId);
+			if (joined && !finished || toMe) replies.push(m);
 		}
 		const latest = replies.at(-1);
 		if (latest) out.push({
@@ -10755,11 +10775,26 @@ function messageLines(data, personId, since) {
 	}
 	return out;
 }
-var MESSAGE_MAX, isMessage, messageText;
+var placeOf, placeKey, inPlace, placePath, MESSAGE_MAX, isMessage, oldestFirst, messagesOf, messageText;
 var init_project_messages = __esmMin((() => {
 	init_work();
+	placeOf = (r) => r.programId ? {
+		kind: "program",
+		id: r.programId
+	} : {
+		kind: "project",
+		id: r.projectId
+	};
+	placeKey = (p) => `${p.kind}:${p.id}`;
+	inPlace = (r, place) => isMessage(r) && (place.kind === "program" ? r.programId === place.id : !r.programId && r.projectId === place.id);
+	placePath = (p) => p.kind === "program" ? `/programs/${p.id}?view=messages` : `/projects/${p.id}?view=messages`;
 	MESSAGE_MAX = 4e3;
 	isMessage = (r) => r.kind === "message";
+	oldestFirst = (a, b) => a.createdAt.localeCompare(b.createdAt);
+	messagesOf = (reflections, projectId) => messagesIn(reflections, {
+		kind: "project",
+		id: projectId
+	});
 	messageText = (body) => body.trim().slice(0, MESSAGE_MAX);
 }));
 
@@ -11112,14 +11147,15 @@ function inboxOf(data, personId, now = clockNow()) {
 		});
 	}
 	for (const line of messageLines(data, personId, since)) {
-		const project = data.projects.find((p) => p.id === line.message.projectId);
-		if (!project) continue;
+		const place = placeOf(line.message);
+		const holder = place.kind === "program" ? data.programs.find((p) => p.id === place.id) : data.projects.find((p) => p.id === place.id);
+		if (!holder) 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`;
+		const where = `in ${holder.name}’s messages`;
 		pings.push({
 			id: `message-${line.kind}:${line.message.id}`,
 			kind: line.kind,
@@ -11127,7 +11163,7 @@ function inboxOf(data, personId, now = clockNow()) {
 			detail: snippet ? `${where} — ${snippet}` : where,
 			at: line.message.createdAt,
 			personId: line.message.authorId,
-			href: `/projects/${project.id}?view=messages`
+			href: placePath(place)
 		});
 	}
 	for (const task of data.tasks) {
@@ -22339,6 +22375,7 @@ function approvalsWaitingOn(tasks, personId) {
 // src/lib/mcp/tools.ts
 init_project_messages();
 init_subtasks();
+init_blockers();
 init_thanks();
 init_task_keys();
 init_brief();
@@ -22366,6 +22403,7 @@ init_task_people();
 init_fog();
 init_passage();
 init_board();
+init_swatches();
 init_holidays();
 init_soundings();
 /** A task's logged time for get_task: the total and the latest entries. */
@@ -22645,15 +22683,57 @@ function overdue(t, today) {
 	const due = dayOf(t.dueDate);
 	return isOpen(t) && due != null && due < today;
 }
-function taskLine(t, people, projects, all) {
+/**
+* The board's own name for a task's column when its project renamed it
+* ("In progress" for doing), so a status reads as the board says it.
+*/
+function columnName(data, t) {
+	const label = boardConfigOf(data, t.projectId).columns.find((c) => c.status === t.status)?.label.trim();
+	return label && label !== TASK_STATUS_LABEL[t.status] ? label : null;
+}
+/**
+* A milestone as agents see it: its program, due day, whether it's reached or
+* late, the tasks tied to it, its sign-off and the projects it waits on.
+*/
+function milestoneOut(data, m, today, progress = milestoneProgress(data)) {
+	const people = byId(data.people);
+	const projects = byId(data.projects);
+	const p = progress.get(m.id);
+	const due = dayOf(m.dueDate);
+	const waits = blockerIds(m).map((id) => projects.get(id)).filter((x) => Boolean(x));
+	return {
+		id: m.id,
+		name: m.name,
+		program: data.programs.find((x) => x.id === m.programId)?.name ?? null,
+		due,
+		reached: m.done,
+		...!m.done && due && due < today ? { late: true } : {},
+		...p ? { tasks: {
+			done: p.done,
+			total: p.total
+		} } : {},
+		...m.approverId ? { signOff: {
+			by: nameOf$2(people, m.approverId),
+			status: m.approvalStatus ?? "pending",
+			...m.approvalNote ? { note: m.approvalNote } : {}
+		} } : {},
+		...waits.length ? { waitsOn: waits.map((x) => ({
+			project: x.name,
+			done: x.health === "done"
+		})) } : {}
+	};
+}
+function taskLine(t, people, projects, all, data) {
 	const waitingOn = blockersOf(t, all).filter(isOpen).length;
 	const project = projects.get(t.projectId);
 	const key = taskKey(t, project);
+	const column = data ? columnName(data, t) : null;
 	return {
 		id: t.id,
 		...key ? { key } : {},
 		title: t.title,
 		status: t.status,
+		...column ? { column } : {},
 		position: boardPositions(all).get(t.id) ?? null,
 		priority: t.priority,
 		due: dayOf(t.dueDate),
@@ -22703,10 +22783,10 @@ function weekOut(data, personId, monday) {
 			tasks: d.items.map((item) => ({
 				placement: item.id,
 				hours: item.hours,
-				...taskLine(item.task, people, projects, data.tasks)
+				...taskLine(item.task, people, projects, data.tasks, data)
 			}))
 		})),
-		unplanned: plan.unplanned.slice(0, 200).map((t) => taskLine(t, people, projects, data.tasks)),
+		unplanned: plan.unplanned.slice(0, 200).map((t) => taskLine(t, people, projects, data.tasks, data)),
 		unplannedCount: plan.unplanned.length,
 		inReviewCount: plan.inReview.length,
 		review: {
@@ -22715,8 +22795,8 @@ function weekOut(data, personId, monday) {
 			done: review.doneCount,
 			plannedHours: review.plannedHours,
 			doneHours: review.doneHours,
-			stillOpen: review.planned.filter((p) => !p.done).map((p) => taskLine(p.task, people, projects, data.tasks)),
-			alsoDone: review.alsoDone.map((t) => taskLine(t, people, projects, data.tasks))
+			stillOpen: review.planned.filter((p) => !p.done).map((p) => taskLine(p.task, people, projects, data.tasks, data)),
+			alsoDone: review.alsoDone.map((t) => taskLine(t, people, projects, data.tasks, data))
 		}
 	};
 }
@@ -22891,11 +22971,13 @@ const HARBOR_TOOLS = [
 						id: pg.id,
 						name: pg.name,
 						health: pg.health,
+						starts: dayOf(pg.startDate),
 						ends: dayOf(pg.endDate),
 						projects: (projectsByProgram.get(pg.id) ?? []).map((pj) => ({
 							id: pj.id,
 							name: pj.name,
 							health: pj.health,
+							starts: dayOf(pj.startDate),
 							ends: dayOf(pj.endDate),
 							openTasks: openByProject.get(pj.id)?.open ?? 0,
 							lateTasks: openByProject.get(pj.id)?.late ?? 0
@@ -23007,7 +23089,7 @@ const HARBOR_TOOLS = [
 			const tasks = data.tasks.filter((t) => t.projectId === p.id);
 			const byStatus = Object.fromEntries(STATUSES.map((s) => [s, 0]));
 			for (const t of tasks) byStatus[t.status] += 1;
-			const late = tasks.filter((t) => overdue(t, today)).sort((a, b) => (a.dueDate ?? "").localeCompare(b.dueDate ?? "")).slice(0, 10).map((t) => taskLine(t, people, projects, data.tasks));
+			const late = tasks.filter((t) => overdue(t, today)).sort((a, b) => (a.dueDate ?? "").localeCompare(b.dueDate ?? "")).slice(0, 10).map((t) => taskLine(t, people, projects, data.tasks, data));
 			const waitsOn = (p.blockedByIds ?? (p.blockedById ? [p.blockedById] : [])).map((id) => projects.get(id)).filter((x) => Boolean(x)).map((x) => ({
 				id: x.id,
 				name: x.name,
@@ -23109,7 +23191,7 @@ const HARBOR_TOOLS = [
 			return {
 				...doneMatches ? { doneMatches } : {},
 				total: list.length,
-				tasks: list.slice(input.offset, input.offset + input.limit).map((t) => taskLine(t, people, projects, data.tasks))
+				tasks: list.slice(input.offset, input.offset + input.limit).map((t) => taskLine(t, people, projects, data.tasks, data))
 			};
 		}
 	}),
@@ -23151,6 +23233,7 @@ const HARBOR_TOOLS = [
 				title: t.title,
 				description: t.description,
 				status: t.status,
+				...((c) => c ? { column: c } : {})(columnName(data, t)),
 				position: boardPositions(data.tasks).get(t.id) ?? null,
 				priority: t.priority,
 				due: dayOf(t.dueDate),
@@ -23275,8 +23358,8 @@ const HARBOR_TOOLS = [
 				you: mine.name,
 				openTasks: open.length,
 				late: open.filter((t) => overdue(t, today)).length,
-				tasks: open.slice(0, input.limit).map((t) => taskLine(t, people, projects, data.tasks)),
-				alsoOn: tasksAlsoOn(data, mine.id).sort((a, b) => (a.dueDate ?? "9999").localeCompare(b.dueDate ?? "9999")).slice(0, input.limit).map((t) => taskLine(t, people, projects, data.tasks)),
+				tasks: open.slice(0, input.limit).map((t) => taskLine(t, people, projects, data.tasks, data)),
+				alsoOn: tasksAlsoOn(data, mine.id).sort((a, b) => (a.dueDate ?? "9999").localeCompare(b.dueDate ?? "9999")).slice(0, input.limit).map((t) => taskLine(t, people, projects, data.tasks, data)),
 				waitingOnYou: waitingOnYou.slice(0, 20),
 				raid,
 				soundingsToAnswer: soundingsWaitingOn(data, mine.id, ctx.now).map((t) => ({
@@ -23741,6 +23824,30 @@ const HARBOR_TOOLS = [
 			};
 		}
 	}),
+	tool({
+		name: "list_milestones",
+		title: "Milestones",
+		description: "A program's milestones (or every program's, or the program of one project), soonest first: each with its due day, whether it's reached or late, how many of the tasks tied to it are done, its sign-off (who signs it off, and pending, approved or changes_requested with their note) and the projects it waits on. Reached ones only with done. set_milestone adds or changes one." + DATA_NOTE,
+		input: object({
+			harbor: harborArg,
+			program: string().min(1).max(200).optional().describe("Program id or name."),
+			project: string().min(1).max(200).optional().describe("Project id or name: its program's milestones."),
+			done: boolean().default(false).describe("Include milestones already reached.")
+		}),
+		run: (ctx, input) => {
+			const { data } = ctx;
+			const today = todayISO(ctx.now);
+			const programId = input.project ? findOne(data.projects, input.project, "project").programId : input.program ? findOne(data.programs, input.program, "program").id : null;
+			const all = data.milestones.filter((m) => !programId || m.programId === programId).sort((a, b) => (a.dueDate ?? "").localeCompare(b.dueDate ?? "") || a.name.localeCompare(b.name));
+			const shown = input.done ? all : all.filter((m) => !m.done);
+			const progress = milestoneProgress(data);
+			return {
+				...programId ? { program: data.programs.find((p) => p.id === programId)?.name } : {},
+				milestones: shown.map((m) => milestoneOut(data, m, today, progress)),
+				...shown.length < all.length ? { reachedHidden: all.length - shown.length } : {}
+			};
+		}
+	}),
 	tool({
 		name: "list_messages",
 		title: "A project's messages",
@@ -24195,7 +24302,7 @@ const HARBOR_TOOLS = [
 				inFog: fog.length,
 				fogAfterDays: 21,
 				tasks: fog.slice(input.offset, input.offset + input.limit).map((f) => ({
-					...taskLine(f.task, people, projects, data.tasks),
+					...taskLine(f.task, people, projects, data.tasks, data),
 					untouchedDays: f.days,
 					untouched: untouchedText(f.days),
 					thick: f.level === "thick",
@@ -25033,6 +25140,7 @@ function sessionSlice({ set, get, write }) {
 		}
 	};
 }
+var ACTIVITY_KEPT;
 var init_session = __esmMin((() => {
 	init_board();
 	init_derived_health();
@@ -25044,6 +25152,7 @@ var init_session = __esmMin((() => {
 	init_view_only();
 	init_fog();
 	init_format();
+	ACTIVITY_KEPT = 40;
 }));
 
 // src/lib/first-week.ts
@@ -26506,6 +26615,28 @@ var init_raid_history = __esmMin((() => {}));
 
 // src/lib/slices/milestones-raid.ts
 function milestonesRaidSlice({ get, write }) {
+	/** A new message in one conversation, or an answer under one of its messages. */
+	const post = (place, name, body, replyToId) => {
+		const s = get();
+		if (messageProblem(body)) return null;
+		const root = replyRoot(s.reflections, place, replyToId);
+		const me = s.currentUserId;
+		const text = messageText(body);
+		const row = {
+			id: uid("msg"),
+			projectId: place.kind === "project" ? place.id : "",
+			...place.kind === "program" ? { programId: place.id } : {},
+			kind: "message",
+			authorId: me,
+			body: text,
+			createdAt: stamp(),
+			mentionedIds: messageMentions(text, s.people, me),
+			...root ? { replyToId: root } : {}
+		};
+		write({ reflections: [...s.reflections ?? [], row] });
+		get().log(`${root ? "replied" : "wrote"} in ${name}’s messages`, placePath(place));
+		return row.id;
+	};
 	return {
 		toggleMilestone: (id) => {
 			if (get().milestones.find((m) => m.id === id)?.approverId) return;
@@ -26811,25 +26942,21 @@ 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);
+		postMessage: (projectId, body, replyToId) => {
+			const project = get().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;
+			return post({
+				kind: "project",
+				id: projectId
+			}, project.name, body, replyToId);
+		},
+		postProgramMessage: (programId, body, replyToId) => {
+			const program = get().programs.find((p) => p.id === programId);
+			if (!program) return null;
+			return post({
+				kind: "program",
+				id: programId
+			}, program.name, body, replyToId);
 		},
 		editMessage: (id, body) => {
 			const s = get();
@@ -28312,6 +28439,11 @@ var init_shore = __esmMin((() => {
 			kind: "notes",
 			label: "Notes for later, when they open",
 			hint: "A note someone left on one of its projects, posted the day it opens."
+		},
+		{
+			kind: "messages",
+			label: "Messages",
+			hint: "Each new message and reply in the program’s messages and its projects’, with a link to answer in Harbor."
 		}
 	];
 }));
@@ -28395,6 +28527,7 @@ function memoryHarbor(start, opts) {
 						forecast: false,
 						health: false,
 						notes: false,
+						messages: false,
 						...row,
 						...ask.url ? { url } : {}
 					};
@@ -28409,6 +28542,7 @@ function memoryHarbor(start, opts) {
 					forecast: row.forecast,
 					health: row.health,
 					notes: row.notes,
+					messages: row.messages,
 					failures: 0
 				} : null;
 				if (ask.test) {
@@ -34749,6 +34883,7 @@ function sinceText(iso, now) {
 
 // src/tui/watch-run.ts
 init_clock();
+init_session();
 init_plain();
 init_repo_sync();
 init_store();
@@ -34815,7 +34950,18 @@ async function watchOn(opts) {
 			if (earlier.length === 0) out(dim(since ? `Nothing since ${since}.` : "Nothing logged yet."));
 			else out(dim(since ? `Since ${since}:` : "Lately:"));
 		}
+		const log = store.getState().activity;
+		const oldest = log.reduce((o, a) => !o || a.at < o ? a.at : o, null);
+		const cut = oldest && log.length >= 40 && (!opts.since || opts.since < oldest) ? oldest : null;
+		const capped = !opts.since && !project && log.length > earlier.length;
+		if (opts.json) {
+			if (cut) out(JSON.stringify({
+				note: `Only the latest ${40} changes are kept, back to ${cut}; History on the website has every one.`,
+				keptFrom: cut
+			}));
+		} else if (opts.since && cut) out(dim(`Only the latest ${40} changes are kept, back to ${wallClock(new Date(cut)).slice(0, 16).replace("T", " ")}; History on the website has every one.`));
 		for (const e of earlier) print(e.line, new Date(e.at), true);
+		if (opts.once && capped && !opts.json) out(dim(`The latest ${earlier.length} of ${log.length}; --since TIME shows every one since then.`));
 		if (opts.once) return;
 		if (!opts.json && earlier.length > 0) out(dim("New changes print below as they land."));
 		const narrow = (d) => project ? {