strom-research 1.22.0 → 1.22.1

package/CHANGELOG.cs.md

@@ -5,6 +5,15 @@
 Změny každé verze ve zkratce. Úplné poznámky a instalační řádky jsou na
 [GitHub Releases](https://github.com/ACiDekCZ/strom-research/releases) (anglicky).
 
+## 1.22.1
+
+*29. 10. 2026 · patří k aplikaci Strom 3.17.0.*
+
+- **Událost místa se u regionu nezapíše znovu.** Když se dějiny místa hledaly dřív než dějiny regionů, do kterých
+  patří, mohly dějiny regionu přidat tutéž událost ještě jednou (stejný druh, stejné roky). Region teď vynechá, co už
+  má některé z jeho míst; událost, která se týkala celého regionu, se zapíše dál. To, co agent k místu čte, říká
+  i to, které z jeho regionů se ještě neprošly.
+
 ## 1.22.0
 
 *29. 10. 2026 · patří k aplikaci Strom 3.17.0.*

package/CHANGELOG.de.md

@@ -5,6 +5,16 @@
 Die Änderungen jeder Version in Kürze. Die vollständigen Hinweise und die Installationszeilen stehen bei
 [GitHub Releases](https://github.com/ACiDekCZ/strom-research/releases) (auf Englisch).
 
+## 1.22.1
+
+*29.10.2026 · gehört zur Strom-App 3.17.0.*
+
+- **Ein Ereignis eines Ortes wird bei seiner Region nicht noch einmal geschrieben.** Wurde die Geschichte eines Ortes
+  vor den Regionen gesucht, zu denen er gehört, konnte die Geschichte der Region dasselbe Ereignis noch einmal
+  hinzufügen (dieselbe Art, dieselben Jahre). Die Region lässt jetzt aus, was einer ihrer Orte schon hat; ein
+  Ereignis, das die ganze Region betraf, wird weiter geschrieben. Was der Agent zu einem Ort liest, sagt auch, welche
+  seiner Regionen noch nicht durchgesehen sind.
+
 ## 1.22.0
 
 *29.10.2026 · gehört zur Strom-App 3.17.0.*

package/CHANGELOG.md

@@ -5,6 +5,15 @@ English · [Čeština](CHANGELOG.cs.md) · [Deutsch](CHANGELOG.de.md)
 The changes of each version in short. The full notes and the install lines are on
 [GitHub Releases](https://github.com/ACiDekCZ/strom-research/releases).
 
+## 1.22.1
+
+*2026-10-29 · goes with the Strom app 3.17.0.*
+
+- **An event of a place is not written again for its region.** When the history of a place was looked for before the
+  regions it lies in, the region's history could add the same event once more (the same kind, the same years). The
+  region now leaves out what one of its places has already; an event that touched the whole region is still written.
+  What the agent reads for a place also says which of its regions are not looked through yet.
+
 ## 1.22.0
 
 *2026-10-29 · goes with the Strom app 3.17.0.*

package/dist/brief/history.js

@@ -200,6 +200,9 @@ function placeSections(tree, id, shared, alone) {
     const events = c?.events ?? [];
     const live = events.filter((e) => !e.retracted);
     const theirs = regionEventsAt(tree, shared, p.id, at);
+    // its regions not looked through yet (K7.1a): what touched the whole region is theirs, written when they are
+    const maps = readPlaces(tree);
+    const waiting = [...new Set((at?.keys ?? []).flatMap((k) => maps[k]?.regions ?? []).map((g) => g.id))].filter((g) => !shared || !readCatalog(shared, g)?.done);
     const out = [];
     out.push({
         name: "history",
@@ -237,6 +240,9 @@ function placeSections(tree, id, shared, alone) {
                 : ["  none yet"]),
             theirs.length ? `The regions' events at this place in its years (${theirs.length}) — the Strom app shows them here already, never written for the place (refused):` : "No region's event at this place yet.",
             ...theirs.slice(0, EVENTS_SHOWN).map(({ event: e, region }) => `  ${e.id} ${years(e.from, e.to)} ${e.kind} (${region.region.id}) "${short(e.text[lang] ?? e.text.en ?? Object.values(e.text)[0] ?? "")}"`),
+            waiting.length
+                ? `Regions of this place not looked through yet (${waiting.join(", ")}): what touched the whole region (a war of the land, its epidemic, a reform of the state) is theirs, written when they are — here only what happened at the place or near enough to touch its people`
+                : "",
             c?.tried.length ? `Pages strom could not read (never tried again): ${c.tried.slice(-20).map((t) => `${t.url} (${short(t.why, 40)})`).join(" · ")}` : "",
         ].filter(Boolean).join("\n"),
     });

package/dist/commands/history.js

@@ -15,7 +15,7 @@ import { resolvePerson } from "../core/people.js";
 import { checkQuotes, cleanText, findPassages, mainQuote, pageParts, PageError, quotesShape, readPage, PART_CHARS } from "../core/pagecheck.js";
 import { currentSession } from "../core/session.js";
 import { addLocalEvent, addRegionEvent, askFirst, assignPlace, checkKind, checkTexts, checkYears, deleteEvent, ensureRegion, factPlaceKey, hideEvent, historyAnswer, historyStatus, forGaps, forHistory, gapsOfTask, gapText, historyOrder, historyHeld, historyTurn, mapPlace, raiseHistoryTasks, markDone, donePeriod, noteTried, readCatalog, redoRegion, refuseBeforePage, REGION_LANGS, regionIdOk, regionOfTask, requireHistoryOn, requireRegionId, retractEvent, skipHistory, EVENT_KINDS, yearsToSearch, whoSees, readPlaces, inRegion, regionName, placeRecordOf, } from "../core/pastevents.js";
-import { addPlaceEvent, askPlace, refusePlaceAsk, ensurePlaceCatalog, markPlaceDone, factsByRecord, notePlaceTried, placeEstimate, placeKeyOf, placeLabel, placeOfTask, readPlaceCatalog, refusePlaceBeforePage, requirePlace, setArea, yearsAt, } from "../core/placehistory.js";
+import { addPlaceEvent, askPlace, refusePlaceAsk, ensurePlaceCatalog, markPlaceDone, factsByRecord, notePlaceTried, placeEstimate, placeKeyOf, placeLabel, placeOfTask, readPlaceCatalog, refusePlaceBeforePage, refusePlaceSame, requirePlace, setArea, yearsAt, } from "../core/placehistory.js";
 // strom history list
 import { moreLine, paginate } from "../cli/format.js";
 import { displayName } from "../core/people.js";
@@ -336,8 +336,11 @@ register({
         }
         if (place)
             refusePlaceBeforePage(tree, sh, place, { kind, from, to }, s, url);
-        else
+        else {
             refuseBeforePage(sh, region, { kind, from, to }, s, url);
+            if (!s.sameAs && !s.distinct)
+                refusePlaceSame(tree, sh, region, { kind, from, to });
+        }
         let checked;
         try {
             checked = await checkQuotes(url, quotes, { from, to }, sh, ctx.env);
@@ -363,6 +366,9 @@ register({
             sha: checked.page.sha,
         };
         const event = { from, to, ...(date ? { date } : {}), kind, text, ...(why ? { why } : {}), ...(tip ? { tip } : {}), ...(opts.sensitive ? { sensitive: true } : {}), source };
+        // a place looked for before its region (K7.1a): its own events checked again once the page is read
+        if (!place && !s.sameAs && !s.distinct)
+            refusePlaceSame(tree, sh, region, { kind, from, to });
         const r = place ? addPlaceEvent(tree, sh, place, event, s) : addRegionEvent(sh, tree.config.id, { region: region, ...event }, s);
         const where = place ? `at ${placeLabel(place, "en")} (${place.id}) and its surroundings` : `in ${region}`;
         // who it shows at (their person in the Strom app, their story): for the agent to say to the person who asked

package/dist/core/placehistory.js

@@ -218,6 +218,39 @@ export function regionEventsAt(tree, shared, id, at = factsByRecord(tree).get(id
     }
     return [...out.values()].sort((a, b) => a.event.from - b.event.from || a.event.id.localeCompare(b.event.id));
 }
+/**
+ * The own events of the tree's places that belong to a region in the years of an event (their facts' places mapped to
+ * it): the mirror of regionEventsAt, for a place looked for before its region (spec 020 K7.1a). Not taken back.
+ */
+export function placeEventsIn(tree, shared, region, e) {
+    if (!shared)
+        return [];
+    const maps = readPlaces(tree);
+    const folded = new Map(Object.entries(maps).map(([k, v]) => [foldText(k), v]));
+    const out = [];
+    for (const [id, at] of factsByRecord(tree)) {
+        const inIt = at.keys.some((key) => ((maps[key] ?? folded.get(foldText(key)))?.regions ?? []).some((g) => g.id === region && inRegion(e, g)));
+        const p = inIt ? placeRecord(tree, id) : undefined;
+        if (!p)
+            continue;
+        for (const x of readPlaceCatalog(shared, placeKeyOf(tree, p))?.events ?? [])
+            if (!x.retracted)
+                out.push({ event: x, place: p });
+    }
+    return out.sort((a, b) => a.event.from - b.event.from || a.event.id.localeCompare(b.event.id));
+}
+/** An event of one of the region's places of the same kind and years: the region's history never writes it again. */
+export function refusePlaceSame(tree, shared, region, e) {
+    const same = placeEventsIn(tree, shared, region, e).filter((x) => x.event.kind === e.kind && x.event.from <= e.to && e.from <= x.event.to);
+    if (!same.length)
+        return;
+    const ids = same.map((x) => `${x.event.id} (${x.place.id})`);
+    throw new UsageError(`an event of a place of ${region} of the same kind and years is there already: ${ids.join(", ")} — nothing written`, {
+        code: "history.same.place",
+        params: { ids: same.map((x) => x.event.id).join(", ") },
+        hint: `the place's event shows there already — leave it out; an event of the whole region (it touched its other places too): --distinct "<why it is another>"`,
+    });
+}
 // ── the person's asks ──────────────────────────────────────────────────────
 export function readPlaceAsks(tree) {
     try {

package/dist/core/tree.js

@@ -29,7 +29,7 @@ export const TREE_FILE = "strom.json";
 export const SEAL_FOREIGN = "seal.foreign";
 // between releases the candidate being made (a bridge run from the sources says what it is: the Strom app goes by it);
 // at a release the release's own (package.json)
-export const VERSION = "1.22.0";
+export const VERSION = "1.22.1";
 const GITIGNORE = `# Strom Research — local state and large files are not versioned
 .strom/
 /media/

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "strom-research",
-  "version": "1.22.0",
+  "version": "1.22.1",
   "description": "Genealogical research toolkit for AI coding agents",
   "type": "module",
   "bin": {