@fieldia/core 0.30.1 → 0.31.0

package/src/lib/record/quiz.js

@@ -0,0 +1,90 @@
+"use strict";
+Object.defineProperty(exports, "__esModule", { value: true });
+exports.quizResults = quizResults;
+/** Sums of tenths and the like without a computer's crumbs: 0.1 + 0.2 is 0.3. */
+const tidy = (n) => Math.round(n * 1e9) / 1e9;
+const empty = (value) => value === null || value === undefined || value === '' || (Array.isArray(value) && value.length === 0);
+/** A word as a person may write it: its case and the spaces round and inside it aside. */
+const plain = (value) => String(value).trim().replace(/\s+/g, ' ').toLocaleLowerCase();
+/** What a question's quiz says, by its kind: its right answers and points, or null for a question that is none. */
+function quizOf(def) {
+    if (!def)
+        return null;
+    if (def.type === 'selection') {
+        const marked = def.options.some((option) => option.correct === true || option.score !== undefined);
+        return marked ? { options: def.options, answers: null, several: def.multiple === true } : null;
+    }
+    if ((def.type === 'char' || def.type === 'integer' || def.type === 'float') && def.quiz?.answers?.length)
+        return { options: null, answers: def.quiz.answers, several: false };
+    return null;
+}
+/** Whether a typed answer is one the question takes: a number by its value, words whatever their case and spaces. */
+function takes(answers, value, numeric) {
+    if (empty(value))
+        return false;
+    if (numeric)
+        return answers.some((answer) => Number(answer) === Number(value));
+    return answers.some((answer) => plain(answer) === plain(value));
+}
+/**
+ * A quiz's results for the answers sent, in the order the questions were asked (`asked`, the fields whose answers were
+ * sent: a question not shown, its step skipped, is none). Null where no question asked earns points or has right
+ * answers.
+ */
+function quizResults(page, values, asked = Object.keys(values)) {
+    const each = page.quiz?.points ?? 1;
+    const showRight = page.quiz?.rightAnswers !== false;
+    const questions = [];
+    for (const field of asked) {
+        const def = page.fields[field];
+        const quiz = quizOf(def);
+        if (!quiz || !def)
+            continue;
+        const answer = values[field];
+        const answered = !empty(answer);
+        const worth = def.quiz?.points ?? each;
+        let points = 0;
+        let max = 0;
+        let right = null;
+        let rightAnswer;
+        if (quiz.options) {
+            const chosen = quiz.several ? (Array.isArray(answer) ? answer : []) : answered ? [answer] : [];
+            const scored = quiz.options.some((option) => option.score !== undefined);
+            const correct = quiz.options.filter((option) => option.correct === true);
+            if (correct.length) {
+                // Several: right when exactly the right ones are chosen; one: right when the one chosen is a right one.
+                right = quiz.several ? chosen.length === correct.length && correct.every((option) => chosen.includes(option.value)) : chosen.length === 1 && correct.some((option) => option.value === chosen[0]);
+                rightAnswer = quiz.several ? correct.map((option) => option.value) : correct[0].value;
+            }
+            if (scored) {
+                // Points by the options chosen, as `scoreOf` counts them: the best of one, every one worth something of several.
+                points = chosen.reduce((sum, value) => sum + (quiz.options?.find((option) => option.value === value)?.score ?? 0), 0);
+                max = quiz.several ? quiz.options.reduce((sum, option) => sum + Math.max(0, option.score ?? 0), 0) : quiz.options.reduce((most, option) => Math.max(most, option.score ?? 0), 0);
+            }
+            else {
+                points = right ? worth : 0;
+                max = worth;
+            }
+        }
+        else if (quiz.answers) {
+            right = takes(quiz.answers, answer, def.type !== 'char');
+            points = right ? worth : 0;
+            max = worth;
+            rightAnswer = quiz.answers[0];
+        }
+        const feedback = right === null ? undefined : def.quiz?.feedback?.[right ? 'right' : 'wrong'];
+        questions.push({
+            field,
+            points: tidy(points),
+            max: tidy(max),
+            right,
+            answered,
+            ...(right === false && showRight && rightAnswer !== undefined ? { rightAnswer } : {}),
+            ...(feedback ? { feedback } : {}),
+        });
+    }
+    if (!questions.length)
+        return null;
+    return { score: tidy(questions.reduce((sum, mark) => sum + mark.points, 0)), max: tidy(questions.reduce((sum, mark) => sum + mark.max, 0)), questions };
+}
+//# sourceMappingURL=quiz.js.map

package/src/lib/record/quiz.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"quiz.js","sourceRoot":"","sources":["../../../../../../libs/core/src/lib/record/quiz.ts"],"names":[],"mappings":";;AA+DA,kCAmDC;AAhFD,iFAAiF;AACjF,MAAM,IAAI,GAAG,CAAC,CAAS,EAAE,EAAE,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC,GAAG,GAAG,CAAC,GAAG,GAAG,CAAC;AACtD,MAAM,KAAK,GAAG,CAAC,KAAc,EAAE,EAAE,CAAC,KAAK,KAAK,IAAI,IAAI,KAAK,KAAK,SAAS,IAAI,KAAK,KAAK,EAAE,IAAI,CAAC,KAAK,CAAC,OAAO,CAAC,KAAK,CAAC,IAAI,KAAK,CAAC,MAAM,KAAK,CAAC,CAAC,CAAC;AACxI,0FAA0F;AAC1F,MAAM,KAAK,GAAG,CAAC,KAAc,EAAE,EAAE,CAAC,MAAM,CAAC,KAAK,CAAC,CAAC,IAAI,EAAE,CAAC,OAAO,CAAC,MAAM,EAAE,GAAG,CAAC,CAAC,iBAAiB,EAAE,CAAC;AAEhG,mHAAmH;AACnH,SAAS,MAAM,CAAC,GAAsB;IACpC,IAAI,CAAC,GAAG;QAAE,OAAO,IAAI,CAAC;IACtB,IAAI,GAAG,CAAC,IAAI,KAAK,WAAW,EAAE,CAAC;QAC7B,MAAM,MAAM,GAAG,GAAG,CAAC,OAAO,CAAC,IAAI,CAAC,CAAC,MAAM,EAAE,EAAE,CAAC,MAAM,CAAC,OAAO,KAAK,IAAI,IAAI,MAAM,CAAC,KAAK,KAAK,SAAS,CAAC,CAAC;QACnG,OAAO,MAAM,CAAC,CAAC,CAAC,EAAE,OAAO,EAAE,GAAG,CAAC,OAAO,EAAE,OAAO,EAAE,IAAI,EAAE,OAAO,EAAE,GAAG,CAAC,QAAQ,KAAK,IAAI,EAAE,CAAC,CAAC,CAAC,IAAI,CAAC;IACjG,CAAC;IACD,IAAI,CAAC,GAAG,CAAC,IAAI,KAAK,MAAM,IAAI,GAAG,CAAC,IAAI,KAAK,SAAS,IAAI,GAAG,CAAC,IAAI,KAAK,OAAO,CAAC,IAAI,GAAG,CAAC,IAAI,EAAE,OAAO,EAAE,MAAM;QAAE,OAAO,EAAE,OAAO,EAAE,IAAI,EAAE,OAAO,EAAE,GAAG,CAAC,IAAI,CAAC,OAAO,EAAE,OAAO,EAAE,KAAK,EAAE,CAAC;IAC9K,OAAO,IAAI,CAAC;AACd,CAAC;AAED,qHAAqH;AACrH,SAAS,KAAK,CAAC,OAAqC,EAAE,KAAc,EAAE,OAAgB;IACpF,IAAI,KAAK,CAAC,KAAK,CAAC;QAAE,OAAO,KAAK,CAAC;IAC/B,IAAI,OAAO;QAAE,OAAO,OAAO,CAAC,IAAI,CAAC,CAAC,MAAM,EAAE,EAAE,CAAC,MAAM,CAAC,MAAM,CAAC,KAAK,MAAM,CAAC,KAAK,CAAC,CAAC,CAAC;IAC/E,OAAO,OAAO,CAAC,IAAI,CAAC,CAAC,MAAM,EAAE,EAAE,CAAC,KAAK,CAAC,MAAM,CAAC,KAAK,KAAK,CAAC,KAAK,CAAC,CAAC,CAAC;AAClE,CAAC;AAED;;;;GAIG;AACH,SAAgB,WAAW,CAAC,IAAU,EAAE,MAAc,EAAE,QAA2B,MAAM,CAAC,IAAI,CAAC,MAAM,CAAC;IACpG,MAAM,IAAI,GAAG,IAAI,CAAC,IAAI,EAAE,MAAM,IAAI,CAAC,CAAC;IACpC,MAAM,SAAS,GAAG,IAAI,CAAC,IAAI,EAAE,YAAY,KAAK,KAAK,CAAC;IACpD,MAAM,SAAS,GAAe,EAAE,CAAC;IACjC,KAAK,MAAM,KAAK,IAAI,KAAK,EAAE,CAAC;QAC1B,MAAM,GAAG,GAAG,IAAI,CAAC,MAAM,CAAC,KAAK,CAAC,CAAC;QAC/B,MAAM,IAAI,GAAG,MAAM,CAAC,GAAG,CAAC,CAAC;QACzB,IAAI,CAAC,IAAI,IAAI,CAAC,GAAG;YAAE,SAAS;QAC5B,MAAM,MAAM,GAAG,MAAM,CAAC,KAAK,CAAC,CAAC;QAC7B,MAAM,QAAQ,GAAG,CAAC,KAAK,CAAC,MAAM,CAAC,CAAC;QAChC,MAAM,KAAK,GAAI,GAAsC,CAAC,IAAI,EAAE,MAAM,IAAI,IAAI,CAAC;QAC3E,IAAI,MAAM,GAAG,CAAC,CAAC;QACf,IAAI,GAAG,GAAG,CAAC,CAAC;QACZ,IAAI,KAAK,GAAmB,IAAI,CAAC;QACjC,IAAI,WAA8B,CAAC;QACnC,IAAI,IAAI,CAAC,OAAO,EAAE,CAAC;YACjB,MAAM,MAAM,GAAc,IAAI,CAAC,OAAO,CAAC,CAAC,CAAC,CAAC,KAAK,CAAC,OAAO,CAAC,MAAM,CAAC,CAAC,CAAC,CAAC,MAAM,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC,QAAQ,CAAC,CAAC,CAAC,CAAC,MAAM,CAAC,CAAC,CAAC,CAAC,EAAE,CAAC;YAC1G,MAAM,MAAM,GAAG,IAAI,CAAC,OAAO,CAAC,IAAI,CAAC,CAAC,MAAM,EAAE,EAAE,CAAC,MAAM,CAAC,KAAK,KAAK,SAAS,CAAC,CAAC;YACzE,MAAM,OAAO,GAAG,IAAI,CAAC,OAAO,CAAC,MAAM,CAAC,CAAC,MAAM,EAAE,EAAE,CAAC,MAAM,CAAC,OAAO,KAAK,IAAI,CAAC,CAAC;YACzE,IAAI,OAAO,CAAC,MAAM,EAAE,CAAC;gBACnB,wGAAwG;gBACxG,KAAK,GAAG,IAAI,CAAC,OAAO,CAAC,CAAC,CAAC,MAAM,CAAC,MAAM,KAAK,OAAO,CAAC,MAAM,IAAI,OAAO,CAAC,KAAK,CAAC,CAAC,MAAM,EAAE,EAAE,CAAC,MAAM,CAAC,QAAQ,CAAC,MAAM,CAAC,KAAK,CAAC,CAAC,CAAC,CAAC,CAAC,MAAM,CAAC,MAAM,KAAK,CAAC,IAAI,OAAO,CAAC,IAAI,CAAC,CAAC,MAAM,EAAE,EAAE,CAAC,MAAM,CAAC,KAAK,KAAK,MAAM,CAAC,CAAC,CAAC,CAAC,CAAC;gBAClM,WAAW,GAAG,IAAI,CAAC,OAAO,CAAC,CAAC,CAAC,OAAO,CAAC,GAAG,CAAC,CAAC,MAAM,EAAE,EAAE,CAAC,MAAM,CAAC,KAAK,CAAC,CAAC,CAAC,CAAC,OAAO,CAAC,CAAC,CAAC,CAAC,KAAK,CAAC;YACxF,CAAC;YACD,IAAI,MAAM,EAAE,CAAC;gBACX,iHAAiH;gBACjH,MAAM,GAAG,MAAM,CAAC,MAAM,CAAC,CAAC,GAAW,EAAE,KAAK,EAAE,EAAE,CAAC,GAAG,GAAG,CAAC,IAAI,CAAC,OAAO,EAAE,IAAI,CAAC,CAAC,MAAM,EAAE,EAAE,CAAC,MAAM,CAAC,KAAK,KAAK,KAAK,CAAC,EAAE,KAAK,IAAI,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC;gBAC9H,GAAG,GAAG,IAAI,CAAC,OAAO,CAAC,CAAC,CAAC,IAAI,CAAC,OAAO,CAAC,MAAM,CAAC,CAAC,GAAG,EAAE,MAAM,EAAE,EAAE,CAAC,GAAG,GAAG,IAAI,CAAC,GAAG,CAAC,CAAC,EAAE,MAAM,CAAC,KAAK,IAAI,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,OAAO,CAAC,MAAM,CAAC,CAAC,IAAI,EAAE,MAAM,EAAE,EAAE,CAAC,IAAI,CAAC,GAAG,CAAC,IAAI,EAAE,MAAM,CAAC,KAAK,IAAI,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC;YACnL,CAAC;iBAAM,CAAC;gBACN,MAAM,GAAG,KAAK,CAAC,CAAC,CAAC,KAAK,CAAC,CAAC,CAAC,CAAC,CAAC;gBAC3B,GAAG,GAAG,KAAK,CAAC;YACd,CAAC;QACH,CAAC;aAAM,IAAI,IAAI,CAAC,OAAO,EAAE,CAAC;YACxB,KAAK,GAAG,KAAK,CAAC,IAAI,CAAC,OAAO,EAAE,MAAM,EAAE,GAAG,CAAC,IAAI,KAAK,MAAM,CAAC,CAAC;YACzD,MAAM,GAAG,KAAK,CAAC,CAAC,CAAC,KAAK,CAAC,CAAC,CAAC,CAAC,CAAC;YAC3B,GAAG,GAAG,KAAK,CAAC;YACZ,WAAW,GAAG,IAAI,CAAC,OAAO,CAAC,CAAC,CAAC,CAAC;QAChC,CAAC;QACD,MAAM,QAAQ,GAAG,KAAK,KAAK,IAAI,CAAC,CAAC,CAAC,SAAS,CAAC,CAAC,CAAE,GAAoE,CAAC,IAAI,EAAE,QAAQ,EAAE,CAAC,KAAK,CAAC,CAAC,CAAC,OAAO,CAAC,CAAC,CAAC,OAAO,CAAC,CAAC;QAChK,SAAS,CAAC,IAAI,CAAC;YACb,KAAK;YACL,MAAM,EAAE,IAAI,CAAC,MAAM,CAAC;YACpB,GAAG,EAAE,IAAI,CAAC,GAAG,CAAC;YACd,KAAK;YACL,QAAQ;YACR,GAAG,CAAC,KAAK,KAAK,KAAK,IAAI,SAAS,IAAI,WAAW,KAAK,SAAS,CAAC,CAAC,CAAC,EAAE,WAAW,EAAE,CAAC,CAAC,CAAC,EAAE,CAAC;YACrF,GAAG,CAAC,QAAQ,CAAC,CAAC,CAAC,EAAE,QAAQ,EAAE,CAAC,CAAC,CAAC,EAAE,CAAC;SAClC,CAAC,CAAC;IACL,CAAC;IACD,IAAI,CAAC,SAAS,CAAC,MAAM;QAAE,OAAO,IAAI,CAAC;IACnC,OAAO,EAAE,KAAK,EAAE,IAAI,CAAC,SAAS,CAAC,MAAM,CAAC,CAAC,GAAG,EAAE,IAAI,EAAE,EAAE,CAAC,GAAG,GAAG,IAAI,CAAC,MAAM,EAAE,CAAC,CAAC,CAAC,EAAE,GAAG,EAAE,IAAI,CAAC,SAAS,CAAC,MAAM,CAAC,CAAC,GAAG,EAAE,IAAI,EAAE,EAAE,CAAC,GAAG,GAAG,IAAI,CAAC,GAAG,EAAE,CAAC,CAAC,CAAC,EAAE,SAAS,EAAE,CAAC;AAC1J,CAAC"}

package/src/lib/record/quiz.mjs

@@ -0,0 +1,87 @@
+/** Sums of tenths and the like without a computer's crumbs: 0.1 + 0.2 is 0.3. */
+const tidy = (n) => Math.round(n * 1e9) / 1e9;
+const empty = (value) => value === null || value === undefined || value === '' || (Array.isArray(value) && value.length === 0);
+/** A word as a person may write it: its case and the spaces round and inside it aside. */
+const plain = (value) => String(value).trim().replace(/\s+/g, ' ').toLocaleLowerCase();
+/** What a question's quiz says, by its kind: its right answers and points, or null for a question that is none. */
+function quizOf(def) {
+    if (!def)
+        return null;
+    if (def.type === 'selection') {
+        const marked = def.options.some((option) => option.correct === true || option.score !== undefined);
+        return marked ? { options: def.options, answers: null, several: def.multiple === true } : null;
+    }
+    if ((def.type === 'char' || def.type === 'integer' || def.type === 'float') && def.quiz?.answers?.length)
+        return { options: null, answers: def.quiz.answers, several: false };
+    return null;
+}
+/** Whether a typed answer is one the question takes: a number by its value, words whatever their case and spaces. */
+function takes(answers, value, numeric) {
+    if (empty(value))
+        return false;
+    if (numeric)
+        return answers.some((answer) => Number(answer) === Number(value));
+    return answers.some((answer) => plain(answer) === plain(value));
+}
+/**
+ * A quiz's results for the answers sent, in the order the questions were asked (`asked`, the fields whose answers were
+ * sent: a question not shown, its step skipped, is none). Null where no question asked earns points or has right
+ * answers.
+ */
+export function quizResults(page, values, asked = Object.keys(values)) {
+    const each = page.quiz?.points ?? 1;
+    const showRight = page.quiz?.rightAnswers !== false;
+    const questions = [];
+    for (const field of asked) {
+        const def = page.fields[field];
+        const quiz = quizOf(def);
+        if (!quiz || !def)
+            continue;
+        const answer = values[field];
+        const answered = !empty(answer);
+        const worth = def.quiz?.points ?? each;
+        let points = 0;
+        let max = 0;
+        let right = null;
+        let rightAnswer;
+        if (quiz.options) {
+            const chosen = quiz.several ? (Array.isArray(answer) ? answer : []) : answered ? [answer] : [];
+            const scored = quiz.options.some((option) => option.score !== undefined);
+            const correct = quiz.options.filter((option) => option.correct === true);
+            if (correct.length) {
+                // Several: right when exactly the right ones are chosen; one: right when the one chosen is a right one.
+                right = quiz.several ? chosen.length === correct.length && correct.every((option) => chosen.includes(option.value)) : chosen.length === 1 && correct.some((option) => option.value === chosen[0]);
+                rightAnswer = quiz.several ? correct.map((option) => option.value) : correct[0].value;
+            }
+            if (scored) {
+                // Points by the options chosen, as `scoreOf` counts them: the best of one, every one worth something of several.
+                points = chosen.reduce((sum, value) => sum + (quiz.options?.find((option) => option.value === value)?.score ?? 0), 0);
+                max = quiz.several ? quiz.options.reduce((sum, option) => sum + Math.max(0, option.score ?? 0), 0) : quiz.options.reduce((most, option) => Math.max(most, option.score ?? 0), 0);
+            }
+            else {
+                points = right ? worth : 0;
+                max = worth;
+            }
+        }
+        else if (quiz.answers) {
+            right = takes(quiz.answers, answer, def.type !== 'char');
+            points = right ? worth : 0;
+            max = worth;
+            rightAnswer = quiz.answers[0];
+        }
+        const feedback = right === null ? undefined : def.quiz?.feedback?.[right ? 'right' : 'wrong'];
+        questions.push({
+            field,
+            points: tidy(points),
+            max: tidy(max),
+            right,
+            answered,
+            ...(right === false && showRight && rightAnswer !== undefined ? { rightAnswer } : {}),
+            ...(feedback ? { feedback } : {}),
+        });
+    }
+    if (!questions.length)
+        return null;
+    return { score: tidy(questions.reduce((sum, mark) => sum + mark.points, 0)), max: tidy(questions.reduce((sum, mark) => sum + mark.max, 0)), questions };
+}
+//# sourceMappingURL=quiz.mjs.map

package/src/lib/record/quiz.mjs.map

@@ -0,0 +1 @@
+{"version":3,"file":"quiz.mjs","sourceRoot":"","sources":["../../../../../../libs/core/src/lib/record/quiz.ts"],"names":[],"mappings":"AAkCA,iFAAiF;AACjF,MAAM,IAAI,GAAG,CAAC,CAAS,EAAE,EAAE,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC,GAAG,GAAG,CAAC,GAAG,GAAG,CAAC;AACtD,MAAM,KAAK,GAAG,CAAC,KAAc,EAAE,EAAE,CAAC,KAAK,KAAK,IAAI,IAAI,KAAK,KAAK,SAAS,IAAI,KAAK,KAAK,EAAE,IAAI,CAAC,KAAK,CAAC,OAAO,CAAC,KAAK,CAAC,IAAI,KAAK,CAAC,MAAM,KAAK,CAAC,CAAC,CAAC;AACxI,0FAA0F;AAC1F,MAAM,KAAK,GAAG,CAAC,KAAc,EAAE,EAAE,CAAC,MAAM,CAAC,KAAK,CAAC,CAAC,IAAI,EAAE,CAAC,OAAO,CAAC,MAAM,EAAE,GAAG,CAAC,CAAC,iBAAiB,EAAE,CAAC;AAEhG,mHAAmH;AACnH,SAAS,MAAM,CAAC,GAAsB;IACpC,IAAI,CAAC,GAAG;QAAE,OAAO,IAAI,CAAC;IACtB,IAAI,GAAG,CAAC,IAAI,KAAK,WAAW,EAAE,CAAC;QAC7B,MAAM,MAAM,GAAG,GAAG,CAAC,OAAO,CAAC,IAAI,CAAC,CAAC,MAAM,EAAE,EAAE,CAAC,MAAM,CAAC,OAAO,KAAK,IAAI,IAAI,MAAM,CAAC,KAAK,KAAK,SAAS,CAAC,CAAC;QACnG,OAAO,MAAM,CAAC,CAAC,CAAC,EAAE,OAAO,EAAE,GAAG,CAAC,OAAO,EAAE,OAAO,EAAE,IAAI,EAAE,OAAO,EAAE,GAAG,CAAC,QAAQ,KAAK,IAAI,EAAE,CAAC,CAAC,CAAC,IAAI,CAAC;IACjG,CAAC;IACD,IAAI,CAAC,GAAG,CAAC,IAAI,KAAK,MAAM,IAAI,GAAG,CAAC,IAAI,KAAK,SAAS,IAAI,GAAG,CAAC,IAAI,KAAK,OAAO,CAAC,IAAI,GAAG,CAAC,IAAI,EAAE,OAAO,EAAE,MAAM;QAAE,OAAO,EAAE,OAAO,EAAE,IAAI,EAAE,OAAO,EAAE,GAAG,CAAC,IAAI,CAAC,OAAO,EAAE,OAAO,EAAE,KAAK,EAAE,CAAC;IAC9K,OAAO,IAAI,CAAC;AACd,CAAC;AAED,qHAAqH;AACrH,SAAS,KAAK,CAAC,OAAqC,EAAE,KAAc,EAAE,OAAgB;IACpF,IAAI,KAAK,CAAC,KAAK,CAAC;QAAE,OAAO,KAAK,CAAC;IAC/B,IAAI,OAAO;QAAE,OAAO,OAAO,CAAC,IAAI,CAAC,CAAC,MAAM,EAAE,EAAE,CAAC,MAAM,CAAC,MAAM,CAAC,KAAK,MAAM,CAAC,KAAK,CAAC,CAAC,CAAC;IAC/E,OAAO,OAAO,CAAC,IAAI,CAAC,CAAC,MAAM,EAAE,EAAE,CAAC,KAAK,CAAC,MAAM,CAAC,KAAK,KAAK,CAAC,KAAK,CAAC,CAAC,CAAC;AAClE,CAAC;AAED;;;;GAIG;AACH,MAAM,UAAU,WAAW,CAAC,IAAU,EAAE,MAAc,EAAE,QAA2B,MAAM,CAAC,IAAI,CAAC,MAAM,CAAC;IACpG,MAAM,IAAI,GAAG,IAAI,CAAC,IAAI,EAAE,MAAM,IAAI,CAAC,CAAC;IACpC,MAAM,SAAS,GAAG,IAAI,CAAC,IAAI,EAAE,YAAY,KAAK,KAAK,CAAC;IACpD,MAAM,SAAS,GAAe,EAAE,CAAC;IACjC,KAAK,MAAM,KAAK,IAAI,KAAK,EAAE,CAAC;QAC1B,MAAM,GAAG,GAAG,IAAI,CAAC,MAAM,CAAC,KAAK,CAAC,CAAC;QAC/B,MAAM,IAAI,GAAG,MAAM,CAAC,GAAG,CAAC,CAAC;QACzB,IAAI,CAAC,IAAI,IAAI,CAAC,GAAG;YAAE,SAAS;QAC5B,MAAM,MAAM,GAAG,MAAM,CAAC,KAAK,CAAC,CAAC;QAC7B,MAAM,QAAQ,GAAG,CAAC,KAAK,CAAC,MAAM,CAAC,CAAC;QAChC,MAAM,KAAK,GAAI,GAAsC,CAAC,IAAI,EAAE,MAAM,IAAI,IAAI,CAAC;QAC3E,IAAI,MAAM,GAAG,CAAC,CAAC;QACf,IAAI,GAAG,GAAG,CAAC,CAAC;QACZ,IAAI,KAAK,GAAmB,IAAI,CAAC;QACjC,IAAI,WAA8B,CAAC;QACnC,IAAI,IAAI,CAAC,OAAO,EAAE,CAAC;YACjB,MAAM,MAAM,GAAc,IAAI,CAAC,OAAO,CAAC,CAAC,CAAC,CAAC,KAAK,CAAC,OAAO,CAAC,MAAM,CAAC,CAAC,CAAC,CAAC,MAAM,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC,QAAQ,CAAC,CAAC,CAAC,CAAC,MAAM,CAAC,CAAC,CAAC,CAAC,EAAE,CAAC;YAC1G,MAAM,MAAM,GAAG,IAAI,CAAC,OAAO,CAAC,IAAI,CAAC,CAAC,MAAM,EAAE,EAAE,CAAC,MAAM,CAAC,KAAK,KAAK,SAAS,CAAC,CAAC;YACzE,MAAM,OAAO,GAAG,IAAI,CAAC,OAAO,CAAC,MAAM,CAAC,CAAC,MAAM,EAAE,EAAE,CAAC,MAAM,CAAC,OAAO,KAAK,IAAI,CAAC,CAAC;YACzE,IAAI,OAAO,CAAC,MAAM,EAAE,CAAC;gBACnB,wGAAwG;gBACxG,KAAK,GAAG,IAAI,CAAC,OAAO,CAAC,CAAC,CAAC,MAAM,CAAC,MAAM,KAAK,OAAO,CAAC,MAAM,IAAI,OAAO,CAAC,KAAK,CAAC,CAAC,MAAM,EAAE,EAAE,CAAC,MAAM,CAAC,QAAQ,CAAC,MAAM,CAAC,KAAK,CAAC,CAAC,CAAC,CAAC,CAAC,MAAM,CAAC,MAAM,KAAK,CAAC,IAAI,OAAO,CAAC,IAAI,CAAC,CAAC,MAAM,EAAE,EAAE,CAAC,MAAM,CAAC,KAAK,KAAK,MAAM,CAAC,CAAC,CAAC,CAAC,CAAC;gBAClM,WAAW,GAAG,IAAI,CAAC,OAAO,CAAC,CAAC,CAAC,OAAO,CAAC,GAAG,CAAC,CAAC,MAAM,EAAE,EAAE,CAAC,MAAM,CAAC,KAAK,CAAC,CAAC,CAAC,CAAC,OAAO,CAAC,CAAC,CAAC,CAAC,KAAK,CAAC;YACxF,CAAC;YACD,IAAI,MAAM,EAAE,CAAC;gBACX,iHAAiH;gBACjH,MAAM,GAAG,MAAM,CAAC,MAAM,CAAC,CAAC,GAAW,EAAE,KAAK,EAAE,EAAE,CAAC,GAAG,GAAG,CAAC,IAAI,CAAC,OAAO,EAAE,IAAI,CAAC,CAAC,MAAM,EAAE,EAAE,CAAC,MAAM,CAAC,KAAK,KAAK,KAAK,CAAC,EAAE,KAAK,IAAI,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC;gBAC9H,GAAG,GAAG,IAAI,CAAC,OAAO,CAAC,CAAC,CAAC,IAAI,CAAC,OAAO,CAAC,MAAM,CAAC,CAAC,GAAG,EAAE,MAAM,EAAE,EAAE,CAAC,GAAG,GAAG,IAAI,CAAC,GAAG,CAAC,CAAC,EAAE,MAAM,CAAC,KAAK,IAAI,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,OAAO,CAAC,MAAM,CAAC,CAAC,IAAI,EAAE,MAAM,EAAE,EAAE,CAAC,IAAI,CAAC,GAAG,CAAC,IAAI,EAAE,MAAM,CAAC,KAAK,IAAI,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC;YACnL,CAAC;iBAAM,CAAC;gBACN,MAAM,GAAG,KAAK,CAAC,CAAC,CAAC,KAAK,CAAC,CAAC,CAAC,CAAC,CAAC;gBAC3B,GAAG,GAAG,KAAK,CAAC;YACd,CAAC;QACH,CAAC;aAAM,IAAI,IAAI,CAAC,OAAO,EAAE,CAAC;YACxB,KAAK,GAAG,KAAK,CAAC,IAAI,CAAC,OAAO,EAAE,MAAM,EAAE,GAAG,CAAC,IAAI,KAAK,MAAM,CAAC,CAAC;YACzD,MAAM,GAAG,KAAK,CAAC,CAAC,CAAC,KAAK,CAAC,CAAC,CAAC,CAAC,CAAC;YAC3B,GAAG,GAAG,KAAK,CAAC;YACZ,WAAW,GAAG,IAAI,CAAC,OAAO,CAAC,CAAC,CAAC,CAAC;QAChC,CAAC;QACD,MAAM,QAAQ,GAAG,KAAK,KAAK,IAAI,CAAC,CAAC,CAAC,SAAS,CAAC,CAAC,CAAE,GAAoE,CAAC,IAAI,EAAE,QAAQ,EAAE,CAAC,KAAK,CAAC,CAAC,CAAC,OAAO,CAAC,CAAC,CAAC,OAAO,CAAC,CAAC;QAChK,SAAS,CAAC,IAAI,CAAC;YACb,KAAK;YACL,MAAM,EAAE,IAAI,CAAC,MAAM,CAAC;YACpB,GAAG,EAAE,IAAI,CAAC,GAAG,CAAC;YACd,KAAK;YACL,QAAQ;YACR,GAAG,CAAC,KAAK,KAAK,KAAK,IAAI,SAAS,IAAI,WAAW,KAAK,SAAS,CAAC,CAAC,CAAC,EAAE,WAAW,EAAE,CAAC,CAAC,CAAC,EAAE,CAAC;YACrF,GAAG,CAAC,QAAQ,CAAC,CAAC,CAAC,EAAE,QAAQ,EAAE,CAAC,CAAC,CAAC,EAAE,CAAC;SAClC,CAAC,CAAC;IACL,CAAC;IACD,IAAI,CAAC,SAAS,CAAC,MAAM;QAAE,OAAO,IAAI,CAAC;IACnC,OAAO,EAAE,KAAK,EAAE,IAAI,CAAC,SAAS,CAAC,MAAM,CAAC,CAAC,GAAG,EAAE,IAAI,EAAE,EAAE,CAAC,GAAG,GAAG,IAAI,CAAC,MAAM,EAAE,CAAC,CAAC,CAAC,EAAE,GAAG,EAAE,IAAI,CAAC,SAAS,CAAC,MAAM,CAAC,CAAC,GAAG,EAAE,IAAI,EAAE,EAAE,CAAC,GAAG,GAAG,IAAI,CAAC,GAAG,EAAE,CAAC,CAAC,CAAC,EAAE,SAAS,EAAE,CAAC;AAC1J,CAAC"}

package/src/lib/record/record-words.js

@@ -37,7 +37,7 @@ function isQuestion(label) {
     return /([?؟？⸮]|…|\.\.\.)\s*$/u.test(label);
 }
 /** Each language's quotation marks round a question its sentence names: “…” where it has none of its own here. */
-const QUOTES = { de: ['„', '“'], fr: ['« ', ' »'], ar: ['«', '»'] };
+const QUOTES = { de: ['„', '“'], fr: ['« ', ' »'], ar: ['«', '»'], fa: ['«', '»'] };
 /**
  * A label as a sentence names it: a question (`isQuestion`) between the language's quotation marks — "Please answer
  * “How was your visit?”", "“How many days?” must be at most 5" — and a name as written.

package/src/lib/record/record-words.js.map

@@ -1 +1 @@
-{"version":3,"file":"record-words.js","sourceRoot":"","sources":["../../../../../../libs/core/src/lib/record/record-words.ts"],"names":[],"mappings":";;AAoBA,wCAMC;AAQD,gCAEC;AASD,kCAIC;AAwBD,0BAIC;AA5ED,mDAAoD;AAEpD,iGAAiG;AACjG,MAAM,KAAK,GAAG,+BAA+B,CAAC;AAE9C,uGAAuG;AACvG,MAAM,aAAa,GAAG,gBAAgB,CAAC;AAEvC,2FAA2F;AAC3F,MAAM,OAAO,GAAG,CAAC,KAAa,EAAE,EAAE,CAAC,CAAC,KAAK,CAAC,CAAC,CAAC,MAAM,CAAC,aAAa,CAAC,KAAK,CAAC,WAAW,CAAC,CAAC,CAAW,CAAC,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC;AACvG,MAAM,OAAO,GAAG,CAAC,KAAa,EAAE,MAAc,EAAE,EAAE,CAAC,OAAO,CAAC,KAAK,CAAC,CAAC,iBAAiB,CAAC,MAAM,CAAC,GAAG,KAAK,CAAC,KAAK,CAAC,OAAO,CAAC,KAAK,CAAC,CAAC,MAAM,CAAC,CAAC;AAEjI;;;;;;GAMG;AACH,SAAgB,cAAc,CAAC,OAAgC,EAAE,KAAyB,EAAE,KAAa,EAAE,MAAM,GAAG,IAAI;IACtH,MAAM,EAAE,GAAG,EAAE,KAAK,EAAE,CAAC,EAAE,GAAG,OAAO,IAAI,EAAE,CAAC;IACxC,IAAI,CAAC,GAAG,IAAI,CAAC,KAAK,IAAI,KAAK,KAAK,SAAS;QAAE,OAAO,KAAK,CAAC;IACxD,IAAI,KAAK,CAAC,QAAQ,CAAC,WAAW,CAAC,IAAI,CAAC,CAAC;QAAE,OAAO,KAAK,CAAC;IACpD,MAAM,MAAM,GAAG,KAAK,CAAC,OAAO,CAAC,KAAK,EAAE,CAAC,CAAC,EAAE,IAAY,EAAE,EAAE,CAAC,CAAC,IAAI,KAAK,QAAQ,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,IAAI,KAAK,SAAS,CAAC,CAAC,CAAC,KAAK,CAAC,CAAC,CAAE,CAAY,CAAC,CAAC,CAAC;IACjI,OAAO,+BAA+B,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC,CAAC,CAAC,OAAO,CAAC,MAAM,EAAE,MAAM,CAAC,CAAC,CAAC,CAAC,MAAM,CAAC;AACxF,CAAC;AAED,MAAM,SAAS,GAAG,CAAC,KAAa,EAAE,EAAE,CAAC,KAAK,CAAC;AAE3C;;;GAGG;AACH,SAAgB,UAAU,CAAC,KAAa;IACtC,OAAO,wBAAwB,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC;AAC9C,CAAC;AAED,kHAAkH;AAClH,MAAM,MAAM,GAA8C,EAAE,EAAE,EAAE,CAAC,GAAG,EAAE,GAAG,CAAC,EAAE,EAAE,EAAE,CAAC,IAAI,EAAE,IAAI,CAAC,EAAE,EAAE,EAAE,CAAC,GAAG,EAAE,GAAG,CAAC,EAAE,CAAC;AAE/G;;;GAGG;AACH,SAAgB,WAAW,CAAC,KAAa,EAAE,MAAM,GAAG,IAAI;IACtD,IAAI,CAAC,UAAU,CAAC,KAAK,CAAC;QAAE,OAAO,KAAK,CAAC;IACrC,MAAM,CAAC,IAAI,EAAE,KAAK,CAAC,GAAG,MAAM,CAAC,MAAM,CAAC,KAAK,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC,WAAW,EAAE,CAAC,IAAI,CAAC,GAAG,EAAE,GAAG,CAAC,CAAC;IAC/E,OAAO,GAAG,IAAI,GAAG,KAAK,CAAC,IAAI,EAAE,GAAG,KAAK,EAAE,CAAC;AAC1C,CAAC;AAED;;;;GAIG;AACH,MAAM,KAAK,GAAG,CAAC,MAAc,EAAE,EAAE,CAAC,CAAC,KAAa,EAAE,EAAE;IAClD,MAAM,IAAI,GAAG,KAAK,CAAC,KAAK,CAAC,IAAI,EAAE,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC;IACrC,IAAI,CAAC,gBAAgB,CAAC,IAAI,CAAC,IAAI,CAAC,IAAI,SAAS,CAAC,IAAI,CAAC,IAAI,CAAC,KAAK,CAAC,OAAO,CAAC,IAAI,CAAC,CAAC,MAAM,CAAC,CAAC;QAAE,OAAO,KAAK,CAAC;IACnG,OAAO,OAAO,CAAC,KAAK,CAAC,CAAC,iBAAiB,CAAC,MAAM,CAAC,GAAG,KAAK,CAAC,KAAK,CAAC,OAAO,CAAC,KAAK,CAAC,CAAC,MAAM,CAAC,CAAC;AACvF,CAAC,CAAC;AAEF;;;;;;;;;;GAUG;AACH,SAAgB,OAAO,CAAC,QAAgB,EAAE,GAAW,EAAE,KAA0B,EAAE,MAAM,GAAG,IAAI;IAC9F,MAAM,KAAK,GAAG,OAAO,CAAC,QAAQ,EAAE,GAAG,EAAE,KAAK,EAAE,MAAM,CAAC,CAAC;IACpD,kEAAkE;IAClE,OAAO,CAAC,KAAK,EAAE,EAAE,CAAC,CAAC,UAAU,CAAC,KAAK,CAAC,CAAC,CAAC,CAAC,WAAW,CAAC,KAAK,EAAE,MAAM,CAAC,CAAC,CAAC,CAAC,KAAK,CAAC,KAAK,CAAC,CAAC,CAAC;AACpF,CAAC;AAED,SAAS,OAAO,CAAC,QAAgB,EAAE,GAAW,EAAE,KAA0B,EAAE,MAAc;IACxF,IAAI,CAAC,KAAK,IAAI,aAAa,CAAC,IAAI,CAAC,MAAM,CAAC,IAAI,IAAA,yBAAa,EAAC,MAAM,CAAC;QAAE,OAAO,SAAS,CAAC;IACpF,MAAM,KAAK,GAAG,QAAQ,CAAC,KAAK,CAAC,IAAI,GAAG,GAAG,CAAC,CAAC;IACzC,IAAI,KAAK,CAAC,MAAM,GAAG,CAAC;QAAE,OAAO,SAAS,CAAC;IACvC,iIAAiI;IACjI,MAAM,MAAM,GAAG,KAAK,CAAC,KAAK,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC,KAAK,CAAC,CAAC,CAAC,EAAE,EAAE,EAAE,EAAE,CAAC,eAAe,CAAC,IAAI,CAAC,KAAK,CAAC,KAAK,CAAC,CAAC,EAAE,EAAE,GAAG,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,GAAG,GAAG,CAAC,CAAC,KAAK,CAAC,cAAc,CAAC,CAAC,GAAG,EAAY,CAAC,CAAC,CAAC;IACxJ,OAAO,MAAM,CAAC,CAAC,CAAC,KAAK,CAAC,MAAM,CAAC,CAAC,CAAC,CAAC,SAAS,CAAC;AAC5C,CAAC"}
+{"version":3,"file":"record-words.js","sourceRoot":"","sources":["../../../../../../libs/core/src/lib/record/record-words.ts"],"names":[],"mappings":";;AAoBA,wCAMC;AAQD,gCAEC;AASD,kCAIC;AAwBD,0BAIC;AA5ED,mDAAoD;AAEpD,iGAAiG;AACjG,MAAM,KAAK,GAAG,+BAA+B,CAAC;AAE9C,uGAAuG;AACvG,MAAM,aAAa,GAAG,gBAAgB,CAAC;AAEvC,2FAA2F;AAC3F,MAAM,OAAO,GAAG,CAAC,KAAa,EAAE,EAAE,CAAC,CAAC,KAAK,CAAC,CAAC,CAAC,MAAM,CAAC,aAAa,CAAC,KAAK,CAAC,WAAW,CAAC,CAAC,CAAW,CAAC,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC;AACvG,MAAM,OAAO,GAAG,CAAC,KAAa,EAAE,MAAc,EAAE,EAAE,CAAC,OAAO,CAAC,KAAK,CAAC,CAAC,iBAAiB,CAAC,MAAM,CAAC,GAAG,KAAK,CAAC,KAAK,CAAC,OAAO,CAAC,KAAK,CAAC,CAAC,MAAM,CAAC,CAAC;AAEjI;;;;;;GAMG;AACH,SAAgB,cAAc,CAAC,OAAgC,EAAE,KAAyB,EAAE,KAAa,EAAE,MAAM,GAAG,IAAI;IACtH,MAAM,EAAE,GAAG,EAAE,KAAK,EAAE,CAAC,EAAE,GAAG,OAAO,IAAI,EAAE,CAAC;IACxC,IAAI,CAAC,GAAG,IAAI,CAAC,KAAK,IAAI,KAAK,KAAK,SAAS;QAAE,OAAO,KAAK,CAAC;IACxD,IAAI,KAAK,CAAC,QAAQ,CAAC,WAAW,CAAC,IAAI,CAAC,CAAC;QAAE,OAAO,KAAK,CAAC;IACpD,MAAM,MAAM,GAAG,KAAK,CAAC,OAAO,CAAC,KAAK,EAAE,CAAC,CAAC,EAAE,IAAY,EAAE,EAAE,CAAC,CAAC,IAAI,KAAK,QAAQ,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,IAAI,KAAK,SAAS,CAAC,CAAC,CAAC,KAAK,CAAC,CAAC,CAAE,CAAY,CAAC,CAAC,CAAC;IACjI,OAAO,+BAA+B,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC,CAAC,CAAC,OAAO,CAAC,MAAM,EAAE,MAAM,CAAC,CAAC,CAAC,CAAC,MAAM,CAAC;AACxF,CAAC;AAED,MAAM,SAAS,GAAG,CAAC,KAAa,EAAE,EAAE,CAAC,KAAK,CAAC;AAE3C;;;GAGG;AACH,SAAgB,UAAU,CAAC,KAAa;IACtC,OAAO,wBAAwB,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC;AAC9C,CAAC;AAED,kHAAkH;AAClH,MAAM,MAAM,GAA8C,EAAE,EAAE,EAAE,CAAC,GAAG,EAAE,GAAG,CAAC,EAAE,EAAE,EAAE,CAAC,IAAI,EAAE,IAAI,CAAC,EAAE,EAAE,EAAE,CAAC,GAAG,EAAE,GAAG,CAAC,EAAE,EAAE,EAAE,CAAC,GAAG,EAAE,GAAG,CAAC,EAAE,CAAC;AAE/H;;;GAGG;AACH,SAAgB,WAAW,CAAC,KAAa,EAAE,MAAM,GAAG,IAAI;IACtD,IAAI,CAAC,UAAU,CAAC,KAAK,CAAC;QAAE,OAAO,KAAK,CAAC;IACrC,MAAM,CAAC,IAAI,EAAE,KAAK,CAAC,GAAG,MAAM,CAAC,MAAM,CAAC,KAAK,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC,WAAW,EAAE,CAAC,IAAI,CAAC,GAAG,EAAE,GAAG,CAAC,CAAC;IAC/E,OAAO,GAAG,IAAI,GAAG,KAAK,CAAC,IAAI,EAAE,GAAG,KAAK,EAAE,CAAC;AAC1C,CAAC;AAED;;;;GAIG;AACH,MAAM,KAAK,GAAG,CAAC,MAAc,EAAE,EAAE,CAAC,CAAC,KAAa,EAAE,EAAE;IAClD,MAAM,IAAI,GAAG,KAAK,CAAC,KAAK,CAAC,IAAI,EAAE,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC;IACrC,IAAI,CAAC,gBAAgB,CAAC,IAAI,CAAC,IAAI,CAAC,IAAI,SAAS,CAAC,IAAI,CAAC,IAAI,CAAC,KAAK,CAAC,OAAO,CAAC,IAAI,CAAC,CAAC,MAAM,CAAC,CAAC;QAAE,OAAO,KAAK,CAAC;IACnG,OAAO,OAAO,CAAC,KAAK,CAAC,CAAC,iBAAiB,CAAC,MAAM,CAAC,GAAG,KAAK,CAAC,KAAK,CAAC,OAAO,CAAC,KAAK,CAAC,CAAC,MAAM,CAAC,CAAC;AACvF,CAAC,CAAC;AAEF;;;;;;;;;;GAUG;AACH,SAAgB,OAAO,CAAC,QAAgB,EAAE,GAAW,EAAE,KAA0B,EAAE,MAAM,GAAG,IAAI;IAC9F,MAAM,KAAK,GAAG,OAAO,CAAC,QAAQ,EAAE,GAAG,EAAE,KAAK,EAAE,MAAM,CAAC,CAAC;IACpD,kEAAkE;IAClE,OAAO,CAAC,KAAK,EAAE,EAAE,CAAC,CAAC,UAAU,CAAC,KAAK,CAAC,CAAC,CAAC,CAAC,WAAW,CAAC,KAAK,EAAE,MAAM,CAAC,CAAC,CAAC,CAAC,KAAK,CAAC,KAAK,CAAC,CAAC,CAAC;AACpF,CAAC;AAED,SAAS,OAAO,CAAC,QAAgB,EAAE,GAAW,EAAE,KAA0B,EAAE,MAAc;IACxF,IAAI,CAAC,KAAK,IAAI,aAAa,CAAC,IAAI,CAAC,MAAM,CAAC,IAAI,IAAA,yBAAa,EAAC,MAAM,CAAC;QAAE,OAAO,SAAS,CAAC;IACpF,MAAM,KAAK,GAAG,QAAQ,CAAC,KAAK,CAAC,IAAI,GAAG,GAAG,CAAC,CAAC;IACzC,IAAI,KAAK,CAAC,MAAM,GAAG,CAAC;QAAE,OAAO,SAAS,CAAC;IACvC,iIAAiI;IACjI,MAAM,MAAM,GAAG,KAAK,CAAC,KAAK,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC,KAAK,CAAC,CAAC,CAAC,EAAE,EAAE,EAAE,EAAE,CAAC,eAAe,CAAC,IAAI,CAAC,KAAK,CAAC,KAAK,CAAC,CAAC,EAAE,EAAE,GAAG,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,GAAG,GAAG,CAAC,CAAC,KAAK,CAAC,cAAc,CAAC,CAAC,GAAG,EAAY,CAAC,CAAC,CAAC;IACxJ,OAAO,MAAM,CAAC,CAAC,CAAC,KAAK,CAAC,MAAM,CAAC,CAAC,CAAC,CAAC,SAAS,CAAC;AAC5C,CAAC"}

package/src/lib/record/record-words.mjs

@@ -31,7 +31,7 @@ export function isQuestion(label) {
     return /([?؟？⸮]|…|\.\.\.)\s*$/u.test(label);
 }
 /** Each language's quotation marks round a question its sentence names: “…” where it has none of its own here. */
-const QUOTES = { de: ['„', '“'], fr: ['« ', ' »'], ar: ['«', '»'] };
+const QUOTES = { de: ['„', '“'], fr: ['« ', ' »'], ar: ['«', '»'], fa: ['«', '»'] };
 /**
  * A label as a sentence names it: a question (`isQuestion`) between the language's quotation marks — "Please answer
  * “How was your visit?”", "“How many days?” must be at most 5" — and a name as written.

package/src/lib/record/record-words.mjs.map

@@ -1 +1 @@
-{"version":3,"file":"record-words.mjs","sourceRoot":"","sources":["../../../../../../libs/core/src/lib/record/record-words.ts"],"names":[],"mappings":"AACA,OAAO,EAAE,aAAa,EAAE,MAAM,qBAAqB,CAAC;AAEpD,iGAAiG;AACjG,MAAM,KAAK,GAAG,+BAA+B,CAAC;AAE9C,uGAAuG;AACvG,MAAM,aAAa,GAAG,gBAAgB,CAAC;AAEvC,2FAA2F;AAC3F,MAAM,OAAO,GAAG,CAAC,KAAa,EAAE,EAAE,CAAC,CAAC,KAAK,CAAC,CAAC,CAAC,MAAM,CAAC,aAAa,CAAC,KAAK,CAAC,WAAW,CAAC,CAAC,CAAW,CAAC,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC;AACvG,MAAM,OAAO,GAAG,CAAC,KAAa,EAAE,MAAc,EAAE,EAAE,CAAC,OAAO,CAAC,KAAK,CAAC,CAAC,iBAAiB,CAAC,MAAM,CAAC,GAAG,KAAK,CAAC,KAAK,CAAC,OAAO,CAAC,KAAK,CAAC,CAAC,MAAM,CAAC,CAAC;AAEjI;;;;;;GAMG;AACH,MAAM,UAAU,cAAc,CAAC,OAAgC,EAAE,KAAyB,EAAE,KAAa,EAAE,MAAM,GAAG,IAAI;IACtH,MAAM,EAAE,GAAG,EAAE,KAAK,EAAE,CAAC,EAAE,GAAG,OAAO,IAAI,EAAE,CAAC;IACxC,IAAI,CAAC,GAAG,IAAI,CAAC,KAAK,IAAI,KAAK,KAAK,SAAS;QAAE,OAAO,KAAK,CAAC;IACxD,IAAI,KAAK,CAAC,QAAQ,CAAC,WAAW,CAAC,IAAI,CAAC,CAAC;QAAE,OAAO,KAAK,CAAC;IACpD,MAAM,MAAM,GAAG,KAAK,CAAC,OAAO,CAAC,KAAK,EAAE,CAAC,CAAC,EAAE,IAAY,EAAE,EAAE,CAAC,CAAC,IAAI,KAAK,QAAQ,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,IAAI,KAAK,SAAS,CAAC,CAAC,CAAC,KAAK,CAAC,CAAC,CAAE,CAAY,CAAC,CAAC,CAAC;IACjI,OAAO,+BAA+B,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC,CAAC,CAAC,OAAO,CAAC,MAAM,EAAE,MAAM,CAAC,CAAC,CAAC,CAAC,MAAM,CAAC;AACxF,CAAC;AAED,MAAM,SAAS,GAAG,CAAC,KAAa,EAAE,EAAE,CAAC,KAAK,CAAC;AAE3C;;;GAGG;AACH,MAAM,UAAU,UAAU,CAAC,KAAa;IACtC,OAAO,wBAAwB,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC;AAC9C,CAAC;AAED,kHAAkH;AAClH,MAAM,MAAM,GAA8C,EAAE,EAAE,EAAE,CAAC,GAAG,EAAE,GAAG,CAAC,EAAE,EAAE,EAAE,CAAC,IAAI,EAAE,IAAI,CAAC,EAAE,EAAE,EAAE,CAAC,GAAG,EAAE,GAAG,CAAC,EAAE,CAAC;AAE/G;;;GAGG;AACH,MAAM,UAAU,WAAW,CAAC,KAAa,EAAE,MAAM,GAAG,IAAI;IACtD,IAAI,CAAC,UAAU,CAAC,KAAK,CAAC;QAAE,OAAO,KAAK,CAAC;IACrC,MAAM,CAAC,IAAI,EAAE,KAAK,CAAC,GAAG,MAAM,CAAC,MAAM,CAAC,KAAK,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC,WAAW,EAAE,CAAC,IAAI,CAAC,GAAG,EAAE,GAAG,CAAC,CAAC;IAC/E,OAAO,GAAG,IAAI,GAAG,KAAK,CAAC,IAAI,EAAE,GAAG,KAAK,EAAE,CAAC;AAC1C,CAAC;AAED;;;;GAIG;AACH,MAAM,KAAK,GAAG,CAAC,MAAc,EAAE,EAAE,CAAC,CAAC,KAAa,EAAE,EAAE;IAClD,MAAM,IAAI,GAAG,KAAK,CAAC,KAAK,CAAC,IAAI,EAAE,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC;IACrC,IAAI,CAAC,gBAAgB,CAAC,IAAI,CAAC,IAAI,CAAC,IAAI,SAAS,CAAC,IAAI,CAAC,IAAI,CAAC,KAAK,CAAC,OAAO,CAAC,IAAI,CAAC,CAAC,MAAM,CAAC,CAAC;QAAE,OAAO,KAAK,CAAC;IACnG,OAAO,OAAO,CAAC,KAAK,CAAC,CAAC,iBAAiB,CAAC,MAAM,CAAC,GAAG,KAAK,CAAC,KAAK,CAAC,OAAO,CAAC,KAAK,CAAC,CAAC,MAAM,CAAC,CAAC;AACvF,CAAC,CAAC;AAEF;;;;;;;;;;GAUG;AACH,MAAM,UAAU,OAAO,CAAC,QAAgB,EAAE,GAAW,EAAE,KAA0B,EAAE,MAAM,GAAG,IAAI;IAC9F,MAAM,KAAK,GAAG,OAAO,CAAC,QAAQ,EAAE,GAAG,EAAE,KAAK,EAAE,MAAM,CAAC,CAAC;IACpD,kEAAkE;IAClE,OAAO,CAAC,KAAK,EAAE,EAAE,CAAC,CAAC,UAAU,CAAC,KAAK,CAAC,CAAC,CAAC,CAAC,WAAW,CAAC,KAAK,EAAE,MAAM,CAAC,CAAC,CAAC,CAAC,KAAK,CAAC,KAAK,CAAC,CAAC,CAAC;AACpF,CAAC;AAED,SAAS,OAAO,CAAC,QAAgB,EAAE,GAAW,EAAE,KAA0B,EAAE,MAAc;IACxF,IAAI,CAAC,KAAK,IAAI,aAAa,CAAC,IAAI,CAAC,MAAM,CAAC,IAAI,aAAa,CAAC,MAAM,CAAC;QAAE,OAAO,SAAS,CAAC;IACpF,MAAM,KAAK,GAAG,QAAQ,CAAC,KAAK,CAAC,IAAI,GAAG,GAAG,CAAC,CAAC;IACzC,IAAI,KAAK,CAAC,MAAM,GAAG,CAAC;QAAE,OAAO,SAAS,CAAC;IACvC,iIAAiI;IACjI,MAAM,MAAM,GAAG,KAAK,CAAC,KAAK,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC,KAAK,CAAC,CAAC,CAAC,EAAE,EAAE,EAAE,EAAE,CAAC,eAAe,CAAC,IAAI,CAAC,KAAK,CAAC,KAAK,CAAC,CAAC,EAAE,EAAE,GAAG,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,GAAG,GAAG,CAAC,CAAC,KAAK,CAAC,cAAc,CAAC,CAAC,GAAG,EAAY,CAAC,CAAC,CAAC;IACxJ,OAAO,MAAM,CAAC,CAAC,CAAC,KAAK,CAAC,MAAM,CAAC,CAAC,CAAC,CAAC,SAAS,CAAC;AAC5C,CAAC"}
+{"version":3,"file":"record-words.mjs","sourceRoot":"","sources":["../../../../../../libs/core/src/lib/record/record-words.ts"],"names":[],"mappings":"AACA,OAAO,EAAE,aAAa,EAAE,MAAM,qBAAqB,CAAC;AAEpD,iGAAiG;AACjG,MAAM,KAAK,GAAG,+BAA+B,CAAC;AAE9C,uGAAuG;AACvG,MAAM,aAAa,GAAG,gBAAgB,CAAC;AAEvC,2FAA2F;AAC3F,MAAM,OAAO,GAAG,CAAC,KAAa,EAAE,EAAE,CAAC,CAAC,KAAK,CAAC,CAAC,CAAC,MAAM,CAAC,aAAa,CAAC,KAAK,CAAC,WAAW,CAAC,CAAC,CAAW,CAAC,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC;AACvG,MAAM,OAAO,GAAG,CAAC,KAAa,EAAE,MAAc,EAAE,EAAE,CAAC,OAAO,CAAC,KAAK,CAAC,CAAC,iBAAiB,CAAC,MAAM,CAAC,GAAG,KAAK,CAAC,KAAK,CAAC,OAAO,CAAC,KAAK,CAAC,CAAC,MAAM,CAAC,CAAC;AAEjI;;;;;;GAMG;AACH,MAAM,UAAU,cAAc,CAAC,OAAgC,EAAE,KAAyB,EAAE,KAAa,EAAE,MAAM,GAAG,IAAI;IACtH,MAAM,EAAE,GAAG,EAAE,KAAK,EAAE,CAAC,EAAE,GAAG,OAAO,IAAI,EAAE,CAAC;IACxC,IAAI,CAAC,GAAG,IAAI,CAAC,KAAK,IAAI,KAAK,KAAK,SAAS;QAAE,OAAO,KAAK,CAAC;IACxD,IAAI,KAAK,CAAC,QAAQ,CAAC,WAAW,CAAC,IAAI,CAAC,CAAC;QAAE,OAAO,KAAK,CAAC;IACpD,MAAM,MAAM,GAAG,KAAK,CAAC,OAAO,CAAC,KAAK,EAAE,CAAC,CAAC,EAAE,IAAY,EAAE,EAAE,CAAC,CAAC,IAAI,KAAK,QAAQ,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,IAAI,KAAK,SAAS,CAAC,CAAC,CAAC,KAAK,CAAC,CAAC,CAAE,CAAY,CAAC,CAAC,CAAC;IACjI,OAAO,+BAA+B,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC,CAAC,CAAC,OAAO,CAAC,MAAM,EAAE,MAAM,CAAC,CAAC,CAAC,CAAC,MAAM,CAAC;AACxF,CAAC;AAED,MAAM,SAAS,GAAG,CAAC,KAAa,EAAE,EAAE,CAAC,KAAK,CAAC;AAE3C;;;GAGG;AACH,MAAM,UAAU,UAAU,CAAC,KAAa;IACtC,OAAO,wBAAwB,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC;AAC9C,CAAC;AAED,kHAAkH;AAClH,MAAM,MAAM,GAA8C,EAAE,EAAE,EAAE,CAAC,GAAG,EAAE,GAAG,CAAC,EAAE,EAAE,EAAE,CAAC,IAAI,EAAE,IAAI,CAAC,EAAE,EAAE,EAAE,CAAC,GAAG,EAAE,GAAG,CAAC,EAAE,EAAE,EAAE,CAAC,GAAG,EAAE,GAAG,CAAC,EAAE,CAAC;AAE/H;;;GAGG;AACH,MAAM,UAAU,WAAW,CAAC,KAAa,EAAE,MAAM,GAAG,IAAI;IACtD,IAAI,CAAC,UAAU,CAAC,KAAK,CAAC;QAAE,OAAO,KAAK,CAAC;IACrC,MAAM,CAAC,IAAI,EAAE,KAAK,CAAC,GAAG,MAAM,CAAC,MAAM,CAAC,KAAK,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC,WAAW,EAAE,CAAC,IAAI,CAAC,GAAG,EAAE,GAAG,CAAC,CAAC;IAC/E,OAAO,GAAG,IAAI,GAAG,KAAK,CAAC,IAAI,EAAE,GAAG,KAAK,EAAE,CAAC;AAC1C,CAAC;AAED;;;;GAIG;AACH,MAAM,KAAK,GAAG,CAAC,MAAc,EAAE,EAAE,CAAC,CAAC,KAAa,EAAE,EAAE;IAClD,MAAM,IAAI,GAAG,KAAK,CAAC,KAAK,CAAC,IAAI,EAAE,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC;IACrC,IAAI,CAAC,gBAAgB,CAAC,IAAI,CAAC,IAAI,CAAC,IAAI,SAAS,CAAC,IAAI,CAAC,IAAI,CAAC,KAAK,CAAC,OAAO,CAAC,IAAI,CAAC,CAAC,MAAM,CAAC,CAAC;QAAE,OAAO,KAAK,CAAC;IACnG,OAAO,OAAO,CAAC,KAAK,CAAC,CAAC,iBAAiB,CAAC,MAAM,CAAC,GAAG,KAAK,CAAC,KAAK,CAAC,OAAO,CAAC,KAAK,CAAC,CAAC,MAAM,CAAC,CAAC;AACvF,CAAC,CAAC;AAEF;;;;;;;;;;GAUG;AACH,MAAM,UAAU,OAAO,CAAC,QAAgB,EAAE,GAAW,EAAE,KAA0B,EAAE,MAAM,GAAG,IAAI;IAC9F,MAAM,KAAK,GAAG,OAAO,CAAC,QAAQ,EAAE,GAAG,EAAE,KAAK,EAAE,MAAM,CAAC,CAAC;IACpD,kEAAkE;IAClE,OAAO,CAAC,KAAK,EAAE,EAAE,CAAC,CAAC,UAAU,CAAC,KAAK,CAAC,CAAC,CAAC,CAAC,WAAW,CAAC,KAAK,EAAE,MAAM,CAAC,CAAC,CAAC,CAAC,KAAK,CAAC,KAAK,CAAC,CAAC,CAAC;AACpF,CAAC;AAED,SAAS,OAAO,CAAC,QAAgB,EAAE,GAAW,EAAE,KAA0B,EAAE,MAAc;IACxF,IAAI,CAAC,KAAK,IAAI,aAAa,CAAC,IAAI,CAAC,MAAM,CAAC,IAAI,aAAa,CAAC,MAAM,CAAC;QAAE,OAAO,SAAS,CAAC;IACpF,MAAM,KAAK,GAAG,QAAQ,CAAC,KAAK,CAAC,IAAI,GAAG,GAAG,CAAC,CAAC;IACzC,IAAI,KAAK,CAAC,MAAM,GAAG,CAAC;QAAE,OAAO,SAAS,CAAC;IACvC,iIAAiI;IACjI,MAAM,MAAM,GAAG,KAAK,CAAC,KAAK,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC,KAAK,CAAC,CAAC,CAAC,EAAE,EAAE,EAAE,EAAE,CAAC,eAAe,CAAC,IAAI,CAAC,KAAK,CAAC,KAAK,CAAC,CAAC,EAAE,EAAE,GAAG,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,GAAG,GAAG,CAAC,CAAC,KAAK,CAAC,cAAc,CAAC,CAAC,GAAG,EAAY,CAAC,CAAC,CAAC;IACxJ,OAAO,MAAM,CAAC,CAAC,CAAC,KAAK,CAAC,MAAM,CAAC,CAAC,CAAC,CAAC,SAAS,CAAC;AAC5C,CAAC"}

package/src/lib/record/run.d.mts

@@ -3,7 +3,7 @@ import type { Field } from '../format/field.mjs';
 import type { JsonValue } from '../format/json.mjs';
 import type { MenuItem, Tone } from '../format/layout.mjs';
 import { type ExpressionEnv } from '../expression/expression.mjs';
-import type { ResolvedFilter } from './data-source.mjs';
+import type { PaidPayment, PaymentDue, PayRequest, ResolvedFilter } from './data-source.mjs';
 import type { Facet } from './search.mjs';
 import { type RecordId, type Value, type Values } from './values.mjs';
 /**
@@ -89,6 +89,46 @@ export interface ActionResult {
      * own, each pressed as theirs are. Read only by that menu; any other call's is left alone.
      */
     menu?: MenuItem[];
+    /**
+     * How to take back what the app just did, for a one-tap press (a follow-up marked done, a message sent with a few
+     * seconds to call it back): its words are said with Undo, and Undo calls this — the app reopens the follow-up,
+     * cancels the send — answering as a call is answered (values, words, a reload…). Offered for a few seconds.
+     */
+    undo?: AppUndo;
+}
+/** The app's own way to take back what it did for a press (`ActionResult.undo`): answered as a call is. */
+export type AppUndo = () => void | ActionResult | Promise<void | ActionResult>;
+/** The runner's own ways a press's Undo takes it back with (press-undo.ts, the undo part). */
+export interface UndoKit {
+    form: RunForm;
+    answered(answer: ActionResult, scope: RunScope): Promise<Stopped | null>;
+    recordStep(name: 'archive' | 'unarchive' | 'duplicate' | 'delete', scope: RunScope): Promise<Stopped | null>;
+    replaced(scope: RunScope): boolean;
+    tell(scope: RunScope | null, message: string, tone: Tone): void;
+    runSteps(steps: readonly ActionStep[], scope: RunScope, inner?: boolean): Promise<RunResult>;
+}
+/** Undo, offered with the words a press said (`ActionHost.say`'s third): pressed, it takes back what the press did. */
+export interface SayUndo {
+    undo(): Promise<RunResult>;
+}
+/**
+ * What a press that offers Undo keeps as it runs (a button's or a menu item's `undo`, or the app answering with one):
+ * the words it says, held to be said as it ends — the last with Undo — and what Fieldia needs to take it back. What it
+ * wrote is read by the undo part as it ends (press-undo.ts), against the values it began with.
+ */
+export interface PressTaken {
+    said: {
+        message: string;
+        tone: Tone;
+    }[];
+    /** The app's own undos, from its answers, in the order given. */
+    app: AppUndo[];
+    /** The form's values as the press began. */
+    at: Values;
+    /** It archived the record (true) or brought it back (false). */
+    archived?: boolean;
+    /** The app's call answered with no undo: Fieldia cannot take that back by itself. */
+    beyond?: string;
 }
 /**
  * A file the app hands back from an action: its name and kind, and where it is — its address on the app's server, its
@@ -163,7 +203,8 @@ export interface OpenResult {
  */
 export interface ActionHost {
     open(request: OpenRequest): Promise<OpenResult>;
-    say(message: string, tone: Tone): void;
+    /** Words to say, in a tone; with `undo`, a one-tap press's: Undo beside them for a few seconds, pressed, takes it back. */
+    say(message: string, tone: Tone, undo?: SayUndo): void;
     /** A question, answered Yes (true) or No; `how` says what kind, for a host that asks some differently. */
     ask(message: string, how?: AskHow): Promise<boolean>;
     /** Close the dialog or panel this form was opened in. */
@@ -182,6 +223,12 @@ export interface ActionHost {
      * is given one that posts in that record's. False: nothing heard them.
      */
     post?(message: PostedMessage): boolean | void | Promise<boolean | void>;
+    /**
+     * The payment step a send waits on (a page's `payment`): show what is due, and settle once it is paid — through the
+     * data source's `pay`, in the person's press — or with null once the person goes back to the answers: nothing is sent.
+     * Left out, the form asks the source's `pay` itself.
+     */
+    pay?(due: PaymentDue, request: PayRequest): Promise<PaidPayment | null>;
 }
 /**
  * How a question is asked. `discard`: its Yes lets go of the person's work not
@@ -276,6 +323,8 @@ export interface RunScope {
         mine: boolean;
         after: Value;
     }>;
+    /** A press that offers Undo: what it said and did, to be taken back (`PressTaken`). */
+    taken?: PressTaken;
 }
 /** What a run reaches its form by: the form gives these. */
 export interface RunForm {
@@ -373,10 +422,13 @@ export interface RunForm {
     barred?(right: 'edit' | 'archive' | 'duplicate' | 'delete'): string | null;
 }
 export declare const DONE: RunResult;
+/** What a press that offers Undo starts keeping (`RunScope.taken`), from the values it begins with. */
+export declare const takenNow: (at?: Values) => PressTaken;
 /** Steps run against one form. Expressions are read once and kept. */
 export declare function createRunner(form: RunForm): {
     runSteps: (steps: readonly ActionStep[], scope: RunScope, inner?: boolean) => Promise<RunResult>;
     ask: (message: string, yes?: string) => Promise<boolean>;
+    kit: UndoKit;
 };
 /**
  * One run of each moment at a time. A moment set off by a step of its own

package/src/lib/record/run.d.ts

@@ -3,7 +3,7 @@ import type { Field } from '../format/field';
 import type { JsonValue } from '../format/json';
 import type { MenuItem, Tone } from '../format/layout';
 import { type ExpressionEnv } from '../expression/expression';
-import type { ResolvedFilter } from './data-source';
+import type { PaidPayment, PaymentDue, PayRequest, ResolvedFilter } from './data-source';
 import type { Facet } from './search';
 import { type RecordId, type Value, type Values } from './values';
 /**
@@ -89,6 +89,46 @@ export interface ActionResult {
      * own, each pressed as theirs are. Read only by that menu; any other call's is left alone.
      */
     menu?: MenuItem[];
+    /**
+     * How to take back what the app just did, for a one-tap press (a follow-up marked done, a message sent with a few
+     * seconds to call it back): its words are said with Undo, and Undo calls this — the app reopens the follow-up,
+     * cancels the send — answering as a call is answered (values, words, a reload…). Offered for a few seconds.
+     */
+    undo?: AppUndo;
+}
+/** The app's own way to take back what it did for a press (`ActionResult.undo`): answered as a call is. */
+export type AppUndo = () => void | ActionResult | Promise<void | ActionResult>;
+/** The runner's own ways a press's Undo takes it back with (press-undo.ts, the undo part). */
+export interface UndoKit {
+    form: RunForm;
+    answered(answer: ActionResult, scope: RunScope): Promise<Stopped | null>;
+    recordStep(name: 'archive' | 'unarchive' | 'duplicate' | 'delete', scope: RunScope): Promise<Stopped | null>;
+    replaced(scope: RunScope): boolean;
+    tell(scope: RunScope | null, message: string, tone: Tone): void;
+    runSteps(steps: readonly ActionStep[], scope: RunScope, inner?: boolean): Promise<RunResult>;
+}
+/** Undo, offered with the words a press said (`ActionHost.say`'s third): pressed, it takes back what the press did. */
+export interface SayUndo {
+    undo(): Promise<RunResult>;
+}
+/**
+ * What a press that offers Undo keeps as it runs (a button's or a menu item's `undo`, or the app answering with one):
+ * the words it says, held to be said as it ends — the last with Undo — and what Fieldia needs to take it back. What it
+ * wrote is read by the undo part as it ends (press-undo.ts), against the values it began with.
+ */
+export interface PressTaken {
+    said: {
+        message: string;
+        tone: Tone;
+    }[];
+    /** The app's own undos, from its answers, in the order given. */
+    app: AppUndo[];
+    /** The form's values as the press began. */
+    at: Values;
+    /** It archived the record (true) or brought it back (false). */
+    archived?: boolean;
+    /** The app's call answered with no undo: Fieldia cannot take that back by itself. */
+    beyond?: string;
 }
 /**
  * A file the app hands back from an action: its name and kind, and where it is — its address on the app's server, its
@@ -163,7 +203,8 @@ export interface OpenResult {
  */
 export interface ActionHost {
     open(request: OpenRequest): Promise<OpenResult>;
-    say(message: string, tone: Tone): void;
+    /** Words to say, in a tone; with `undo`, a one-tap press's: Undo beside them for a few seconds, pressed, takes it back. */
+    say(message: string, tone: Tone, undo?: SayUndo): void;
     /** A question, answered Yes (true) or No; `how` says what kind, for a host that asks some differently. */
     ask(message: string, how?: AskHow): Promise<boolean>;
     /** Close the dialog or panel this form was opened in. */
@@ -182,6 +223,12 @@ export interface ActionHost {
      * is given one that posts in that record's. False: nothing heard them.
      */
     post?(message: PostedMessage): boolean | void | Promise<boolean | void>;
+    /**
+     * The payment step a send waits on (a page's `payment`): show what is due, and settle once it is paid — through the
+     * data source's `pay`, in the person's press — or with null once the person goes back to the answers: nothing is sent.
+     * Left out, the form asks the source's `pay` itself.
+     */
+    pay?(due: PaymentDue, request: PayRequest): Promise<PaidPayment | null>;
 }
 /**
  * How a question is asked. `discard`: its Yes lets go of the person's work not
@@ -276,6 +323,8 @@ export interface RunScope {
         mine: boolean;
         after: Value;
     }>;
+    /** A press that offers Undo: what it said and did, to be taken back (`PressTaken`). */
+    taken?: PressTaken;
 }
 /** What a run reaches its form by: the form gives these. */
 export interface RunForm {
@@ -373,10 +422,13 @@ export interface RunForm {
     barred?(right: 'edit' | 'archive' | 'duplicate' | 'delete'): string | null;
 }
 export declare const DONE: RunResult;
+/** What a press that offers Undo starts keeping (`RunScope.taken`), from the values it begins with. */
+export declare const takenNow: (at?: Values) => PressTaken;
 /** Steps run against one form. Expressions are read once and kept. */
 export declare function createRunner(form: RunForm): {
     runSteps: (steps: readonly ActionStep[], scope: RunScope, inner?: boolean) => Promise<RunResult>;
     ask: (message: string, yes?: string) => Promise<boolean>;
+    kit: UndoKit;
 };
 /**
  * One run of each moment at a time. A moment set off by a step of its own

package/src/lib/record/run.js

@@ -1,6 +1,6 @@
 "use strict";
 Object.defineProperty(exports, "__esModule", { value: true });
-exports.DONE = void 0;
+exports.takenNow = exports.DONE = void 0;
 exports.createRunner = createRunner;
 exports.createMoments = createMoments;
 const expression_1 = require("../expression/expression");
@@ -11,6 +11,9 @@ const compute_1 = require("./compute");
 const filter_1 = require("./filter");
 const values_1 = require("./values");
 exports.DONE = Object.freeze({ done: true });
+/** What a press that offers Undo starts keeping (`RunScope.taken`), from the values it begins with. */
+const takenNow = (at = {}) => ({ said: [], app: [], at: (0, values_1.structuredCopy)(at) });
+exports.takenNow = takenNow;
 /** The kinds of field an expression gives a value to; the rest hold records, lines or files, and take a field named alone whole. */
 const EXPRESSIBLE = new Set(['char', 'text', 'html', 'integer', 'float', 'monetary', 'boolean', 'date', 'datetime', 'selection', 'json']);
 const wordsOf = (error) => (error instanceof Error ? error.message : String(error));
@@ -100,6 +103,13 @@ function createRunner(form) {
                 journal.set(name, { before: first.before, mine: first.mine, after: (0, values_1.structuredCopy)(form.values()[name] ?? null) });
         }
     }
+    /** Words a run says: held, for a press that offers Undo, to be said as it ends; else said now. */
+    function tell(scope, message, tone) {
+        if (scope?.taken)
+            scope.taken.said.push({ message, tone });
+        else
+            form.host?.say(message, tone);
+    }
     /**
      * The run's save was refused: what its steps wrote since its last save is put back, each field only while it
      * still holds what they wrote — a change made since by anyone else stays.
@@ -227,14 +237,24 @@ function createRunner(form) {
             return { reason: 'app', message: wordsOf(error), error };
         }
         form.answered(request, answer);
+        // A press offering Undo whose call the app answered with no way back: Fieldia cannot take it back by itself.
+        if (scope.taken && !answer?.undo)
+            scope.taken.beyond = 'call';
         if (!answer)
             return null;
+        // The app's own undo for what it did: its words are held to be said with Undo.
+        if (answer.undo)
+            (scope.taken ??= (0, exports.takenNow)()).app.push(answer.undo);
+        return answered(answer, scope);
+    }
+    /** The app's answer to a call, or to its own undo, laid over the form: values, words, a reload, another record… */
+    async function answered(answer, scope) {
         // Answered for a record no longer shown: nothing of it is laid over the one shown now. Its words to the person are
         // laid over no record, and are said still — a dialog's "Payment … posted", answered as it closed, as before.
         if (replaced(scope)) {
             if (answer.say !== undefined) {
                 const said = typeof answer.say === 'string' ? { message: answer.say } : answer.say;
-                form.host?.say(said.message, said.tone ?? 'info');
+                tell(scope, said.message, said.tone ?? 'info');
             }
             return form.gone();
         }
@@ -260,7 +280,7 @@ function createRunner(form) {
         }
         if (answer.say !== undefined) {
             const said = typeof answer.say === 'string' ? { message: answer.say } : answer.say;
-            form.host?.say(said.message, said.tone ?? 'info');
+            tell(scope, said.message, said.tone ?? 'info');
         }
         if (answer.post !== undefined) {
             const posted = typeof answer.post === 'string' ? { message: answer.post } : answer.post;
@@ -289,7 +309,7 @@ function createRunner(form) {
         }
         if (answer.stop) {
             if (typeof answer.stop === 'string')
-                form.host?.say(answer.stop, 'warning');
+                tell(scope, answer.stop, 'warning');
             return { reason: 'app', ...(typeof answer.stop === 'string' ? { message: answer.stop } : {}) };
         }
         return null;
@@ -328,6 +348,8 @@ function createRunner(form) {
             if (kept)
                 return kept;
             await form.archive(name === 'archive');
+            if (scope.taken)
+                scope.taken.archived = scope.taken.archived === undefined ? name === 'archive' : undefined;
             form.told({ archived: name === 'archive' }, id);
             // Archived once another record is shown: that one is not loaded again over what is typed in it.
             if (replaced(scope))
@@ -445,7 +467,7 @@ function createRunner(form) {
                 return null;
             }
             case 'say':
-                form.host?.say(step.message, step.tone ?? 'info');
+                tell(scope, step.message, step.tone ?? 'info');
                 return null;
             case 'ask':
                 // Yes goes on with what was pressed: its words.
@@ -554,7 +576,9 @@ function createRunner(form) {
         }
         return exports.DONE;
     }
-    return { runSteps, ask };
+    /** What a press's Undo takes back with, in the undo part (press-undo.ts): the runner's own ways, on this form. */
+    const kit = { form, answered, recordStep, replaced, tell, runSteps };
+    return { runSteps, ask, kit };
 }
 /**
  * Whether a step reads the form's values or hands them on — what is typed is read before it, for a run the person or