strom-research 1.0.0 → 1.1.0

package/dist/commands/connectors.js

@@ -14,9 +14,10 @@ import { ui } from "../cli/ui.js";
 import { register } from "../cli/registry.js";
 import { lines, moreLine, paginate, runs, shellArg, table } from "../cli/format.js";
 import { StromError, UsageError } from "../core/errors.js";
+import { isAgent } from "../core/which.js";
 import { requireRecord } from "../core/records.js";
 import { readable } from "../core/text.js";
-import { findImage, regionText, sameRegion } from "../core/media.js";
+import { findImage, isWhole, regionText, sameRegion } from "../core/media.js";
 import { partRegion } from "../core/views.js";
 import { loadLogins, loginOf, loginsFile, removeLogin, saveLogin, VISIBLE_FIELDS } from "../core/logins.js";
 import { readAsset } from "../core/assets.js";
@@ -24,9 +25,9 @@ import { runGit } from "../core/git.js";
 import { imageSizeOfFile } from "../image/index.js";
 import { Tree } from "../core/tree.js";
 import { syncAgentFiles } from "../agents/files.js";
-import { clearBlock, CookieJar, DEFAULT_PACE, hostAllowed, hostState, knownHosts, NetError, paceOf, politeRequest, refusedBy, reserveSlots } from "../core/net.js";
+import { clearBlock, CookieJar, DEFAULT_PACE, hostAllowed, hostPace, hostState, knownHosts, MIN_INTERVAL_MS, NetError, paceText, politeRequest, refusedBy, reserveSlots, setOwnPace } from "../core/net.js";
 import { botCheck, fileBase, findDownload, loadPage, loadPlans, pageKey, pageScript, parseResult, PLAN_TTL_MS, planScript, readSavedPage, removePlan, savePage, savePlan, SCRIPT_MS, } from "../core/browser.js";
-import { bareHost, changedSinceConsent, codeWarning, consentRequired, connectorHash, connectorsDir, directNetwork, ensurePluginsDir, findConnector, hostWarning, imageProblem, INTERFACE, listConnectors, loadConsents, MANIFEST, missingConsents, NAME_RE, readManifest, routeOf, routesOf, ROUTES, runConnector, saveConsents, scanConnectors, suggestName, } from "../core/connector.js";
+import { bareHost, changedSinceConsent, codeWarning, consentRequired, connectorHash, connectorsDir, directNetwork, ensurePluginsDir, findConnector, hostWarning, imageProblem, INTERFACE, listConnectors, loadConsents, MANIFEST, missingConsents, NAME_RE, readManifest, routeOf, treeBrowserConnectors, routesOf, ROUTES, runConnector, saveConsents, scanConnectors, suggestName, } from "../core/connector.js";
 import { registerImages } from "./media.js";
 function shared(ctx) {
     const s = ctx.settings.shared();
@@ -36,6 +37,15 @@ function shared(ctx) {
 }
 const netDir = (ctx) => path.join(shared(ctx), "net");
 const when = (ms) => new Date(ms).toISOString().slice(0, 16).replace("T", " ");
+/** The pace for a host now: the user's own for it, else its connector's service's, else strom's. */
+function paceAt(ctx, host, c) {
+    const by = c ?? listConnectors(ctx.settings.shared()?.value).find((x) => x.manifest.hosts.some((h) => hostAllowed(host, [h])));
+    return hostPace(hostState(netDir(ctx), host), by?.manifest.policy.pace);
+}
+/** A connector's pace: that of its first host. */
+function connectorPace(ctx, c) {
+    return paceAt(ctx, bareHost(c.manifest.hosts[0] ?? ""), c);
+}
 function hostLine(ctx, host) {
     const s = hostState(netDir(ctx), host);
     const hour = s.recent.filter((t) => t > Date.now() - 3600_000).length;
@@ -44,6 +54,8 @@ function hostLine(ctx, host) {
         s.blockedUntil && s.blockedUntil > Date.now() ? `⛔ refused us — left alone until ${when(s.blockedUntil)} (${s.reason ?? ""})` : "",
         hour ? `${hour} request(s) in the last hour` : "",
         (s.slowdown ?? 1) > 1 ? `slowed ×${(s.slowdown ?? 1).toFixed(1)}` : "",
+        s.waitUntil && s.waitUntil > Date.now() ? `its limit used up until ${when(s.waitUntil)}` : "",
+        `${paceText(paceAt(ctx, host))}${s.own ? " (yours)" : ""}`,
     ]
         .filter(Boolean)
         .join(" · ");
@@ -51,7 +63,7 @@ function hostLine(ctx, host) {
 /** Ask the user, on a terminal, to allow automated access to a host. */
 async function askHost(ctx, host, c, byWindow = false) {
     if (!byWindow) {
-        ctx.io.stdout("\n" + hostWarning(host, c) + "\n");
+        ctx.io.stdout("\n" + hostWarning(host, c, paceAt(ctx, host, c)) + "\n");
         if (!(await ctx.confirm(`Allow automated access to ${host}?`, false)))
             return false;
     }
@@ -131,7 +143,9 @@ function describeRun(r, what) {
 /** Up to this many books, each comes with the command to register it; more, one line each. */
 const BOOKS_IN_FULL = 3;
 const BOOKS_SHOWN = 30;
-function bookLines(r, connector, listOne) {
+function bookLines(r, c, listOne) {
+    // a connector that fetches nothing (the terms forbid it, or it only finds): the images come by hand
+    const fetches = c.manifest.policy.automation !== "manual" && c.manifest.can.some((x) => x === "fetch" || x === "locate");
     const line = (b) => `${b.title}${b.callNumber ? ` (${b.callNumber})` : ""}${b.years ? ` · ${b.years}` : ""}${b.kinds?.length ? ` · ${b.kinds.join(",")}` : ""}${b.images ? ` · ${b.images} images` : ""}`;
     if (r.books.length > BOOKS_IN_FULL)
         return [
@@ -143,7 +157,11 @@ function bookLines(r, connector, listOne) {
         `  ${line(b)}`,
         b.url ? `    ${b.url}` : undefined,
         `    strom recordset add ${shellArg(b.title)}${b.callNumber ? ` --call-number ${shellArg(b.callNumber)}` : ""}${b.kinds?.length ? ` --kinds ${b.kinds.join(",")}` : ""}${b.places?.length ? ` --places ${shellArg(b.places.join(","))}` : ""}${b.years ? ` --years ${b.years}` : ""}${b.url ? ` --url ${shellArg(b.url)}` : ""} --access online-free`,
-        b.id ? `    then: strom fetch ${connector} ${shellArg(b.id)} --images <from-to> --recordset B…` : undefined,
+        !fetches
+            ? `    then: the user saves the images by hand — strom task wait T… --images B…:<from-to> --on "<the book, its link, which images>"`
+            : b.id
+                ? `    then: strom fetch ${c.name} ${shellArg(b.id)} --images <from-to> --recordset B…`
+                : undefined,
     ]
         .filter(Boolean)
         .join("\n"));
@@ -161,7 +179,7 @@ function parseImages(v, max = 1000) {
     if (z < a)
         throw new UsageError("--images: from before to");
     if (z - a >= max)
-        throw new UsageError(`--images: at most ${max} at a time`, { hint: "the hourly cap of an archive: the rest in the next hour" });
+        throw new UsageError(`--images: at most ${max} at a time`, { hint: "the rest in the next run (an archive's hourly cap: in the next hour)" });
     return Array.from({ length: z - a + 1 }, (_, i) => a + i);
 }
 /** An archive the tree says must not be automated (forbidden, or browser only). */
@@ -184,8 +202,8 @@ function forbiddenBy(ctx, c) {
     });
 }
 /** How long a fetch takes at least, at the connector's pace (one request per image). */
-function estimate(c, images) {
-    const pace = paceOf(c.manifest.policy.pace);
+function estimate(ctx, c, images) {
+    const pace = connectorPace(ctx, c);
     const secs = Math.round(((images - 1) * pace.minIntervalMs) / 1000);
     const took = secs < 90 ? `${secs} s` : `${Math.round(secs / 60)} min`;
     return `${images} image(s) through ${c.name}: at least ${took} at its pace (one request per image, ≥${pace.minIntervalMs / 1000} s apart)`;
@@ -235,9 +253,10 @@ register({
         const c = findConnector(ctx.settings.shared()?.value, args[0]);
         const m = c.manifest;
         const direct = directNetwork(c);
-        const pace = paceOf(m.policy.pace);
+        const pace = connectorPace(ctx, c);
+        const own = hostState(netDir(ctx), bareHost(m.hosts[0] ?? "")).own;
         return {
-            text: lines(`${c.name}${m.version ? ` ${m.version}` : ""} — ${m.title}  (${ctx.display(c.dir)})`, `can        ${m.can.join(", ")}`, `runs       ${m.run.join(" ")}`, `automation ${m.policy.automation}${m.policy.terms ? ` · terms ${m.policy.terms}` : " · terms not recorded"}`, m.policy.termsSummary ? `           ${m.policy.termsSummary}` : undefined, m.policy.officialExport ? `official   ${m.policy.officialExport}` : undefined, `pace       ≥${pace.minIntervalMs / 1000} s apart, ≤${pace.perHour}/h`, m.can.includes("fetch") || m.can.includes("locate") ? `images     ${routeText(ctx, c)}` : undefined, `consent    ${consentState(ctx, c)}`, m.login ? `login      ${loginState(ctx, c)} — ${m.login.about}${m.login.url ? ` (${m.login.url})` : ""}` : undefined, direct.length ? `⚠ reaches the network directly (strom cannot pace that):\n${direct.map((d) => `  ${d}`).join("\n")}` : "network    only through strom (checked)", "hosts", ...m.hosts.map((h) => `  ${hostLine(ctx, bareHost(h))}`)),
+            text: lines(`${c.name}${m.version ? ` ${m.version}` : ""} — ${m.title}  (${ctx.display(c.dir)})`, `can        ${m.can.join(", ")}`, m.newer ? `newer      ${m.newer.join(", ")} — from a newer contract, left out here (strom update runs them)` : undefined, `runs       ${m.run.join(" ")}`, `automation ${m.policy.automation}${m.policy.terms ? ` · terms ${m.policy.terms}` : " · terms not recorded"}`, m.policy.termsSummary ? `           ${m.policy.termsSummary}` : undefined, m.policy.officialExport ? `official   ${m.policy.officialExport}` : undefined, `pace       ${paceText(pace)}${own ? " — yours for the host (strom allow host … --pace auto: the service's again)" : m.policy.pace?.source ? ` — the service's: ${m.policy.pace.source}` : ""}`, m.can.includes("fetch") || m.can.includes("locate") ? `images     ${routeText(ctx, c)}` : undefined, `consent    ${consentState(ctx, c)}`, m.login ? `login      ${loginState(ctx, c)} — ${m.login.about}${m.login.url ? ` (${m.login.url})` : ""}` : undefined, direct.length ? `⚠ reaches the network directly (strom cannot pace that):\n${direct.map((d) => `  ${d}`).join("\n")}` : "network    only through strom (checked)", "hosts", ...m.hosts.map((h) => `  ${hostLine(ctx, bareHost(h))}`)),
             data: { name: c.name, connector: m, dir: c.dir, consent: consentState(ctx, c), ...(m.login ? { login: !!loginOf(ctx.env, c) } : {}), direct, pace, routes: routesOf(c), via: routeOf(ctx.env, c).via },
         };
     },
@@ -247,7 +266,8 @@ register({
     group: "sources",
     description: "Through the browser, the agent fetches them in your own browser (Claude in Chrome), where your login to the\n" +
         "portal lives: strom still plans every request, paces it, and takes the files over from your downloads\n" +
-        "folder, checked and registered. The agent gets browser tools for the connector's sites only, from its next\n" +
+        "folder, checked and registered. The agent gets browser tools for the connector's sites only, in the trees that\n" +
+        "work with the archive (images fetched through it, or an archive, book or record on its site), from its next\n" +
         "session on. Your agent may switch it when you ask it to.",
     args: [{ name: "connector", description: "its name", required: true }],
     options: [{ name: "via", type: "string", value: "<direct|browser>", description: "direct: strom fetches them · browser: your browser does" }],
@@ -284,7 +304,7 @@ register({
         const hosts = c.manifest.hosts.map(bareHost);
         return {
             text: via === "browser"
-                ? lines(`${c.name}: images through your browser from now on (${hosts.join(", ")})`, `  · the agent gets browser tools (Claude in Chrome) for these sites only, from its next session${synced.length ? ` (permissions of ${synced.join(", ")} updated)` : ""}. Chrome with the`, "    Claude extension must be running then, signed in to the account Claude Code uses; browser tools need a model", "    that can review its actions (Sonnet or Opus, not Haiku)", `  · strom plans and paces every request, and takes the files over from ${ctx.display(s.downloads())}`, "    (another folder: strom config set browser.downloads <folder>)", `  · the first time, Chrome asks whether ${hosts[0]} may download several files: allow it once`, `  · back: strom connector use ${c.name} --via direct`)
+                ? lines(`${c.name}: images through your browser from now on (${hosts.join(", ")})`, `  · the agent gets browser tools (Claude in Chrome) for these sites only, in the family trees that work with this`, `    archive (images fetched through it, or an archive, book or record of theirs on its site), from its next session${synced.length ? ` (permissions of ${synced.join(", ")} updated)` : ""}. Chrome with the`, "    Claude extension must be running then, signed in to the account Claude Code uses; browser tools need a model", "    that can review its actions (Sonnet or Opus, not Haiku)", `  · strom plans and paces every request, and takes the files over from ${ctx.display(s.downloads())}`, "    (another folder: strom config set browser.downloads <folder>)", `  · the first time, Chrome asks whether ${hosts[0]} may download several files: allow it once`, `  · back: strom connector use ${c.name} --via direct`)
                 : lines(`${c.name}: images directly through strom from now on, paced (${hosts.join(", ")})`, routesOf(c).includes("browser") ? `  · through your browser again: strom connector use ${c.name} --via browser` : undefined),
             data: { connector: c.name, via, hosts, synced },
         };
@@ -663,7 +683,14 @@ register({
         const c = findConnector(ctx.settings.shared()?.value, args[0]);
         if (opts.take)
             return takeOver(ctx, c, opts.result === undefined ? undefined : String(opts.result));
-        const perHour = paceOf(c.manifest.policy.pace).perHour;
+        // Through the browser, an agent needs browser tools — only a tree that works with this archive gives them.
+        if (isAgent(ctx.env) && routeOf(ctx.env, c).via === "browser" && !treeBrowserConnectors(tree, ctx.settings.shared()?.value).some((x) => x.name === c.name)) {
+            const site = c.manifest.hosts[0];
+            throw new StromError(`this family tree does not work with ${c.manifest.title} yet, so you have no browser tools for ${site}`, {
+                hint: `record the archive: strom repo add "${c.manifest.title}" --url https://${site} — the browser tools come with the next conversation or run (tell the user)`,
+            });
+        }
+        const perHour = Math.min(1000, connectorPace(ctx, c).perHour);
         const wantsPart = opts.crop !== undefined || opts.half !== undefined;
         if (wantsPart && !c.manifest.can.includes("part"))
             throw new UsageError(`connector ${c.name} fetches whole images only (it cannot: part)`, {
@@ -726,11 +753,44 @@ register({
     options: [
         { name: "revoke", type: "boolean", description: "take the consent back" },
         { name: "unblock", type: "boolean", description: "lift a refusal (401/403) early — only after the archive said it is fine" },
+        { name: "pace", type: "string", value: "<seconds|auto>", description: `your own pause between two requests to the host (at least ${MIN_INTERVAL_MS / 1000} s); auto: the service's again` },
+        { name: "per-hour", type: "string", value: "<n|none|auto>", description: "your own hourly cap for the host; none: no cap; auto: the service's again (strom sets none by itself)" },
     ],
-    examples: ["strom allow host archive.example.org", "strom allow host archive.example.org --revoke"],
+    examples: ["strom allow host archive.example.org", "strom allow host archive.example.org --pace 1 --per-hour none", "strom allow host archive.example.org --pace auto --per-hour auto", "strom allow host archive.example.org --revoke"],
     run: async (ctx, { args, opts }) => {
         const host = args[0].toLowerCase().replace(/^https?:\/\//, "").replace(/\/.*$/, "");
         const lang = ctx.uiLang();
+        // The user's own pace for the host: theirs to set — asked in a window when an agent runs it.
+        if (opts.pace !== undefined || opts["per-hour"] !== undefined) {
+            const was = hostState(netDir(ctx), host).own;
+            const own = { ...(was?.minIntervalMs !== undefined ? { minIntervalMs: was.minIntervalMs } : {}), ...(was?.perHour !== undefined ? { perHour: was.perHour } : {}) };
+            if (opts.pace !== undefined) {
+                const v = String(opts.pace).trim();
+                if (v === "auto")
+                    delete own.minIntervalMs;
+                else if (Number(v) * 1000 >= MIN_INTERVAL_MS)
+                    own.minIntervalMs = Math.round(Number(v) * 1000);
+                else
+                    throw new UsageError(`--pace must be seconds, at least ${MIN_INTERVAL_MS / 1000}, or auto — not "${v}"`);
+            }
+            if (opts["per-hour"] !== undefined) {
+                const v = String(opts["per-hour"]).trim();
+                if (v === "auto")
+                    delete own.perHour;
+                else if (v === "none")
+                    own.perHour = 0;
+                else if (Number.isInteger(Number(v)) && Number(v) > 0)
+                    own.perHour = Number(v);
+                else
+                    throw new UsageError(`--per-hour must be a number, none or auto — not "${v}"`);
+            }
+            const c = listConnectors(ctx.settings.shared()?.value).find((x) => x.manifest.hosts.some((h) => hostAllowed(host, [h])));
+            const next = hostPace({ recent: [], own: { ...own, at: "" } }, c?.manifest.policy.pace);
+            ctx.requireHuman(`Set the pace of ${host}: ${paceText(next)}?`, `strom allow host ${host}${opts.pace !== undefined ? ` --pace ${opts.pace}` : ""}${opts["per-hour"] !== undefined ? ` --per-hour ${opts["per-hour"]}` : ""}`, `pace:${host}`, ui(lang, "ui.consent.host.pace", { host, seconds: next.minIntervalMs / 1000, cap: Number.isFinite(next.perHour) ? ui(lang, "ui.pace.cap", { n: next.perHour }) : ui(lang, "ui.pace.nocap") }));
+            const s = setOwnPace(netDir(ctx), host, own);
+            const now = paceAt(ctx, host, c);
+            return { text: `${host}: ${paceText(now)}${s.own ? " — yours" : " — the service's again"}`, data: { host, pace: { minIntervalMs: now.minIntervalMs, perHour: Number.isFinite(now.perHour) ? now.perHour : null }, own: s.own ?? null } };
+        }
         const how = ctx.requireHuman(`${opts.revoke ? "Take back" : opts.unblock ? "Lift the refusal of" : "Allow"} automated access to ${host}?`, `strom allow host ${host}${opts.revoke ? " --revoke" : opts.unblock ? " --unblock" : ""}`, `host:${host}`, ui(lang, opts.revoke ? "ui.consent.host.revoke" : opts.unblock ? "ui.consent.host.unblock" : "ui.consent.host", { host }));
         const all = loadConsents(ctx.env);
         if (opts.revoke) {
@@ -759,7 +819,7 @@ register({
         return {
             text: lines(consentRequired(ctx.env)
                 ? "consents: on — a connector runs only once you allow it, and each archive host it contacts"
-                : "consents: off — connectors run without asking (paced by strom, only to their hosts); code that goes round strom needs your yes · to be asked first: strom config set connectors.consent on", "connectors", ...names.map((n) => `  ${n}  ${ctx.display(all.connectors[n].dir)}  since ${all.connectors[n].at.slice(0, 10)}  hosts ${all.connectors[n].hosts.join(", ")}`), names.length ? undefined : "  (none)", "hosts (automated access)", ...hosts.map((h) => `  ${hostLine(ctx, h)}${all.hosts[h] ? `  · allowed since ${all.hosts[h].at.slice(0, 10)}` : ""}`), hosts.length ? undefined : "  (none)", `pace: one request at a time per host, ≥${DEFAULT_PACE.minIntervalMs / 1000} s apart, ≤${DEFAULT_PACE.perHour}/h; a refusal stops for a day`, Object.keys(loadLogins(ctx.env)).length ? `logins saved (strom login): ${Object.keys(loadLogins(ctx.env)).sort().join(", ")}` : undefined, "take back: strom allow connector <name> --revoke · strom allow host <host> --revoke"),
+                : "consents: off — connectors run without asking (paced by strom, only to their hosts); code that goes round strom needs your yes · to be asked first: strom config set connectors.consent on", "connectors", ...names.map((n) => `  ${n}  ${ctx.display(all.connectors[n].dir)}  since ${all.connectors[n].at.slice(0, 10)}  hosts ${all.connectors[n].hosts.join(", ")}`), names.length ? undefined : "  (none)", "hosts (automated access)", ...hosts.map((h) => `  ${hostLine(ctx, h)}${all.hosts[h] ? `  · allowed since ${all.hosts[h].at.slice(0, 10)}` : ""}`), hosts.length ? undefined : "  (none)", `pace: one request at a time per host — the service's pace (its connector says it), else ≥${DEFAULT_PACE.minIntervalMs / 1000} s apart; an hourly cap only where the service or you set one; slower while a host answers slowly, a wait when it says its limit is used up; a refusal stops for a day · yours for a host: strom allow host <host> --pace <seconds> --per-hour <n>`, Object.keys(loadLogins(ctx.env)).length ? `logins saved (strom login): ${Object.keys(loadLogins(ctx.env)).sort().join(", ")}` : undefined, "take back: strom allow connector <name> --revoke · strom allow host <host> --revoke"),
             data: { consents: consentRequired(ctx.env) ? "on" : "off", ...all, logins: Object.keys(loadLogins(ctx.env)).sort(), hostState: Object.fromEntries(hosts.map((h) => [h, hostState(netDir(ctx), h)])) },
         };
     },
@@ -860,7 +920,7 @@ async function testWith(ctx, c, request, max) {
         return planPages(ctx, c, r.needs, { cmd: "test", request: { ...request }, max }, `strom connector test ${c.name} (${request.cmd})`, describeRun(r, `test ${request.cmd}`));
     const direct = directNetwork(c);
     return {
-        text: lines(describeRun(r, `test ${request.cmd}`), r.books.length ? `books (${r.books.length}):\n${bookLines(r, c.name, `strom connector test ${c.name} --list <id>`).join("\n")}` : undefined, r.images.length ? `images (${r.images.length}): ${r.images.map((i) => `${i.n ?? "?"}${i.region ? ` part ${regionText(i.region)}` : ""}=${path.basename(i.file)} ${fs.statSync(i.file).size} B${pixels(i.file)}`).join(", ")} in ${ctx.display(workDir)}` : undefined, r.located.length ? `located (${r.located.length}):\n${r.located.map((l) => `  ${l.n}${l.region ? ` part ${regionText(l.region)}` : ""}  ${l.src}${l.url && l.url !== l.src ? `\n       page ${l.url}` : ""}`).join("\n")}` : undefined, c.manifest.login ? (loginOf(ctx.env, c) ? "with the user's login" : `without a login${c.manifest.login.required ? "" : " (the user may save one: strom login " + c.name + ")"}`) : undefined, direct.length ? `⚠ the code reaches the network directly — strom cannot pace that:\n${direct.map((d) => `  ${d}`).join("\n")}` : undefined, c.manifest.policy.automation === "unknown" ? "⚠ policy.automation is unknown — find out what the portal's terms say (DISCOVERY.md, step 1)" : undefined),
+        text: lines(describeRun(r, `test ${request.cmd}`), r.books.length ? `books (${r.books.length}):\n${bookLines(r, c, `strom connector test ${c.name} --list <id>`).join("\n")}` : undefined, r.images.length ? `images (${r.images.length}): ${r.images.map((i) => `${i.n ?? "?"}${i.region ? ` part ${regionText(i.region)}` : ""}=${path.basename(i.file)} ${fs.statSync(i.file).size} B${pixels(i.file)}`).join(", ")} in ${ctx.display(workDir)}` : undefined, r.located.length ? `located (${r.located.length}):\n${r.located.map((l) => `  ${l.n}${l.region ? ` part ${regionText(l.region)}` : ""}  ${l.src}${l.url && l.url !== l.src ? `\n       page ${l.url}` : ""}`).join("\n")}` : undefined, c.manifest.login ? (loginOf(ctx.env, c) ? "with the user's login" : `without a login${c.manifest.login.required ? "" : " (the user may save one: strom login " + c.name + ")"}`) : undefined, direct.length ? `⚠ the code reaches the network directly — strom cannot pace that:\n${direct.map((d) => `  ${d}`).join("\n")}` : undefined, c.manifest.policy.automation === "unknown" ? "⚠ policy.automation is unknown — find out what the portal's terms say (DISCOVERY.md, step 1)" : undefined),
         data: { ...r, direct },
         ...(r.stopped && !r.books.length && !r.images.length && !r.located.length ? { exitCode: 1 } : {}),
     };
@@ -901,7 +961,7 @@ function pagesOf(ctx, c) {
 function planPages(ctx, c, want, resume, what, before) {
     const tree = ctx.tree();
     const u = new URL(want.url);
-    const pace = paceOf(c.manifest.policy.pace);
+    const pace = paceAt(ctx, u.hostname, c);
     let times;
     try {
         // one pause ahead: time to open the tab
@@ -1063,7 +1123,7 @@ async function fetchWith(ctx, c, request, recordset) {
     if (!(await ensureLogin(ctx, c)))
         return { text: "no login — nothing was fetched", exitCode: 1 };
     if (request.cmd === "fetch")
-        ctx.io.stderr(estimate(c, request.images.length) + "\n");
+        ctx.io.stderr(estimate(ctx, c, request.images.length) + "\n");
     if (request.cmd === "fetch" && c.manifest.policy.automation === "unknown")
         ctx.io.stderr(`note: what the terms of ${c.manifest.title} say about automated download is not known yet — strom connector show ${c.name}\n`);
     const workDir = path.join(tree.root, ".strom", "fetch", `${c.name}-${Date.now()}`);
@@ -1078,7 +1138,7 @@ async function fetchWith(ctx, c, request, recordset) {
     if (request.cmd === "find" || request.cmd === "list") {
         fs.rmSync(workDir, { recursive: true, force: true });
         return {
-            text: lines(describeRun(r, `${request.cmd} (${took})`), r.books.length ? [`books (${r.books.length}):`, ...bookLines(r, c.name, `strom fetch ${c.name} <id> --list`)].join("\n") : "no books found"),
+            text: lines(describeRun(r, `${request.cmd} (${took})`), r.books.length ? [`books (${r.books.length}):`, ...bookLines(r, c, `strom fetch ${c.name} <id> --list`)].join("\n") : "no books found"),
             data: r,
             ...(r.stopped && !r.books.length ? { exitCode: 1 } : {}),
         };
@@ -1095,9 +1155,11 @@ async function fetchWith(ctx, c, request, recordset) {
         const gain = m?.width && m.part && whole?.width ? m.width / m.part.w / whole.width : undefined;
         text = m
             ? lines(`part ${regionText(m.part)} of image ${request.image} of ${recordset} fetched and registered: ${m.id}${m.width ? ` · ${m.width}×${m.height} px` : ""}${gain ? ` · ${gain.toFixed(1)}× the detail of the whole image` : ""} · ${took}`, gain !== undefined && gain < 1.2 ? "  no sharper than the whole image: the portal gives no more detail than that" : undefined, `look at it: strom media view ${recordset}:${request.image} --crop ${regionText(m.part)} (a view of the image uses the part by itself)`)
-            : res.again.length
-                ? lines(`that part is registered already: ${res.again.join(" ")}`, ...res.clashes.map((x) => `⚠ ${x}`))
-                : "no part fetched";
+            : res.again.length && whole && res.again.includes(whole.id) && r.images.every((i) => isWhole(i.region))
+                ? lines(`the portal's sharpest of image ${request.image} is the whole scan, registered already: ${whole.id}${whole.width ? ` · ${whole.width}×${whole.height} px` : ""} — no part needed`, `look at it: strom media view ${recordset}:${request.image} --crop ${regionText(request.region)}`)
+                : res.again.length
+                    ? lines(`that part is registered already: ${res.again.join(" ")}`, ...res.clashes.map((x) => `⚠ ${x}`))
+                    : "no part fetched";
         data = { ...data, added: res.added.map((x) => ({ id: x.id, image: x.image, part: x.part })), again: res.again };
     }
     else if (recordset && r.images.length) {
@@ -1130,7 +1192,7 @@ async function planBrowser(ctx, c, request, recordset) {
         throw new UsageError(`connector ${c.name} cannot say where its images are (can: locate) — the browser has no addresses to fetch`, { hint: `strom connector use ${c.name} --via direct` });
     if (!(await ensureAllowed(ctx, c)))
         return { text: "not allowed — nothing was planned", exitCode: 1 };
-    const pace = paceOf(c.manifest.policy.pace);
+    const pace = connectorPace(ctx, c);
     const part = request.cmd === "part";
     const asked = part ? [request.image] : request.images;
     // one script waits at most SCRIPT_MS: as many images as fit in it, the rest next time
@@ -1187,15 +1249,18 @@ async function planBrowser(ctx, c, request, recordset) {
 async function takeOver(ctx, c, result) {
     const tree = ctx.tree();
     const all = loadPlans(tree.root, c.name);
-    // pages for the connector first: what they were planned for goes on
+    const dir = ctx.settings.downloads();
+    const got = parseResult(result ?? "");
+    // pages for the connector first: what they were planned for goes on — unless the browser saved images
+    // and none of those pages (a page planned in a run given up must not hold back what did arrive)
     const pagePlans = all.filter((p) => p.pages?.length);
-    if (pagePlans.length && !tree.dryRun)
+    const pagesHere = got.some((g) => g.page) || pagePlans.some((p) => p.pages.some((pg) => findDownload(dir, pg.file).file));
+    const imagesHere = all.some((p) => p.items.some((i) => findDownload(dir, i.file).file));
+    if (pagePlans.length && !tree.dryRun && (pagesHere || !imagesHere))
         return takePages(ctx, c, pagePlans, result);
     const plans = all.filter((p) => p.items.length);
     if (!plans.length)
         return { text: `nothing of ${c.name} waits to be taken over — plan it first: strom fetch ${c.name} <book> --images <from-to> --recordset B…`, data: { taken: [] } };
-    const dir = ctx.settings.downloads();
-    const got = parseResult(result ?? "");
     if (tree.dryRun) {
         const found = plans.flatMap((p) => p.items.filter((i) => findDownload(dir, i.file).file));
         return { text: `dry run: would take over ${found.length} of ${plans.reduce((n, p) => n + p.items.length, 0)} planned image(s) from ${ctx.display(dir)} — nothing was changed`, data: { dryRun: true, found: found.map((i) => i.n) } };

package/dist/commands/guide.js

@@ -53,7 +53,7 @@ EVERY SESSION
 
 RECORDING
 A record (register entry, certificate) — the source first, then its facts:
-  strom source add "Křest Jana Nováka 1885" --kind baptism --recordset B0001 --locator "fol. 12, č. 3" --form original --information primary --transcript @zapis.txt
+  strom source add "Křest Jana Nováka 1885" --kind baptism --recordset B0001 --clip B0001:12@0.05,0.40,0.45,0.18 --locator "fol. 12, č. 3" --form original --information primary --transcript @zapis.txt
   strom person add "Jan /Novák/" --sex M --born "24 JUN 1885" --born-place "Kamenice nad Lipou" --cite S0001
   strom family add --partner P0002 --partner P0003 --child P0001    the baptism naming the parents proves the link
   strom event add P0001 CHR --date "25 JUN 1885" --cite S0001 --locator "fol. 12" --with "godparent:Marie Dvořáková" --status proven
@@ -102,6 +102,10 @@ SEARCHING
   strom search add "Křty Novák 1880-1890" --recordset B0001 --years 1880-1890 --surname Novák --method page-by-page --result negative
   strom search edit Q0001 --recordset B0002 --reason "…"   a search recorded wrongly is corrected, never added again
   strom repo add … · strom recordset add … · strom place jurisdiction …   where the records are
+  strom place add "<village>" --kind village --lat … --lon …   the places of the facts, on the Strom app's map —
+                                       identify the place first (district, parish, today's name: of several
+                                       villages of a name, the one the records mean); not sure: --unlocated "<why>".
+                                       session close and strom place list --off-map say which are still off it
   strom connector list                 connectors: they find books and fetch scans
   strom fetch <connector> --find "<place>" --years 1780-1850
   strom fetch <connector> <book> --images 40-69 --recordset B0001    registered at once
@@ -112,12 +116,23 @@ SEARCHING
 FINDING YOUR WAY
   strom research show G0001 · strom person show P0001 · strom family show F0001
   strom gaps · strom find <text> [<text>…] · strom frontier · strom task list
+  for the user, in the research language: strom stats (how far the research got) · strom recent
+  (what came in lately) · strom plan (what you do next) · strom pedigree [P…] (the ancestors as a
+  tree) · strom person card P… (one life)
+ONE PERSON, LOOKED AT AGAIN (the user asks you to check or complete someone; a new model reads better)
+  strom review P… [--scope family|line] [--reread] — strom proposes tasks: what records, notes and the
+  diary say of them outside their data, entries whose images are here but were not read whole, facts
+  resting on one reading, conflicts left open (--reread: a second reading with the model the user reads
+  with now). Each task's brief lists its items. Tell the user how many and what they cost; they decide.
 STORIES OF THE ANCESTORS (the setting stories — on by default; strom shows it)
   Once records tell a person's life (a baptism and more facts from records), strom proposes a narrate
   task: write the story for the family book — plain words, the research language, every statement on a
   recorded fact (strom story set P… --text @notes/story-P….md --fact E… …). More facts later: it
-  proposes adding to it. A story is a draft until the user approves it (--final). Not told yet: when the
-  research starts, tell the user in a sentence, and that they may say no (strom config set stories no).
+  proposes adding to it. Stories wait behind all the research; working alone
+  (strom run), every few sessions one comes first. In a conversation the user leads: write one when they
+  want it, or offer it when the research has a pause. A story is a draft until the user approves it (--final). When strom says to tell
+  the user (once, not in every conversation): in a sentence, and that they may say no (strom config set
+  stories no).
 
 The result: strom export gedcom writes output/tree.ged (standard GEDCOM for any program) and
 output/tree-strom.ged (for the Strom app) — both from the same evidence, also on session close.
@@ -126,8 +141,8 @@ Changes are committed automatically; you never run git yourself.
 THE STROM APP — where the user sees the result
   The Strom app (https://stromapp.info) is strom's companion: a free family tree app, no account,
   the family's data stay on their computer; it shows the tree, the sources, a map, a family book.
-  When the user wants to see the results (or once, when the first ones are there), suggest it
-  gently, in a sentence or two — best installed as an app from the browser, then it works offline:
+  When the user wants to see the results, or when strom says to offer it (once, not in every
+  conversation), suggest it gently, in a sentence or two — best installed as an app from the browser, then it works offline:
   https://stromapp.info/run/   the app itself: opened in the browser, installed from there (the
                         install icon at the end of the address bar; Safari: File → Add to Dock)
   strom app install     opens it there and says where to click
@@ -135,9 +150,15 @@ THE STROM APP — where the user sees the result
                         run by you, the app follows the research live: what you record shows there
                         by itself — the best way to watch it grow; otherwise in the app: Import,
                         and output/tree-strom.ged
+                        Each entry comes with its image, cut out of its scan (the sources' clips —
+                        give --clip when you record an entry); sources without a clip (read earlier,
+                        or from an older research) — when the user wants them too: strom clips
+                        --dry-run (how many), then strom clips (readers find and check them); their
+                        words, when a clip has none: strom transcripts (read, then checked)
   Without the app, the user can simply ask you about anyone in the tree, a family, a line, what is
-  proven and by which record: answer from strom (person show, family show, research show, find,
-  source show, story show, gaps, frontier) in plain words — names, dates, places, no IDs.
+  proven and by which record, what is new or next: answer from strom (person card, pedigree, stats,
+  recent, plan, person show, family show, research show, find, source show, story show, gaps,
+  frontier) in plain words — names, dates, places, no IDs.
   strom (no arguments) says whether it is installed here (results): not yet — offer to install it; installed —
   just open it. A program they already use is fine too: output/tree.ged. They do not want it:
   never again.

package/dist/commands/index.js

@@ -11,7 +11,10 @@ import "./sources.js";
 import "./media.js";
 import "./connectors.js";
 import "./read.js";
+import "./clips.js";
+import "./transcripts.js";
 import "./analysis.js";
+import "./browse.js";
 import "./story.js";
 import "./output.js";
 import "./session.js";

package/dist/commands/media.js

@@ -6,22 +6,24 @@
 import fs from "node:fs";
 import path from "node:path";
 import { register } from "../cli/registry.js";
-import { lines, moreLine, paginate, runs, shellArg, table } from "../cli/format.js";
+import { lines, moreLine, paginate, runs, shellArg, table, truncate } from "../cli/format.js";
 import { UsageError } from "../core/errors.js";
 import { makeNote } from "../core/actions.js";
-import { collectFiles, fileSha256, findImage, imageNumbers, imageOfRef, inboxFolders, inputPath, mimeOf, otherCopies, parseImageList, regionText, sharperPart, storeShared } from "../core/media.js";
+import { clipText, collectFiles, fileSha256, findImage, imageNumbers, imageOfRef, inboxFolders, inputPath, isWhole, mimeOf, otherCopies, parseImageList, regionText, sharperPart, storeShared } from "../core/media.js";
 import { create, normId, requireRecord, update } from "../core/records.js";
 import { imageSizeOfFile } from "../image/index.js";
 import { imageOf, pageOf } from "../core/calibration.js";
 import { describeView, makeView, partRegion, viewRegion, VIEW_MAX } from "../core/views.js";
 import { listConnectors, missingConsents } from "../core/connector.js";
+import { now } from "../core/tree.js";
 const IMAGE_EXT = new Set([".jpg", ".jpeg", ".png", ".tif", ".tiff", ".gif", ".webp", ".heic", ".jp2", ".bmp"]);
 /**
  * Register images of a record set: stored once by content, each with its number
  * and provenance. Tasks that waited for images of the book go back into the queue.
  */
 export function registerImages(tree, shared, items, recordset) {
-    const known = new Map(tree.list("media").map((m) => [m.sha, m]));
+    // a withdrawn image is no longer known: its file can be registered again, where it belongs
+    const known = new Map(tree.list("media").filter((m) => !m.retracted).map((m) => [m.sha, m]));
     const added = [];
     const again = [];
     const clashes = [];
@@ -34,7 +36,9 @@ export function registerImages(tree, shared, items, recordset) {
                 again.push(k.id);
                 // the same scan as another image: a portal serving another book's images, or a file given the wrong number
                 const as = (m) => `${m.recordset ?? "no record set"}${m.image !== undefined ? `:${m.image}` : ""}${m.part ? ` part ${regionText(m.part)}` : ""}`;
-                if (as(k) !== as({ recordset, image: it.image, part: it.part }))
+                // a portal whose sharpest part is the whole scan gives the image again: that is no clash
+                const sameScan = k.recordset === recordset && k.image === it.image && isWhole(k.part) && isWhole(it.part);
+                if (!sameScan && as(k) !== as({ recordset, image: it.image, part: it.part }))
                     clashes.push(`${as({ recordset, image: it.image, part: it.part })} is the same file as ${k.id} (${as(k)}) — not registered again: the portal may have given another book's image, or a number is wrong; check before citing either`);
                 continue;
             }
@@ -322,16 +326,40 @@ register({
         const sources = tree.list("source").filter((s) => s.media?.includes(m.id));
         const b = m.recordset ? tree.get(m.recordset) : undefined;
         const all = tree.list("media");
-        const parts = !m.part && m.recordset && m.image !== undefined ? all.filter((x) => x.part && x.recordset === m.recordset && x.image === m.image) : [];
+        const parts = !m.part && m.recordset && m.image !== undefined ? all.filter((x) => x.part && !x.retracted && x.recordset === m.recordset && x.image === m.image) : [];
         const copies = otherCopies(all, m);
         const image = copies.length && m.recordset && m.image !== undefined ? findImage(all, m.recordset, m.image) : undefined;
         return {
-            text: lines(`${m.id} ${m.part ? `part ${regionText(m.part)} of ` : ""}${b ? `image ${m.image ?? "?"} of ${b.id} ${b.title}` : "image"}${pageLabel(tree, m) ? ` · page ${pageLabel(tree, m)}` : ""}`, `${m.width ? `${m.width}×${m.height} px · ` : ""}${Math.round(m.size / 1024)} kB · ${m.mime}${m.from ? ` · from ${m.from}` : ""}${m.url ? ` · ${m.url}` : ""}`, parts.length ? `parts of it, sharper (a view of the image uses them by itself): ${parts.map((p) => `${p.id} ${regionText(p.part)}${p.width ? ` ${p.width}×${p.height}` : ""}`).join(" · ")}` : undefined, copies.length
+            text: lines(`${m.id} ${m.part ? `part ${regionText(m.part)} of ` : ""}${b ? `image ${m.image ?? "?"} of ${b.id} ${b.title}` : "image"}${pageLabel(tree, m) ? ` · page ${pageLabel(tree, m)}` : ""}`, `${m.width ? `${m.width}×${m.height} px · ` : ""}${Math.round(m.size / 1024)} kB · ${m.mime}${m.from ? ` · from ${m.from}` : ""}${m.url ? ` · ${m.url}` : ""}`, m.retracted ? `RETRACTED ${m.retracted.at.slice(0, 10)}: ${m.retracted.reason} — no view, part or excerpt uses it` : undefined, parts.length ? `parts of it, sharper (a view of the image uses them by itself): ${parts.map((p) => `${p.id} ${regionText(p.part)}${p.width ? ` ${p.width}×${p.height}` : ""}`).join(" · ")}` : undefined, copies.length
                 ? `other copies of the image: ${copies.map((c) => `${c.id}${c.width ? ` ${c.width}×${c.height}` : ""}`).join(" · ")} — the image is the sharpest (${image.id}); a view of any copy uses it`
                 : undefined, sources.length ? `sources on it: ${sources.map((s) => `${s.id} ${s.title}`).join(" · ")}` : "no source cites it yet", `view: strom media view ${m.id} [--half left|right] [--crop x,y,w,h] [--grid]`),
             data: { media: m, parts: parts.map((p) => p.id), copies: copies.map((c) => c.id), sources: sources.map((s) => s.id), page: pageLabel(tree, m) || undefined },
         };
     },
+}, {
+    path: ["media", "retract"],
+    summary: "Withdraw an image registered wrongly — another book's, a wrong number, a part put in the wrong place (kept, marked retracted)",
+    group: "sources",
+    tree: true,
+    writes: true,
+    description: "The image stays in the research with the reason, but no view, sharper part or excerpt uses it any more, and its\n" +
+        "file can be registered again where it belongs. An image a source still cites is not withdrawn: move the\n" +
+        "source to the right image first (strom source edit S… --clip …, --clip-remove).",
+    args: [{ name: "image", description: "M0012", required: true }],
+    examples: ['strom media retract M0001 --reason "a part of another book\'s image 340, not of this one"'],
+    run(ctx, { args, opts }) {
+        const tree = ctx.tree();
+        if (!opts.reason)
+            throw new UsageError("--reason is required", { hint: 'say why: --reason "another book\'s image, same number"' });
+        const m = requireRecord(tree, normId(args[0]), "media");
+        if (m.retracted)
+            return { text: `${m.id} is already retracted: ${m.retracted.reason}`, data: { media: m } };
+        const citing = tree.list("source").filter((s) => !s.retracted && (s.media?.includes(m.id) || s.clips?.some((c) => c.media === m.id)));
+        if (citing.length)
+            throw new UsageError(`${m.id} is cited by ${citing.map((s) => s.id).join(", ")}`, { hint: `move them to the right image first: strom source show ${citing[0].id}` });
+        const out = update(tree, m.id, "media", (x) => ({ ...x, retracted: { at: now(), reason: String(opts.reason) } }), { op: "media.retract", summary: `${m.id} retracted: ${truncate(String(opts.reason), 80)}` });
+        return { text: lines(...tree.written.map((o) => o.summary)), data: { media: out } };
+    },
 }, {
     path: ["media", "view"],
     summary: "Make a view of an image to look at: a crop, a half page, enlarged, more contrast, a grid",
@@ -396,11 +424,17 @@ register({
         const fetchPart = canPart && v.scale > 1.25 && inWhole.w * inWhole.h < 0.9
             ? `strom fetch ${from.name} --recordset ${whole.recordset} --images ${whole.image} --crop ${regionText(inWhole)}`
             : undefined;
+        // The same part as a clip of the source read in it: of the whole image where it is registered.
+        const clip = !t.media || (!spec.crop && !spec.half)
+            ? undefined
+            : whole && !whole.part
+                ? clipText({ media: whole.id, region: inWhole })
+                : clipText({ media: t.key, region: { x: v.region.x / v.original.width, y: v.region.y / v.original.height, w: v.region.w / v.original.width, h: v.region.h / v.original.height } });
         return {
-            text: lines(describeView(v, (p) => ctx.display(p), fetchPart), sharper
+            text: lines(describeView(v, (p) => ctx.display(p), fetchPart), clip ? `the source of an entry read here: --clip ${clip}` : undefined, sharper
                 ? `from ${sharper.part.id}, ${sharper.part.part ? "a part of the image fetched sharper" : "a sharper copy of the image"} (${sharper.gain.toFixed(1)}× the detail of ${sharper.part.part ? "the whole image" : t.media.id})`
                 : undefined, page ? `page ${page}` : undefined),
-            data: { view: v.file, width: v.width, height: v.height, scale: v.scale, region: v.region, original: v.original, image: t.key, ...(sharper ? { from: sharper.part.id } : {}), page: page || undefined },
+            data: { view: v.file, width: v.width, height: v.height, scale: v.scale, region: v.region, original: v.original, image: t.key, ...(sharper ? { from: sharper.part.id } : {}), page: page || undefined, ...(clip ? { clip } : {}) },
         };
     },
 });

package/dist/commands/meta.js

@@ -17,10 +17,11 @@ import { gitVersion } from "../core/git.js";
 import { linuxGitCommand } from "../core/deps.js";
 import { verifyFast } from "../core/integrity.js";
 import { currentSession, openSessions } from "../core/session.js";
+import { readByOtherModels } from "../core/review.js";
 import { liveHolder } from "../core/lock.js";
 import { isAgent } from "../core/which.js";
 import { taskQueue, waitingForUser, waitingLines } from "./tasks.js";
-import { liveWorkers } from "../core/workers.js";
+import { liveWorkers, runAlive } from "../core/workers.js";
 import { label } from "../core/people.js";
 function orientation(ctx) {
     const lang = ctx.uiLang();
@@ -81,10 +82,33 @@ function orientation(ctx) {
     const out = path.join(tree.root, "output");
     const wanted = ctx.settings.config.stromApp !== "no";
     const file = path.join(out, wanted ? "tree-strom.ged" : "tree.ged");
+    // What a conversation tells the user once, not again after it starts afresh (a new conversation, /clear): the Strom app, the stories, asking here.
+    const told = ctx.settings.config.told ?? {};
     if (fs.existsSync(file))
-        base.results = { file, app: !wanted ? "not-wanted" : installedStromApp(ctx.env) ? "installed" : "offer" };
+        base.results = { file, app: !wanted ? "not-wanted" : installedStromApp(ctx.env, process.platform, stromAppUrl(ctx.settings)) ? "installed" : "offer", ...(told.app ? { told: true } : {}) };
+    const vision = ctx.settings.models(ctx.settings.agent(tree.config).value, tree.config).vision;
+    if (vision) {
+        const other = readByOtherModels(tree, vision);
+        if (other.facts)
+            base.reread = { ...other, model: vision };
+    }
     const stories = ctx.settings.stories(tree.config);
-    base.stories = !stories.on ? "off" : stories.said ? "on" : "tell";
+    base.stories = !stories.on ? "off" : stories.said || told.stories ? "on" : "tell";
+    if (!told.ask && base.tree.persons > 0)
+        base.ask = true;
+    // Given to an agent in a conversation (not a run nobody watches, not a person): told now.
+    if (isAgent(ctx.env) && !ctx.env.STROM_SESSION) {
+        const now = new Date().toISOString();
+        const fresh = {
+            ...(base.stories === "tell" ? { stories: now } : {}),
+            ...(base.results && base.results.app !== "not-wanted" && !base.results.told ? { app: now } : {}),
+            ...(base.ask ? { ask: now } : {}),
+        };
+        if (Object.keys(fresh).length) {
+            ctx.settings.config.told = { ...told, ...fresh };
+            ctx.settings.save();
+        }
+    }
     // The session this agent works in; else one nobody is working in any more.
     const busy = (s) => (s.worker && workers.some((w) => w.id === s.worker)) || (s.runner && workers.some((w) => w.id === "run"));
     const open = currentSession(tree, ctx.env) ?? sessions.find((s) => !busy(s) && !(s.worker && s.worker !== ctx.env.STROM_WORKER && !human));
@@ -98,7 +122,7 @@ function orientation(ctx) {
         base.next = { why: t("ui.why.check"), command: "strom check" };
     else if (elsewhere)
         base.next = { why: t("ui.why.handover"), command: "strom chat" };
-    else if (open && human && open.runner && !liveHolder(path.join(tree.root, ".strom", "run.lock")))
+    else if (open && human && open.runner && !runAlive(tree.root, open))
         base.next = { why: t("ui.why.runleft", { id: open.id }), command: "strom run" };
     else if (open && human && open.runner)
         base.next = { why: t("ui.why.running", { id: open.id }), command: "strom status" };
@@ -132,18 +156,18 @@ register({
         const lang = ctx.uiLang();
         const t = (key, values = {}) => ui(lang, key, values);
         // Labels in one column, whatever their length in the user's language.
-        const labels = [t("ui.o.home"), t("ui.o.tree"), t("ui.o.lang"), t("ui.o.data"), t("ui.o.results"), t("ui.o.stories"), t("ui.o.update"), t("ui.o.next")];
+        const labels = [t("ui.o.home"), t("ui.o.tree"), t("ui.o.lang"), t("ui.o.data"), t("ui.o.results"), t("ui.o.stories"), t("ui.o.ask"), t("ui.o.reread"), t("ui.o.update"), t("ui.o.next")];
         const width = Math.max(...labels.map((l) => l.length)) + 2;
         const row = (label, value) => `${label.padEnd(width)}${value}`;
         const check = o.tree ? `${o.tree.errors ? t("ui.o.errors", { n: o.tree.errors }) : t("ui.o.ok")}${o.tree.warnings ? `, ${t("ui.o.warnings", { n: o.tree.warnings })}` : ""}` : "";
         const text = lines(t("ui.o.title", { version: o.version }), t("ui.o.rule"), "", row(t("ui.o.home"), o.home ? ctx.display(o.home) : t("ui.o.notsetup")), o.update ? row(t("ui.o.update"), t("ui.o.update.new", { version: o.update, current: o.version })) : undefined, o.tree
             ? lines(row(t("ui.o.tree"), `${o.tree.name}  (${ctx.display(o.tree.root)})`), row(t("ui.o.lang"), `${langName(o.tree.lang, lang)} (${o.tree.lang}) — ${t("ui.o.langnote")}`), row(t("ui.o.data"), t("ui.o.counts", { persons: o.tree.persons, families: o.tree.families, check })), o.results
                 ? row(t("ui.o.results"), t(o.results.app === "installed"
-                    ? appOpensResearch(ctx.env) ? "ui.o.results.installed.live" : "ui.o.results.installed"
+                    ? appOpensResearch(ctx.settings) && !o.results.told ? "ui.o.results.installed.live" : "ui.o.results.installed"
                     : o.results.app === "offer"
-                        ? appOpensResearch(ctx.env) ? "ui.o.results.offer.live" : "ui.o.results.offer"
-                        : "ui.o.results.plain", { file: ctx.display(o.results.file), url: stromAppUrl(ctx.env) }))
-                : undefined, o.stories ? row(t("ui.o.stories"), t(`ui.o.stories.${o.stories}`)) : undefined, o.researches?.length
+                        ? o.results.told ? "ui.o.results.offered" : appOpensResearch(ctx.settings) ? "ui.o.results.offer.live" : "ui.o.results.offer"
+                        : "ui.o.results.plain", { file: ctx.display(o.results.file), url: stromAppUrl(ctx.settings) }))
+                : undefined, o.stories ? row(t("ui.o.stories"), t(`ui.o.stories.${o.stories}`)) : undefined, o.ask ? row(t("ui.o.ask"), t("ui.o.ask.tell")) : undefined, o.reread ? row(t("ui.o.reread"), t("ui.o.reread.offer", { n: o.reread.facts, models: o.reread.models.join(", "), model: o.reread.model })) : undefined, o.researches?.length
                 ? t("ui.o.research") + "\n" + table(o.researches.map((r) => [`  ${r.id}`, r.name, `[${r.state}]`, r.focus]))
                 : t("ui.o.research.none"), o.working?.length
                 ? t("ui.o.working") + "\n" + table(o.working.map((w) => [`  ${w.who}`, t("ui.o.since", { time: w.since.slice(11, 16) }), w.task ? t("ui.o.on", { task: w.task }) : ""]))