dw-mc 0.5.1 → 0.6.0

package/dist/bin.js

@@ -708,6 +708,92 @@ const tidy = Effect.fn("store.tidy")(function* (directory, upTo) {
 	}
 });
 //#endregion
+//#region src/adapters/picker.ts
+/**
+* Turns quitting into an answer rather than a failure.
+*
+* Bailing out of a prompt gives `None`, so no caller has to catch an error to
+* learn that I walked away. The prompt itself decides what a `Some` carries.
+*/
+const orNone = (prompt) => Effect.catchTag(prompt, "QuitError", () => Effect.succeedNone);
+/**
+* What a prompt looks like in this tool: the marker the rows already use, and
+* the same colour for the choice I am standing on.
+*
+* It is set here rather than at each prompt, because this module is the only
+* thing that opens one and four prompts that themed themselves would be four
+* looks.
+*/
+const theme = (paint) => paint === plain ? {
+	prefix: "▸",
+	pointer: "●"
+} : {
+	prefix: "▸",
+	pointer: "●",
+	primaryColor: "cyan",
+	mutedColor: "gray"
+};
+/**
+* What the keyboard does, said under the question.
+*
+* It rides in the message rather than being printed above the prompt, so it
+* leaves with the prompt: a hint that outlives the answer is scrollback I did
+* not ask for.
+*/
+const moves = "↑↓ move · enter choose · q quit";
+const asked$1 = (paint, message) => `${message}\n${paint.dim(moves)}`;
+/** Asks which one of `choices` to act on. */
+const pick = (message, choices) => Effect.flatMap(Paint, (paint) => orNone(Effect.asSome(Prompt.Select({
+	message: asked$1(paint, message),
+	choices,
+	theme: theme(paint)
+}))));
+/**
+* Asks which of `choices` to act on, as many as I like.
+*
+* Nothing is selected to begin with, so what reaches the caller is what I
+* picked rather than what I failed to unpick. Quitting is not the same as
+* picking nothing: it gives `None`.
+*/
+const choose = (message, choices) => Effect.flatMap(Paint, (paint) => orNone(Effect.asSome(Prompt.MultiSelect({
+	message: `${message}\n${paint.dim("↑↓ move · space pick · enter confirm · q quit")}`,
+	choices,
+	theme: theme(paint)
+}))));
+/**
+* Asks a yes-or-no question about something that cannot be taken back.
+*
+* It starts on no, and walking away is no as well: the answer this returns is
+* the one I typed, and every other way out of the prompt leaves the thing
+* undone. A confirmation that defaulted to yes would be one keystroke, which is
+* exactly what it exists to stop being.
+*/
+const confirm = (message) => Effect.flatMap(Paint, (paint) => Effect.map(orNone(Effect.asSome(Prompt.Confirm({
+	message,
+	initial: false,
+	theme: theme(paint)
+}))), Option.getOrElse(() => false)));
+/**
+* Asks for a line of prose, where having nothing to say is the ordinary answer.
+*
+* An empty line is no note, and that is not a failure: the prompt is optional
+* by design. Quitting is the one thing it does not swallow. Ctrl-C part way
+* through a list of notes means I want out of the whole command, and a prompt
+* that turned it into "no note" would walk me through the rest of the list and
+* then act on findings I was no longer sure about.
+*/
+const note = (message) => Effect.map(Prompt.String({ message }), (text) => text.trim() === "" ? Option.none() : Option.some(text.trim()));
+/**
+* How wide the screen is, or zero where there is no screen to measure.
+*
+* A prompt has to fit its row on one line: a row that wraps takes the list's
+* alignment with it. Nothing is piping into a prompt, so zero means the writing
+* is going somewhere that does not wrap either.
+*/
+const width = Effect.gen(function* () {
+	return yield* (yield* Terminal.Terminal).columns;
+});
+//#endregion
 //#region src/adapters/heartbeat.ts
 /** The frames of the spinner, in the order they turn. */
 const frames = [
@@ -1373,92 +1459,6 @@ const prune = Effect.fn("git.prune")(function* (clone) {
 	]));
 });
 //#endregion
-//#region src/adapters/picker.ts
-/**
-* Turns quitting into an answer rather than a failure.
-*
-* Bailing out of a prompt gives `None`, so no caller has to catch an error to
-* learn that I walked away. The prompt itself decides what a `Some` carries.
-*/
-const orNone = (prompt) => Effect.catchTag(prompt, "QuitError", () => Effect.succeedNone);
-/**
-* What a prompt looks like in this tool: the marker the rows already use, and
-* the same colour for the choice I am standing on.
-*
-* It is set here rather than at each prompt, because this module is the only
-* thing that opens one and four prompts that themed themselves would be four
-* looks.
-*/
-const theme = (paint) => paint === plain ? {
-	prefix: "▸",
-	pointer: "●"
-} : {
-	prefix: "▸",
-	pointer: "●",
-	primaryColor: "cyan",
-	mutedColor: "gray"
-};
-/**
-* What the keyboard does, said under the question.
-*
-* It rides in the message rather than being printed above the prompt, so it
-* leaves with the prompt: a hint that outlives the answer is scrollback I did
-* not ask for.
-*/
-const moves = "↑↓ move · enter choose · q quit";
-const asked$1 = (paint, message) => `${message}\n${paint.dim(moves)}`;
-/** Asks which one of `choices` to act on. */
-const pick = (message, choices) => Effect.flatMap(Paint, (paint) => orNone(Effect.asSome(Prompt.Select({
-	message: asked$1(paint, message),
-	choices,
-	theme: theme(paint)
-}))));
-/**
-* Asks which of `choices` to act on, as many as I like.
-*
-* Nothing is selected to begin with, so what reaches the caller is what I
-* picked rather than what I failed to unpick. Quitting is not the same as
-* picking nothing: it gives `None`.
-*/
-const choose = (message, choices) => Effect.flatMap(Paint, (paint) => orNone(Effect.asSome(Prompt.MultiSelect({
-	message: `${message}\n${paint.dim("↑↓ move · space pick · enter confirm · q quit")}`,
-	choices,
-	theme: theme(paint)
-}))));
-/**
-* Asks a yes-or-no question about something that cannot be taken back.
-*
-* It starts on no, and walking away is no as well: the answer this returns is
-* the one I typed, and every other way out of the prompt leaves the thing
-* undone. A confirmation that defaulted to yes would be one keystroke, which is
-* exactly what it exists to stop being.
-*/
-const confirm = (message) => Effect.flatMap(Paint, (paint) => Effect.map(orNone(Effect.asSome(Prompt.Confirm({
-	message,
-	initial: false,
-	theme: theme(paint)
-}))), Option.getOrElse(() => false)));
-/**
-* Asks for a line of prose, where having nothing to say is the ordinary answer.
-*
-* An empty line is no note, and that is not a failure: the prompt is optional
-* by design. Quitting is the one thing it does not swallow. Ctrl-C part way
-* through a list of notes means I want out of the whole command, and a prompt
-* that turned it into "no note" would walk me through the rest of the list and
-* then act on findings I was no longer sure about.
-*/
-const note = (message) => Effect.map(Prompt.String({ message }), (text) => text.trim() === "" ? Option.none() : Option.some(text.trim()));
-/**
-* How wide the screen is, or zero where there is no screen to measure.
-*
-* A prompt has to fit its row on one line: a row that wraps takes the list's
-* alignment with it. Nothing is piping into a prompt, so zero means the writing
-* is going somewhere that does not wrap either.
-*/
-const width = Effect.gen(function* () {
-	return yield* (yield* Terminal.Terminal).columns;
-});
-//#endregion
 //#region src/cli/table.ts
 /**
 * The rows of a table, padded so the columns line up and with the trailing
@@ -1545,7 +1545,7 @@ const plan = (inventory) => {
 	};
 };
 /** What the whole state directory weighs: the clones, the checkouts and the records. */
-const everything = (inventory) => sum([
+const everything$1 = (inventory) => sum([
 	...inventory.clones.map((it) => it.size),
 	...inventory.cuttings.map((it) => it.size),
 	inventory.records.size
@@ -1772,6 +1772,10 @@ const PrView = Schema.fromJsonString(Schema.Struct({
 	reviewDecision: Schema.String,
 	statusCheckRollup: Schema.NullOr(Schema.Array(CheckEntry))
 }));
+/**
+* The fields one `gh pr view` asks for, named so a test can spell the vector it
+* expects without copying the list and watching it drift.
+*/
 const viewFields = "number,title,url,isDraft,headRefOid,headRefName,baseRefName,author,isCrossRepository,mergeable,reviewDecision,statusCheckRollup";
 /**
 * Everything about one pull request that arrives without paging through it:
@@ -2536,7 +2540,7 @@ const skippedSince = (asked, docsOnly) => {
 	return changed === null || worthRerunning(changed, docsOnly) ? null : asked.last.head;
 };
 /** What a run was opened on, as the report says it. */
-const askedOf$1 = (run) => run.command === null ? "the tool's own prompt" : [run.command, run.effort].filter((part) => part !== null).join(" ");
+const askedOf$2 = (run) => run.command === null ? "the tool's own prompt" : [run.command, run.effort].filter((part) => part !== null).join(" ");
 /**
 * The report as it is written down: what it is of, then what the run said.
 *
@@ -2548,7 +2552,7 @@ const reportDocument = (run, title, prose) => [
 	`# ${run.repo}#${run.number} ${title}`,
 	"",
 	`- head: ${run.head}`,
-	`- run: ${askedOf$1(run)}`,
+	`- run: ${askedOf$2(run)}`,
 	`- ran: ${DateTime.formatIso(run.ranAt)}`,
 	"",
 	prose.trim(),
@@ -2811,7 +2815,7 @@ const shown = (threads, options) => {
 };
 //#endregion
 //#region src/cli/comments.ts
-const allFlag = Flag.Boolean("all").pipe(Flag.withDefault(false), Flag.withDescription("Print the whole conversation, including what is resolved, outdated and already answered"));
+const allFlag$1 = Flag.Boolean("all").pipe(Flag.withDefault(false), Flag.withDescription("Print the whole conversation, including what is resolved, outdated and already answered"));
 /** Where a thread hangs: a line of the diff, or the pull request itself. */
 const where$1 = (thread) => thread.path === null ? "Conversation" : thread.line === null ? thread.path : `${thread.path}:${thread.line}`;
 /**
@@ -2879,7 +2883,7 @@ const nothing$1 = (facts, all) => {
 */
 const comments = Command.make("comments", {
 	pr: prArgument,
-	all: allFlag
+	all: allFlag$1
 }, Effect.fn("comments")(function* ({ all, pr }) {
 	const { number, repo } = yield* forPr(pr);
 	const facts = yield* swept(repo, number);
@@ -3942,6 +3946,45 @@ const merge = Command.make("merge", { pr: prArgument }, Effect.fn("merge")(funct
 	yield* Console.log(`The squash subject is the pull request title: ${view.title}`);
 }, Effect.catchTag(userFacing, asUserError))).pipe(Command.withDescription("Squash-merge a Ready, stamped pull request of mine and delete its branch"));
 //#endregion
+//#region src/domain/coverage.ts
+const one = (repo, registered) => ({
+	_tag: "covers",
+	repos: [repo],
+	leftOut: registered.length - 1
+});
+/**
+* The repositories a sweep covers.
+*
+* Standing in a registered repository is asking for that one, because that is
+* the table I want while I work there. Standing anywhere else asks for nothing
+* in particular, so it gets every registered repository, as it would have
+* before a sweep could be narrowed at all.
+*
+* `here` is the repository the working directory is in, and is only read when
+* neither flag decides.
+*/
+const covered = (asked, here, registered) => {
+	if (asked.repo !== void 0 && asked.all) return {
+		_tag: "refused",
+		why: "--repo names one repository and --all asks for every one. Pass one of them."
+	};
+	if (asked.repo !== void 0) {
+		if (registered.includes(asked.repo)) return one(asked.repo, registered);
+		return {
+			_tag: "refused",
+			why: registered.length === 0 ? `${asked.repo} is not registered. Run dw-mc init inside it to register it.` : `${asked.repo} is not registered. Name one of ${registered.join(", ")}, or run dw-mc init inside it.`
+		};
+	}
+	if (!asked.all && here !== void 0 && registered.includes(here)) return one(here, registered);
+	return {
+		_tag: "covers",
+		repos: registered,
+		leftOut: 0
+	};
+};
+/** Whether the working directory decides the coverage, which is the one case worth asking `gh` where it is. */
+const asksWhereIAm = (asked, registered) => asked.repo === void 0 && !asked.all && registered.length > 0;
+//#endregion
 //#region src/domain/flaky.ts
 /**
 * The failures that are flaky wherever they appear: a machine, a network or a
@@ -4233,6 +4276,13 @@ const recordConflict = Effect.fn("rebase.recordConflict")(function* (repo, numbe
 });
 //#endregion
 //#region src/cli/sweep.ts
+/** What the picker asks a sweep for: every registered repository, wherever I stand. */
+const everything = {
+	repo: void 0,
+	all: true
+};
+/** The repository I stand in, or none where the working directory is not one. */
+const whereIAm = currentRepo.pipe(Effect.asSome, Effect.catchTag("NoRepository", () => Effect.succeedNone), Effect.map(Option.getOrUndefined));
 const writtenBy = (comments, login) => comments.filter((comment) => comment.login === login).map((comment) => comment.at);
 const byHumansOtherThan = (comments, login) => comments.filter((comment) => !comment.bot && comment.login !== login).map((comment) => comment.at);
 /**
@@ -4306,7 +4356,8 @@ const saying$1 = (swept) => (since) => [
 	since
 ].join(" · ");
 /**
-* One pass over every tracked PR, and nothing else: a sweep only ever reads.
+* One pass over the tracked PRs of the repositories `asked` covers, and nothing
+* else: a sweep only ever reads.
 *
 * Every repository and every pull request is read on its own, so one of them
 * failing costs me its rows and leaves the rest of the table standing. What
@@ -4316,11 +4367,15 @@ const saying$1 = (swept) => (since) => [
 * that is worth saying is the caller's, which is why it is handed a count and
 * not a sentence.
 */
-const sweep = Effect.fn("sweep")(function* (report) {
+const sweep = Effect.fn("sweep")(function* (asked, report) {
 	const file = Option.getOrElse(yield* read, () => ({}));
-	const repos = Object.keys(file.repos ?? {}).toSorted();
+	const registered = Object.keys(file.repos ?? {}).toSorted();
+	const coverage = covered(asked, asksWhereIAm(asked, registered) ? yield* whereIAm : void 0, registered);
+	if (coverage._tag === "refused") return yield* new CliError.UserError({ cause: coverage.why });
+	const { repos, leftOut } = coverage;
 	if (repos.length === 0) return {
 		repos,
+		leftOut,
 		facts: [],
 		troubles: []
 	};
@@ -4356,6 +4411,7 @@ const sweep = Effect.fn("sweep")(function* (report) {
 	}), { concurrency }));
 	return {
 		repos,
+		leftOut,
 		facts: swept.got,
 		troubles: [...found.troubles, ...swept.troubles]
 	};
@@ -4367,7 +4423,25 @@ const sweep = Effect.fn("sweep")(function* (report) {
 * three times over. It gives the heartbeat no aside, so a piped `dw-mc status`
 * prints exactly what it printed before there was a heartbeat at all.
 */
-const sweeping = beating((since) => `sweeping · ${since}`, (says) => sweep((swept) => says(saying$1(swept))));
+const sweeping = (asked) => beating((since) => `sweeping · ${since}`, (says) => sweep(asked, (swept) => says(saying$1(swept))));
+/** `--repo`, for a command that sweeps: the one registered repository to cover. */
+const repoFlag = Flag.String("repo").pipe(Flag.withDescription("Cover this registered repository only, as owner/name, wherever I stand"), Flag.optional);
+/** `--all`, for a command that sweeps: every registered repository, even from inside one. */
+const allFlag = Flag.Boolean("all").pipe(Flag.withDefault(false), Flag.withDescription("Cover every registered repository, and not only the one I stand in"));
+/** What the two flags ask a sweep to cover. */
+const askedOf$1 = (flags) => ({
+	repo: Option.getOrUndefined(flags.repo),
+	all: flags.all
+});
+/**
+* The word a narrowed report owes me about what it left out, so a table of one
+* repository is not read as the whole picture.
+*/
+const printLeftOut = Effect.fn("sweep.printLeftOut")(function* (report) {
+	if (report.leftOut === 0) return;
+	yield* Console.log("");
+	yield* Console.log(`Only ${report.repos.join(", ")}. --all covers all ${report.repos.length + report.leftOut} registered repositories.`);
+});
 /** What a sweep could not read, under a heading, so the table above it stands alone. */
 const printTroubles = Effect.fn("sweep.printTroubles")(function* (troubles) {
 	if (troubles.length === 0) return;
@@ -4376,16 +4450,20 @@ const printTroubles = Effect.fn("sweep.printTroubles")(function* (troubles) {
 	for (const trouble of troubles) yield* Console.log(`  ${trouble.where}  ${trouble.detail}`);
 });
 /**
-* Refreshes what mission control knows about every tracked PR.
+* Refreshes what mission control knows about the tracked PRs it covers.
 *
 * `dw-mc status` does this too, so this command is for the pass on its own:
 * warming the state directory, or seeing what GitHub would not answer.
 */
-const sweepCommand = Command.make("sweep", {}, Effect.fn("sweep.command")(function* () {
-	const report = yield* sweeping;
+const sweepCommand = Command.make("sweep", {
+	repo: repoFlag,
+	all: allFlag
+}, Effect.fn("sweep.command")(function* (flags) {
+	const report = yield* sweeping(askedOf$1(flags));
 	yield* Console.log(report.repos.length === 0 ? "No repositories registered. Run dw-mc init inside a repository to register it." : `Swept ${count(report.facts.length, "pull request")} across ${repositories(report.repos.length)}`);
+	yield* printLeftOut(report);
 	yield* printTroubles(report.troubles);
-}, Effect.catchTag(userFacing, asUserError))).pipe(Command.withDescription("Refresh what mission control knows about every tracked pull request"));
+}, Effect.catchTag(userFacing, asUserError))).pipe(Command.withDescription("Refresh what mission control knows about the tracked pull requests of the repository I stand in, or of every one"));
 //#endregion
 //#region src/domain/pick.ts
 /**
@@ -4603,7 +4681,7 @@ const where = (facts) => `${facts.repo}#${facts.number}`;
 * and a merge must never cost only that (ADR 0008).
 */
 const picker = (dispatch) => Effect.fn("pick")(function* () {
-	const report = yield* sweeping;
+	const report = yield* sweeping(everything);
 	if (report.repos.length === 0) {
 		yield* Console.log("No repositories registered. Run dw-mc init inside a repository to register it.");
 		return;
@@ -5316,8 +5394,11 @@ const lines = (grouped, stamped, paint) => {
 *
 * It sweeps first, every time: a table I read is never one I forgot to refresh.
 */
-const status = Command.make("status", {}, Effect.fn("status")(function* () {
-	const report = yield* sweeping;
+const status = Command.make("status", {
+	repo: repoFlag,
+	all: allFlag
+}, Effect.fn("status")(function* (flags) {
+	const report = yield* sweeping(askedOf$1(flags));
 	if (report.repos.length === 0) {
 		yield* Console.log("No repositories registered. Run dw-mc init inside a repository to register it.");
 		return;
@@ -5325,8 +5406,9 @@ const status = Command.make("status", {}, Effect.fn("status")(function* () {
 	const grouped = group(report.facts);
 	if (grouped.length === 0) yield* Console.log("No open pull requests.");
 	for (const line of lines(grouped, yield* stampedAmong(report.facts), yield* Paint)) yield* Console.log(line);
+	yield* printLeftOut(report);
 	yield* printTroubles(report.troubles);
-}, Effect.catchTag(userFacing, asUserError))).pipe(Command.withDescription("Show which bucket every tracked pull request sits in, and which ones I have stamped"));
+}, Effect.catchTag(userFacing, asUserError))).pipe(Command.withDescription("Show which bucket every tracked pull request of the repository I stand in, or of every one, sits in, and which ones I have stamped"));
 //#endregion
 //#region src/cli/uninstall.ts
 const configFlag = Flag.Boolean("config").pipe(Flag.withDefault(false), Flag.withDescription("Take the configuration file too, and not only the state"));
@@ -5382,7 +5464,7 @@ const uninstall = Command.make("uninstall", {
 	}] : [])).pipe(Effect.map((found_) => found_.flat()));
 	yield* Effect.forEach(removes({
 		directory: found.directory,
-		size: weight(everything(found))
+		size: weight(everything$1(found))
 	}, alsoConfig && configured ? file : void 0, paint), (line) => Console.log(line));
 	if (holds.length > 0) {
 		yield* Effect.forEach(held(holds, paint), (line) => Console.log(line));
@@ -5409,7 +5491,7 @@ const uninstall = Command.make("uninstall", {
 * Running from source leaves the constant undeclared rather than undefined, so
 * the check has to be `typeof` and the fallback is what a test reads.
 */
-const version = "0.5.1";
+const version = "0.6.0";
 /** Where the project lives, printed beside the version in the header. */
 const projectUrl = "github.com/dominikwozniak/dw-mc";
 const subcommands = [