@inhuman.tools/harness 0.0.0-stage → 0.1.0

package/dist/tui/storybook/types.d.ts

@@ -0,0 +1,31 @@
+/**
+ * Catalog story contract — same shape as `@inhuman.tools/quickdraw-storybook`.
+ * Chapters stay the QD pipeline names so `buildShell` can header them.
+ * `build` returns a prepared replica subtree, not a raw QD prior.
+ */
+import type { LayoutNode } from "@inhuman.tools/quickdraw/tea";
+export type StoryCtx = {
+    cols: number;
+    rows: number;
+    tick: number;
+    sample: number;
+    nowMs?: number;
+};
+export declare const STORY_CHAPTERS: readonly ["theme", "layout", "widgets", "expand", "buffer", "fx"];
+export type StoryChapter = (typeof STORY_CHAPTERS)[number];
+export type StoryFamily = "chrome" | "thinking" | "viewport" | "atoms";
+export declare function isStoryChapter(value: string): value is StoryChapter;
+export type Story = {
+    id: string;
+    name: string;
+    category: StoryChapter;
+    family?: StoryFamily;
+    description: string;
+    sampleCount?: number;
+    /** Demo focus types into the replica composer. */
+    interactive?: boolean;
+    /** Session interval mutates speech.text in place. */
+    liveInk?: boolean;
+    build: (ctx: StoryCtx) => LayoutNode;
+};
+//# sourceMappingURL=types.d.ts.map

package/dist/tui/storybook/types.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"types.d.ts","sourceRoot":"","sources":["../../../src/tui/storybook/types.ts"],"names":[],"mappings":"AAAA;;;;GAIG;AACH,OAAO,KAAK,EAAE,UAAU,EAAE,MAAM,8BAA8B,CAAC;AAE/D,MAAM,MAAM,QAAQ,GAAG;IACrB,IAAI,EAAE,MAAM,CAAC;IACb,IAAI,EAAE,MAAM,CAAC;IACb,IAAI,EAAE,MAAM,CAAC;IACb,MAAM,EAAE,MAAM,CAAC;IACf,KAAK,CAAC,EAAE,MAAM,CAAC;CAChB,CAAC;AAEF,eAAO,MAAM,cAAc,YACzB,OAAO,EACP,QAAQ,EACR,SAAS,EACT,QAAQ,EACR,QAAQ,EACR,IAAI,CACI,CAAC;AAEX,MAAM,MAAM,YAAY,GAAG,CAAC,OAAO,cAAc,CAAC,CAAC,MAAM,CAAC,CAAC;AAE3D,MAAM,MAAM,WAAW,GAAG,QAAQ,GAAG,UAAU,GAAG,UAAU,GAAG,OAAO,CAAC;AAEvE,wBAAgB,cAAc,CAAC,KAAK,EAAE,MAAM,GAAG,KAAK,IAAI,YAAY,CAEnE;AAED,MAAM,MAAM,KAAK,GAAG;IAClB,EAAE,EAAE,MAAM,CAAC;IACX,IAAI,EAAE,MAAM,CAAC;IACb,QAAQ,EAAE,YAAY,CAAC;IACvB,MAAM,CAAC,EAAE,WAAW,CAAC;IACrB,WAAW,EAAE,MAAM,CAAC;IACpB,WAAW,CAAC,EAAE,MAAM,CAAC;IACrB,kDAAkD;IAClD,WAAW,CAAC,EAAE,OAAO,CAAC;IACtB,qDAAqD;IACrD,OAAO,CAAC,EAAE,OAAO,CAAC;IAClB,KAAK,EAAE,CAAC,GAAG,EAAE,QAAQ,KAAK,UAAU,CAAC;CACtC,CAAC"}

package/dist/tui/storybook/types.js

@@ -0,0 +1,12 @@
+export const STORY_CHAPTERS = [
+    "theme",
+    "layout",
+    "widgets",
+    "expand",
+    "buffer",
+    "fx",
+];
+export function isStoryChapter(value) {
+    return STORY_CHAPTERS.includes(value);
+}
+//# sourceMappingURL=types.js.map

package/dist/tui/storybook/types.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"types.js","sourceRoot":"","sources":["../../../src/tui/storybook/types.ts"],"names":[],"mappings":"AAeA,MAAM,CAAC,MAAM,cAAc,GAAG;IAC5B,OAAO;IACP,QAAQ;IACR,SAAS;IACT,QAAQ;IACR,QAAQ;IACR,IAAI;CACI,CAAC;AAMX,MAAM,UAAU,cAAc,CAAC,KAAa;IAC1C,OAAQ,cAAoC,CAAC,QAAQ,CAAC,KAAK,CAAC,CAAC;AAC/D,CAAC"}

package/dist/tui/sugarcoat-paint.d.ts

@@ -0,0 +1,14 @@
+/**
+ * Tape paint for scheme_repl: sugarcoat the stored Scheme, colour with the
+ * compensated-Darcula token hex from @here.build/editor-theme (theme-darcula.ts).
+ * Tokenizer is the arrival-cli eject — no CodeMirror in the TUI.
+ * Source and receipt classification live in `sugarcoat.ts` of `@inhuman.tools/harness-sdk/text`
+ * (no quickdraw) and are re-exported here, so paint importers keep one door.
+ */
+import { type SchemePaintPart } from "@inhuman.tools/harness-sdk/text";
+import type { HighlightLine } from "@inhuman.tools/quickdraw/widgets";
+export { BOOLEAN_ATOMS, decodeDisplayString, fileSchemePart, formatSchemeResult, isMarkdownPath, schemePaintReceipt, sugarcoatProgram, sugarcoatSource, type FilePaintHint, type SchemePaintKind, type SchemePaintPart, type SchemePaintReceipt, } from "@inhuman.tools/harness-sdk/text";
+export declare function highlightSchemePart(part: SchemePaintPart): HighlightLine[];
+/** Colour sugarcoat/Scheme source. Every input byte is in some run. */
+export declare function highlightSugarcoat(src: string): HighlightLine[];
+//# sourceMappingURL=sugarcoat-paint.d.ts.map

package/dist/tui/sugarcoat-paint.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"sugarcoat-paint.d.ts","sourceRoot":"","sources":["../../src/tui/sugarcoat-paint.ts"],"names":[],"mappings":"AAAA;;;;;;GAMG;AACH,OAAO,EAAiB,KAAK,eAAe,EAAE,MAAM,iCAAiC,CAAC;AACtF,OAAO,KAAK,EAAE,aAAa,EAAY,MAAM,kCAAkC,CAAC;AAEhF,OAAO,EACL,aAAa,EACb,mBAAmB,EACnB,cAAc,EACd,kBAAkB,EAClB,cAAc,EACd,kBAAkB,EAClB,gBAAgB,EAChB,eAAe,EACf,KAAK,aAAa,EAClB,KAAK,eAAe,EACpB,KAAK,eAAe,EACpB,KAAK,kBAAkB,GACxB,MAAM,iCAAiC,CAAC;AAgCzC,wBAAgB,mBAAmB,CAAC,IAAI,EAAE,eAAe,GAAG,aAAa,EAAE,CAK1E;AA0BD,uEAAuE;AACvE,wBAAgB,kBAAkB,CAAC,GAAG,EAAE,MAAM,GAAG,aAAa,EAAE,CAkE/D"}

package/dist/tui/sugarcoat-paint.js

@@ -0,0 +1,146 @@
+/**
+ * Tape paint for scheme_repl: sugarcoat the stored Scheme, colour with the
+ * compensated-Darcula token hex from @here.build/editor-theme (theme-darcula.ts).
+ * Tokenizer is the arrival-cli eject — no CodeMirror in the TUI.
+ * Source and receipt classification live in `sugarcoat.ts` of `@inhuman.tools/harness-sdk/text`
+ * (no quickdraw) and are re-exported here, so paint importers keep one door.
+ */
+import { BOOLEAN_ATOMS } from "@inhuman.tools/harness-sdk/text";
+export { BOOLEAN_ATOMS, decodeDisplayString, fileSchemePart, formatSchemeResult, isMarkdownPath, schemePaintReceipt, sugarcoatProgram, sugarcoatSource, } from "@inhuman.tools/harness-sdk/text";
+/** DARCULA_HEX — CHANGE ONLY with commons/packages/editor-theme/src/theme-darcula.ts. Local retune drifts editor vs tape. */
+const DARCULA = {
+    keyword: "#bb6b25",
+    function: "#f8bf66",
+    symbol: "#a9b5c1",
+    string: "#728e60",
+    number: "#5b89ad",
+    constant: "#5b89ad",
+    property: "#9673a7",
+    comment: "#717171",
+    delimiter: "#717171",
+};
+const DEFINITION_KEYWORDS = new Set(`define define-values define-syntax define-macro defmacro define-class define-record-type
+   define/overridable lambda λ case-lambda opt-lambda
+   let let* letrec letrec-syntax let-syntax let-values let*-values let/ec let/cc
+   syntax-rules syntax-case`
+    .split(/\s+/)
+    .filter(Boolean));
+const CONTROL_KEYWORDS = new Set(`if cond when unless case else and or not begin do for-each map
+   delay force dynamic-wind call/cc call-with-current-continuation
+   quote quasiquote unquote unquote-splicing set! require import =>`
+    .split(/\s+/)
+    .filter(Boolean));
+const DELIM = new Set(["(", ")", "[", "]", "{", "}"]);
+export function highlightSchemePart(part) {
+    if (part.kind === "syntax")
+        return highlightSugarcoat(part.text);
+    if (part.kind === "number")
+        return highlightPlain(part.text, DARCULA.number);
+    if (part.kind === "boolean")
+        return highlightPlain(part.text, DARCULA.keyword);
+    return highlightPlain(part.text);
+}
+function highlightPlain(src, color) {
+    return src.split("\n").map((line) => (line.length > 0 ? [run(line, color)] : []));
+}
+function isNumber(atom) {
+    return /^[+-]?(?:\d|\.\d|#[xbodei])/i.test(atom);
+}
+function atomColor(atom) {
+    if (DEFINITION_KEYWORDS.has(atom) || CONTROL_KEYWORDS.has(atom))
+        return DARCULA.keyword;
+    if (BOOLEAN_ATOMS.has(atom))
+        return DARCULA.keyword;
+    if (atom === "nil")
+        return DARCULA.constant;
+    if (atom.length > 1 && atom.startsWith(":"))
+        return DARCULA.property;
+    if (atom.length > 1 && atom.startsWith("."))
+        return DARCULA.function;
+    if (isNumber(atom))
+        return DARCULA.number;
+    return DARCULA.symbol;
+}
+function run(text, color) {
+    const next = { text };
+    if (color)
+        next.color = color;
+    return next;
+}
+/** Colour sugarcoat/Scheme source. Every input byte is in some run. */
+export function highlightSugarcoat(src) {
+    const runs = [];
+    let i = 0;
+    const n = src.length;
+    while (i < n) {
+        const ch = src[i];
+        if (ch === '"') {
+            let j = i + 1;
+            while (j < n) {
+                if (src[j] === "\\") {
+                    j += 2;
+                    continue;
+                }
+                if (src[j] === '"') {
+                    j += 1;
+                    break;
+                }
+                j += 1;
+            }
+            runs.push(run(src.slice(i, j), DARCULA.string));
+            i = j;
+            continue;
+        }
+        if (ch === "#" && src[i + 1] === "|") {
+            const end = src.indexOf("|#", i + 2);
+            const j = end === -1 ? n : end + 2;
+            runs.push(run(src.slice(i, j), DARCULA.comment));
+            i = j;
+            continue;
+        }
+        if (ch === ";") {
+            let j = i;
+            while (j < n && src[j] !== "\n")
+                j += 1;
+            runs.push(run(src.slice(i, j), DARCULA.comment));
+            i = j;
+            continue;
+        }
+        if (DELIM.has(ch)) {
+            runs.push(run(ch, DARCULA.delimiter));
+            i += 1;
+            continue;
+        }
+        if (ch === " " || ch === "\t" || ch === "\n" || ch === "\r") {
+            runs.push(run(ch));
+            i += 1;
+            continue;
+        }
+        let j = i;
+        while (j < n) {
+            const c = src[j];
+            if (DELIM.has(c) || c === '"' || c === ";" || c === " " || c === "\t" || c === "\n" || c === "\r") {
+                break;
+            }
+            j += 1;
+        }
+        const atom = src.slice(i, j);
+        runs.push(run(atom, atomColor(atom)));
+        i = j;
+    }
+    return splitLines(runs);
+}
+function splitLines(runs) {
+    const lines = [[]];
+    for (const token of runs) {
+        const parts = token.text.split("\n");
+        for (const [i, part] of parts.entries()) {
+            if (i > 0)
+                lines.push([]);
+            if (part.length > 0)
+                lines.at(-1).push(run(part, token.color));
+        }
+    }
+    return lines;
+}
+//# sourceMappingURL=sugarcoat-paint.js.map

package/dist/tui/sugarcoat-paint.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"sugarcoat-paint.js","sourceRoot":"","sources":["../../src/tui/sugarcoat-paint.ts"],"names":[],"mappings":"AAAA;;;;;;GAMG;AACH,OAAO,EAAE,aAAa,EAAwB,MAAM,iCAAiC,CAAC;AAGtF,OAAO,EACL,aAAa,EACb,mBAAmB,EACnB,cAAc,EACd,kBAAkB,EAClB,cAAc,EACd,kBAAkB,EAClB,gBAAgB,EAChB,eAAe,GAKhB,MAAM,iCAAiC,CAAC;AAEzC,6HAA6H;AAC7H,MAAM,OAAO,GAAG;IACd,OAAO,EAAE,SAAS;IAClB,QAAQ,EAAE,SAAS;IACnB,MAAM,EAAE,SAAS;IACjB,MAAM,EAAE,SAAS;IACjB,MAAM,EAAE,SAAS;IACjB,QAAQ,EAAE,SAAS;IACnB,QAAQ,EAAE,SAAS;IACnB,OAAO,EAAE,SAAS;IAClB,SAAS,EAAE,SAAS;CACZ,CAAC;AAEX,MAAM,mBAAmB,GAAG,IAAI,GAAG,CACjC;;;4BAG0B;KACvB,KAAK,CAAC,KAAK,CAAC;KACZ,MAAM,CAAC,OAAO,CAAC,CACnB,CAAC;AACF,MAAM,gBAAgB,GAAG,IAAI,GAAG,CAC9B;;oEAEkE;KAC/D,KAAK,CAAC,KAAK,CAAC;KACZ,MAAM,CAAC,OAAO,CAAC,CACnB,CAAC;AACF,MAAM,KAAK,GAAG,IAAI,GAAG,CAAC,CAAC,GAAG,EAAE,GAAG,EAAE,GAAG,EAAE,GAAG,EAAE,GAAG,EAAE,GAAG,CAAC,CAAC,CAAC;AAEtD,MAAM,UAAU,mBAAmB,CAAC,IAAqB;IACvD,IAAI,IAAI,CAAC,IAAI,KAAK,QAAQ;QAAE,OAAO,kBAAkB,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;IACjE,IAAI,IAAI,CAAC,IAAI,KAAK,QAAQ;QAAE,OAAO,cAAc,CAAC,IAAI,CAAC,IAAI,EAAE,OAAO,CAAC,MAAM,CAAC,CAAC;IAC7E,IAAI,IAAI,CAAC,IAAI,KAAK,SAAS;QAAE,OAAO,cAAc,CAAC,IAAI,CAAC,IAAI,EAAE,OAAO,CAAC,OAAO,CAAC,CAAC;IAC/E,OAAO,cAAc,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;AACnC,CAAC;AAED,SAAS,cAAc,CAAC,GAAW,EAAE,KAAc;IACjD,OAAO,GAAG,CAAC,KAAK,CAAC,IAAI,CAAC,CAAC,GAAG,CAAC,CAAC,IAAI,EAAE,EAAE,CAAC,CAAC,IAAI,CAAC,MAAM,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC,GAAG,CAAC,IAAI,EAAE,KAAK,CAAC,CAAC,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC;AACpF,CAAC;AAED,SAAS,QAAQ,CAAC,IAAY;IAC5B,OAAO,8BAA8B,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;AACnD,CAAC;AAED,SAAS,SAAS,CAAC,IAAY;IAC7B,IAAI,mBAAmB,CAAC,GAAG,CAAC,IAAI,CAAC,IAAI,gBAAgB,CAAC,GAAG,CAAC,IAAI,CAAC;QAAE,OAAO,OAAO,CAAC,OAAO,CAAC;IACxF,IAAI,aAAa,CAAC,GAAG,CAAC,IAAI,CAAC;QAAE,OAAO,OAAO,CAAC,OAAO,CAAC;IACpD,IAAI,IAAI,KAAK,KAAK;QAAE,OAAO,OAAO,CAAC,QAAQ,CAAC;IAC5C,IAAI,IAAI,CAAC,MAAM,GAAG,CAAC,IAAI,IAAI,CAAC,UAAU,CAAC,GAAG,CAAC;QAAE,OAAO,OAAO,CAAC,QAAQ,CAAC;IACrE,IAAI,IAAI,CAAC,MAAM,GAAG,CAAC,IAAI,IAAI,CAAC,UAAU,CAAC,GAAG,CAAC;QAAE,OAAO,OAAO,CAAC,QAAQ,CAAC;IACrE,IAAI,QAAQ,CAAC,IAAI,CAAC;QAAE,OAAO,OAAO,CAAC,MAAM,CAAC;IAC1C,OAAO,OAAO,CAAC,MAAM,CAAC;AACxB,CAAC;AAED,SAAS,GAAG,CAAC,IAAY,EAAE,KAAc;IACvC,MAAM,IAAI,GAAa,EAAE,IAAI,EAAE,CAAC;IAChC,IAAI,KAAK;QAAE,IAAI,CAAC,KAAK,GAAG,KAAK,CAAC;IAC9B,OAAO,IAAI,CAAC;AACd,CAAC;AAED,uEAAuE;AACvE,MAAM,UAAU,kBAAkB,CAAC,GAAW;IAC5C,MAAM,IAAI,GAAe,EAAE,CAAC;IAC5B,IAAI,CAAC,GAAG,CAAC,CAAC;IACV,MAAM,CAAC,GAAG,GAAG,CAAC,MAAM,CAAC;IACrB,OAAO,CAAC,GAAG,CAAC,EAAE,CAAC;QACb,MAAM,EAAE,GAAG,GAAG,CAAC,CAAC,CAAE,CAAC;QAEnB,IAAI,EAAE,KAAK,GAAG,EAAE,CAAC;YACf,IAAI,CAAC,GAAG,CAAC,GAAG,CAAC,CAAC;YACd,OAAO,CAAC,GAAG,CAAC,EAAE,CAAC;gBACb,IAAI,GAAG,CAAC,CAAC,CAAC,KAAK,IAAI,EAAE,CAAC;oBACpB,CAAC,IAAI,CAAC,CAAC;oBACP,SAAS;gBACX,CAAC;gBACD,IAAI,GAAG,CAAC,CAAC,CAAC,KAAK,GAAG,EAAE,CAAC;oBACnB,CAAC,IAAI,CAAC,CAAC;oBACP,MAAM;gBACR,CAAC;gBACD,CAAC,IAAI,CAAC,CAAC;YACT,CAAC;YACD,IAAI,CAAC,IAAI,CAAC,GAAG,CAAC,GAAG,CAAC,KAAK,CAAC,CAAC,EAAE,CAAC,CAAC,EAAE,OAAO,CAAC,MAAM,CAAC,CAAC,CAAC;YAChD,CAAC,GAAG,CAAC,CAAC;YACN,SAAS;QACX,CAAC;QAED,IAAI,EAAE,KAAK,GAAG,IAAI,GAAG,CAAC,CAAC,GAAG,CAAC,CAAC,KAAK,GAAG,EAAE,CAAC;YACrC,MAAM,GAAG,GAAG,GAAG,CAAC,OAAO,CAAC,IAAI,EAAE,CAAC,GAAG,CAAC,CAAC,CAAC;YACrC,MAAM,CAAC,GAAG,GAAG,KAAK,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,GAAG,GAAG,CAAC,CAAC;YACnC,IAAI,CAAC,IAAI,CAAC,GAAG,CAAC,GAAG,CAAC,KAAK,CAAC,CAAC,EAAE,CAAC,CAAC,EAAE,OAAO,CAAC,OAAO,CAAC,CAAC,CAAC;YACjD,CAAC,GAAG,CAAC,CAAC;YACN,SAAS;QACX,CAAC;QAED,IAAI,EAAE,KAAK,GAAG,EAAE,CAAC;YACf,IAAI,CAAC,GAAG,CAAC,CAAC;YACV,OAAO,CAAC,GAAG,CAAC,IAAI,GAAG,CAAC,CAAC,CAAC,KAAK,IAAI;gBAAE,CAAC,IAAI,CAAC,CAAC;YACxC,IAAI,CAAC,IAAI,CAAC,GAAG,CAAC,GAAG,CAAC,KAAK,CAAC,CAAC,EAAE,CAAC,CAAC,EAAE,OAAO,CAAC,OAAO,CAAC,CAAC,CAAC;YACjD,CAAC,GAAG,CAAC,CAAC;YACN,SAAS;QACX,CAAC;QAED,IAAI,KAAK,CAAC,GAAG,CAAC,EAAE,CAAC,EAAE,CAAC;YAClB,IAAI,CAAC,IAAI,CAAC,GAAG,CAAC,EAAE,EAAE,OAAO,CAAC,SAAS,CAAC,CAAC,CAAC;YACtC,CAAC,IAAI,CAAC,CAAC;YACP,SAAS;QACX,CAAC;QAED,IAAI,EAAE,KAAK,GAAG,IAAI,EAAE,KAAK,IAAI,IAAI,EAAE,KAAK,IAAI,IAAI,EAAE,KAAK,IAAI,EAAE,CAAC;YAC5D,IAAI,CAAC,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,CAAC,CAAC;YACnB,CAAC,IAAI,CAAC,CAAC;YACP,SAAS;QACX,CAAC;QAED,IAAI,CAAC,GAAG,CAAC,CAAC;QACV,OAAO,CAAC,GAAG,CAAC,EAAE,CAAC;YACb,MAAM,CAAC,GAAG,GAAG,CAAC,CAAC,CAAE,CAAC;YAClB,IAAI,KAAK,CAAC,GAAG,CAAC,CAAC,CAAC,IAAI,CAAC,KAAK,GAAG,IAAI,CAAC,KAAK,GAAG,IAAI,CAAC,KAAK,GAAG,IAAI,CAAC,KAAK,IAAI,IAAI,CAAC,KAAK,IAAI,IAAI,CAAC,KAAK,IAAI,EAAE,CAAC;gBAClG,MAAM;YACR,CAAC;YACD,CAAC,IAAI,CAAC,CAAC;QACT,CAAC;QACD,MAAM,IAAI,GAAG,GAAG,CAAC,KAAK,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC;QAC7B,IAAI,CAAC,IAAI,CAAC,GAAG,CAAC,IAAI,EAAE,SAAS,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC;QACtC,CAAC,GAAG,CAAC,CAAC;IACR,CAAC;IACD,OAAO,UAAU,CAAC,IAAI,CAAC,CAAC;AAC1B,CAAC;AAED,SAAS,UAAU,CAAC,IAAgB;IAClC,MAAM,KAAK,GAAoB,CAAC,EAAE,CAAC,CAAC;IACpC,KAAK,MAAM,KAAK,IAAI,IAAI,EAAE,CAAC;QACzB,MAAM,KAAK,GAAG,KAAK,CAAC,IAAI,CAAC,KAAK,CAAC,IAAI,CAAC,CAAC;QACrC,KAAK,MAAM,CAAC,CAAC,EAAE,IAAI,CAAC,IAAI,KAAK,CAAC,OAAO,EAAE,EAAE,CAAC;YACxC,IAAI,CAAC,GAAG,CAAC;gBAAE,KAAK,CAAC,IAAI,CAAC,EAAE,CAAC,CAAC;YAC1B,IAAI,IAAI,CAAC,MAAM,GAAG,CAAC;gBAAE,KAAK,CAAC,EAAE,CAAC,CAAC,CAAC,CAAE,CAAC,IAAI,CAAC,GAAG,CAAC,IAAI,EAAE,KAAK,CAAC,KAAK,CAAC,CAAC,CAAC;QAClE,CAAC;IACH,CAAC;IACD,OAAO,KAAK,CAAC;AACf,CAAC"}

package/dist/tui/sugarcoat.d.ts

@@ -0,0 +1,29 @@
+import type { ToolOutcomeSnap } from "@inhuman.tools/harness-model/schemas";
+export declare function sugarcoatSource(src: string): string;
+/** Tape/object paint for a scheme_repl program. Splices wrapping begin/list/`[]` first. */
+export declare function sugarcoatProgram(src: string): string;
+/** JSON-quoted payloads (`"a\\nb"`) become the string with real newlines. Bare `C:\\new` stays. */
+export declare function decodeDisplayString(text: string): string;
+export type SchemePaintKind = "text" | "markdown" | "number" | "boolean" | "syntax";
+export type SchemePaintPart = {
+    readonly kind: SchemePaintKind;
+    readonly text: string;
+};
+export type SchemePaintReceipt = {
+    readonly kind: "none";
+} | SchemePaintPart | {
+    readonly kind: "parts";
+    readonly parts: readonly SchemePaintPart[];
+};
+/** Scheme boolean spellings. The highlighter colours the same atoms. */
+export declare const BOOLEAN_ATOMS: ReadonlySet<string>;
+export declare function formatSchemeResult(snap: ToolOutcomeSnap | null | undefined): string;
+export type FilePaintHint = {
+    readonly path: string;
+    readonly text: string;
+};
+/** One receipt per printed value. A display string stays plain. Serializer text is syntax. */
+export declare function schemePaintReceipt(snap: ToolOutcomeSnap | null | undefined, hints?: readonly FilePaintHint[]): SchemePaintReceipt;
+export declare function isMarkdownPath(path: string): boolean;
+export declare function fileSchemePart(path: string, text: string): SchemePaintPart | undefined;
+//# sourceMappingURL=sugarcoat.d.ts.map

package/dist/tui/sugarcoat.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"sugarcoat.d.ts","sourceRoot":"","sources":["../../src/tui/sugarcoat.ts"],"names":[],"mappings":"AAQA,OAAO,KAAK,EAAE,eAAe,EAAE,MAAM,sCAAsC,CAAC;AAI5E,wBAAgB,eAAe,CAAC,GAAG,EAAE,MAAM,GAAG,MAAM,CAQnD;AAED,2FAA2F;AAC3F,wBAAgB,gBAAgB,CAAC,GAAG,EAAE,MAAM,GAAG,MAAM,CAEpD;AAED,mGAAmG;AACnG,wBAAgB,mBAAmB,CAAC,IAAI,EAAE,MAAM,GAAG,MAAM,CASxD;AAED,MAAM,MAAM,eAAe,GAAG,MAAM,GAAG,UAAU,GAAG,QAAQ,GAAG,SAAS,GAAG,QAAQ,CAAC;AAEpF,MAAM,MAAM,eAAe,GAAG;IAC5B,QAAQ,CAAC,IAAI,EAAE,eAAe,CAAC;IAC/B,QAAQ,CAAC,IAAI,EAAE,MAAM,CAAC;CACvB,CAAC;AAEF,MAAM,MAAM,kBAAkB,GAC1B;IAAE,QAAQ,CAAC,IAAI,EAAE,MAAM,CAAA;CAAE,GACzB,eAAe,GACf;IACE,QAAQ,CAAC,IAAI,EAAE,OAAO,CAAC;IACvB,QAAQ,CAAC,KAAK,EAAE,SAAS,eAAe,EAAE,CAAC;CAC5C,CAAC;AAEN,wEAAwE;AACxE,eAAO,MAAM,aAAa,EAAE,WAAW,CAAC,MAAM,CAA4C,CAAC;AAoB3F,wBAAgB,kBAAkB,CAAC,IAAI,EAAE,eAAe,GAAG,IAAI,GAAG,SAAS,GAAG,MAAM,CAKnF;AAED,MAAM,MAAM,aAAa,GAAG;IAAE,QAAQ,CAAC,IAAI,EAAE,MAAM,CAAC;IAAC,QAAQ,CAAC,IAAI,EAAE,MAAM,CAAA;CAAE,CAAC;AAE7E,8FAA8F;AAC9F,wBAAgB,kBAAkB,CAChC,IAAI,EAAE,eAAe,GAAG,IAAI,GAAG,SAAS,EACxC,KAAK,GAAE,SAAS,aAAa,EAAO,GACnC,kBAAkB,CAoBpB;AAED,wBAAgB,cAAc,CAAC,IAAI,EAAE,MAAM,GAAG,OAAO,CAEpD;AAED,wBAAgB,cAAc,CAAC,IAAI,EAAE,MAAM,EAAE,IAAI,EAAE,MAAM,GAAG,eAAe,GAAG,SAAS,CAItF"}

package/dist/tui/sugarcoat.js

@@ -0,0 +1,148 @@
+/**
+ * Scheme result projection for the tape and for plain-text clients: sugarcoat the
+ * stored source, and classify printed values into typed parts. No colour and no
+ * widget types. `sugarcoat-paint.ts` adds those, so a headless client can read this
+ * file without loading the paint substrate.
+ */
+import { toSExprString } from "@here.build/arrival-serializer";
+import { schemeToSugarcoat } from "@here.build/arrival-sugarcoat";
+import { unwrapTopLevelSource } from "./unwrap-program.js";
+export function sugarcoatSource(src) {
+    if (src.trim() === "")
+        return src;
+    try {
+        const sweet = schemeToSugarcoat(src);
+        return sweet === "" ? src : sweet;
+    }
+    catch {
+        return src;
+    }
+}
+/** Tape/object paint for a scheme_repl program. Splices wrapping begin/list/`[]` first. */
+export function sugarcoatProgram(src) {
+    return sugarcoatSource(unwrapTopLevelSource(src));
+}
+/** JSON-quoted payloads (`"a\\nb"`) become the string with real newlines. Bare `C:\\new` stays. */
+export function decodeDisplayString(text) {
+    const trimmed = text.trim();
+    if (trimmed.length < 2 || !trimmed.startsWith('"') || !trimmed.endsWith('"'))
+        return text;
+    try {
+        const parsed = JSON.parse(trimmed);
+        return typeof parsed === "string" ? parsed : text;
+    }
+    catch {
+        return text;
+    }
+}
+/** Scheme boolean spellings. The highlighter colours the same atoms. */
+export const BOOLEAN_ATOMS = new Set(["#t", "#f", "#true", "#false"]);
+/** Prefixes `toSExprString` emits. A cut marker is recognized anywhere so a
+ *  leading display note does not hide it. */
+function serializerForm(text) {
+    if (text.includes("\n#| … output hard-truncated at ") || text.includes("…(+"))
+        return true;
+    const trimmed = text.trimStart();
+    return (trimmed.startsWith(";;") ||
+        trimmed.startsWith("#|") ||
+        trimmed.startsWith("(") ||
+        trimmed.startsWith("[") ||
+        trimmed.startsWith("{") ||
+        trimmed.startsWith('"') ||
+        trimmed.startsWith("'") ||
+        trimmed.startsWith("#\\") ||
+        trimmed.startsWith(":"));
+}
+export function formatSchemeResult(snap) {
+    const painted = schemePaintReceipt(snap);
+    if (painted.kind === "none")
+        return "";
+    if (painted.kind === "parts")
+        return painted.parts.map((part) => part.text).join("\n");
+    return painted.text;
+}
+/** One receipt per printed value. A display string stays plain. Serializer text is syntax. */
+export function schemePaintReceipt(snap, hints = []) {
+    if (snap == null)
+        return { kind: "none" };
+    if (snap.ok === false) {
+        const text = decodeDisplayString(snap.text ?? "");
+        return text === "" ? { kind: "none" } : { kind: "text", text };
+    }
+    if (!("value" in snap) || snap.value === undefined) {
+        const text = decodeDisplayString(typeof snap.text === "string" ? snap.text : "");
+        return text === "" ? { kind: "none" } : { kind: "text", text };
+    }
+    const items = Array.isArray(snap.value) ? snap.value : [snap.value];
+    const parts = items
+        .map((item) => schemePart(item, hints))
+        .filter((part) => part !== undefined);
+    if (parts.length === 0)
+        return { kind: "none" };
+    if (parts.length === 1) {
+        const only = parts[0];
+        return only === undefined ? { kind: "none" } : only;
+    }
+    return { kind: "parts", parts };
+}
+export function isMarkdownPath(path) {
+    return path.endsWith(".md") || path.endsWith(".mdx");
+}
+export function fileSchemePart(path, text) {
+    const body = decodeDisplayString(text);
+    if (body === "")
+        return undefined;
+    return isMarkdownPath(path) ? { kind: "markdown", text: body } : { kind: "text", text: body };
+}
+function isFilePrint(value) {
+    if (value === null || typeof value !== "object" || Array.isArray(value))
+        return false;
+    const rec = value;
+    return typeof rec.text === "string" && rec.face?.kind === "file" && typeof rec.face.path === "string";
+}
+function hintedFilePart(text, hints) {
+    const matched = new Set(hints.filter((hint) => hint.text === text).map((hint) => hint.path));
+    if (matched.size !== 1)
+        return undefined;
+    const [path] = matched;
+    return path === undefined ? undefined : fileSchemePart(path, text);
+}
+function schemePart(value, hints = []) {
+    if (typeof value === "boolean")
+        return { kind: "boolean", text: value ? "#t" : "#f" };
+    if (typeof value === "number" && Number.isFinite(value))
+        return { kind: "number", text: String(value) };
+    if (typeof value === "bigint")
+        return { kind: "number", text: String(value) };
+    if (isFilePrint(value))
+        return fileSchemePart(value.face.path, value.text);
+    if (typeof value === "string") {
+        const text = decodeDisplayString(value);
+        const hinted = hintedFilePart(text, hints);
+        if (hinted !== undefined)
+            return hinted;
+        if (BOOLEAN_ATOMS.has(text))
+            return { kind: "boolean", text };
+        // Whole-value number, not a tokenizer prefix. `#t` is a boolean, not `#`+digit.
+        if (text !== "" &&
+            !/\s/.test(text) &&
+            !BOOLEAN_ATOMS.has(text) &&
+            (Number.isFinite(Number(text)) || /^[+-]?#[xbodei]/i.test(text))) {
+            return { kind: "number", text };
+        }
+        if (text === "")
+            return undefined;
+        // Eval already stored `toSExprString` as a string. Those forms highlight;
+        // a display sentence and a file body do not start this way.
+        return serializerForm(text) ? { kind: "syntax", text } : { kind: "text", text };
+    }
+    try {
+        const text = toSExprString(value);
+        return text === "" ? undefined : { kind: "syntax", text };
+    }
+    catch {
+        const text = decodeDisplayString(String(value));
+        return text === "" ? undefined : { kind: "text", text };
+    }
+}
+//# sourceMappingURL=sugarcoat.js.map

package/dist/tui/sugarcoat.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"sugarcoat.js","sourceRoot":"","sources":["../../src/tui/sugarcoat.ts"],"names":[],"mappings":"AAAA;;;;;GAKG;AACH,OAAO,EAAE,aAAa,EAAE,MAAM,gCAAgC,CAAC;AAC/D,OAAO,EAAE,iBAAiB,EAAE,MAAM,+BAA+B,CAAC;AAGlE,OAAO,EAAE,oBAAoB,EAAE,MAAM,qBAAqB,CAAC;AAE3D,MAAM,UAAU,eAAe,CAAC,GAAW;IACzC,IAAI,GAAG,CAAC,IAAI,EAAE,KAAK,EAAE;QAAE,OAAO,GAAG,CAAC;IAClC,IAAI,CAAC;QACH,MAAM,KAAK,GAAG,iBAAiB,CAAC,GAAG,CAAC,CAAC;QACrC,OAAO,KAAK,KAAK,EAAE,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,KAAK,CAAC;IACpC,CAAC;IAAC,MAAM,CAAC;QACP,OAAO,GAAG,CAAC;IACb,CAAC;AACH,CAAC;AAED,2FAA2F;AAC3F,MAAM,UAAU,gBAAgB,CAAC,GAAW;IAC1C,OAAO,eAAe,CAAC,oBAAoB,CAAC,GAAG,CAAC,CAAC,CAAC;AACpD,CAAC;AAED,mGAAmG;AACnG,MAAM,UAAU,mBAAmB,CAAC,IAAY;IAC9C,MAAM,OAAO,GAAG,IAAI,CAAC,IAAI,EAAE,CAAC;IAC5B,IAAI,OAAO,CAAC,MAAM,GAAG,CAAC,IAAI,CAAC,OAAO,CAAC,UAAU,CAAC,GAAG,CAAC,IAAI,CAAC,OAAO,CAAC,QAAQ,CAAC,GAAG,CAAC;QAAE,OAAO,IAAI,CAAC;IAC1F,IAAI,CAAC;QACH,MAAM,MAAM,GAAY,IAAI,CAAC,KAAK,CAAC,OAAO,CAAC,CAAC;QAC5C,OAAO,OAAO,MAAM,KAAK,QAAQ,CAAC,CAAC,CAAC,MAAM,CAAC,CAAC,CAAC,IAAI,CAAC;IACpD,CAAC;IAAC,MAAM,CAAC;QACP,OAAO,IAAI,CAAC;IACd,CAAC;AACH,CAAC;AAiBD,wEAAwE;AACxE,MAAM,CAAC,MAAM,aAAa,GAAwB,IAAI,GAAG,CAAC,CAAC,IAAI,EAAE,IAAI,EAAE,OAAO,EAAE,QAAQ,CAAC,CAAC,CAAC;AAE3F;6CAC6C;AAC7C,SAAS,cAAc,CAAC,IAAY;IAClC,IAAI,IAAI,CAAC,QAAQ,CAAC,kCAAkC,CAAC,IAAI,IAAI,CAAC,QAAQ,CAAC,KAAK,CAAC;QAAE,OAAO,IAAI,CAAC;IAC3F,MAAM,OAAO,GAAG,IAAI,CAAC,SAAS,EAAE,CAAC;IACjC,OAAO,CACL,OAAO,CAAC,UAAU,CAAC,IAAI,CAAC;QACxB,OAAO,CAAC,UAAU,CAAC,IAAI,CAAC;QACxB,OAAO,CAAC,UAAU,CAAC,GAAG,CAAC;QACvB,OAAO,CAAC,UAAU,CAAC,GAAG,CAAC;QACvB,OAAO,CAAC,UAAU,CAAC,GAAG,CAAC;QACvB,OAAO,CAAC,UAAU,CAAC,GAAG,CAAC;QACvB,OAAO,CAAC,UAAU,CAAC,GAAG,CAAC;QACvB,OAAO,CAAC,UAAU,CAAC,KAAK,CAAC;QACzB,OAAO,CAAC,UAAU,CAAC,GAAG,CAAC,CACxB,CAAC;AACJ,CAAC;AAED,MAAM,UAAU,kBAAkB,CAAC,IAAwC;IACzE,MAAM,OAAO,GAAG,kBAAkB,CAAC,IAAI,CAAC,CAAC;IACzC,IAAI,OAAO,CAAC,IAAI,KAAK,MAAM;QAAE,OAAO,EAAE,CAAC;IACvC,IAAI,OAAO,CAAC,IAAI,KAAK,OAAO;QAAE,OAAO,OAAO,CAAC,KAAK,CAAC,GAAG,CAAC,CAAC,IAAI,EAAE,EAAE,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;IACvF,OAAO,OAAO,CAAC,IAAI,CAAC;AACtB,CAAC;AAID,8FAA8F;AAC9F,MAAM,UAAU,kBAAkB,CAChC,IAAwC,EACxC,QAAkC,EAAE;IAEpC,IAAI,IAAI,IAAI,IAAI;QAAE,OAAO,EAAE,IAAI,EAAE,MAAM,EAAE,CAAC;IAC1C,IAAI,IAAI,CAAC,EAAE,KAAK,KAAK,EAAE,CAAC;QACtB,MAAM,IAAI,GAAG,mBAAmB,CAAC,IAAI,CAAC,IAAI,IAAI,EAAE,CAAC,CAAC;QAClD,OAAO,IAAI,KAAK,EAAE,CAAC,CAAC,CAAC,EAAE,IAAI,EAAE,MAAM,EAAE,CAAC,CAAC,CAAC,EAAE,IAAI,EAAE,MAAM,EAAE,IAAI,EAAE,CAAC;IACjE,CAAC;IACD,IAAI,CAAC,CAAC,OAAO,IAAI,IAAI,CAAC,IAAI,IAAI,CAAC,KAAK,KAAK,SAAS,EAAE,CAAC;QACnD,MAAM,IAAI,GAAG,mBAAmB,CAAC,OAAO,IAAI,CAAC,IAAI,KAAK,QAAQ,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC;QACjF,OAAO,IAAI,KAAK,EAAE,CAAC,CAAC,CAAC,EAAE,IAAI,EAAE,MAAM,EAAE,CAAC,CAAC,CAAC,EAAE,IAAI,EAAE,MAAM,EAAE,IAAI,EAAE,CAAC;IACjE,CAAC;IACD,MAAM,KAAK,GAAG,KAAK,CAAC,OAAO,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC;IACpE,MAAM,KAAK,GAAG,KAAK;SAChB,GAAG,CAAC,CAAC,IAAI,EAAE,EAAE,CAAC,UAAU,CAAC,IAAI,EAAE,KAAK,CAAC,CAAC;SACtC,MAAM,CAAC,CAAC,IAAI,EAA2B,EAAE,CAAC,IAAI,KAAK,SAAS,CAAC,CAAC;IACjE,IAAI,KAAK,CAAC,MAAM,KAAK,CAAC;QAAE,OAAO,EAAE,IAAI,EAAE,MAAM,EAAE,CAAC;IAChD,IAAI,KAAK,CAAC,MAAM,KAAK,CAAC,EAAE,CAAC;QACvB,MAAM,IAAI,GAAG,KAAK,CAAC,CAAC,CAAC,CAAC;QACtB,OAAO,IAAI,KAAK,SAAS,CAAC,CAAC,CAAC,EAAE,IAAI,EAAE,MAAM,EAAE,CAAC,CAAC,CAAC,IAAI,CAAC;IACtD,CAAC;IACD,OAAO,EAAE,IAAI,EAAE,OAAO,EAAE,KAAK,EAAE,CAAC;AAClC,CAAC;AAED,MAAM,UAAU,cAAc,CAAC,IAAY;IACzC,OAAO,IAAI,CAAC,QAAQ,CAAC,KAAK,CAAC,IAAI,IAAI,CAAC,QAAQ,CAAC,MAAM,CAAC,CAAC;AACvD,CAAC;AAED,MAAM,UAAU,cAAc,CAAC,IAAY,EAAE,IAAY;IACvD,MAAM,IAAI,GAAG,mBAAmB,CAAC,IAAI,CAAC,CAAC;IACvC,IAAI,IAAI,KAAK,EAAE;QAAE,OAAO,SAAS,CAAC;IAClC,OAAO,cAAc,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC,EAAE,IAAI,EAAE,UAAU,EAAE,IAAI,EAAE,IAAI,EAAE,CAAC,CAAC,CAAC,EAAE,IAAI,EAAE,MAAM,EAAE,IAAI,EAAE,IAAI,EAAE,CAAC;AAChG,CAAC;AAED,SAAS,WAAW,CAAC,KAAc;IACjC,IAAI,KAAK,KAAK,IAAI,IAAI,OAAO,KAAK,KAAK,QAAQ,IAAI,KAAK,CAAC,OAAO,CAAC,KAAK,CAAC;QAAE,OAAO,KAAK,CAAC;IACtF,MAAM,GAAG,GAAG,KAAsE,CAAC;IACnF,OAAO,OAAO,GAAG,CAAC,IAAI,KAAK,QAAQ,IAAI,GAAG,CAAC,IAAI,EAAE,IAAI,KAAK,MAAM,IAAI,OAAO,GAAG,CAAC,IAAI,CAAC,IAAI,KAAK,QAAQ,CAAC;AACxG,CAAC;AAED,SAAS,cAAc,CAAC,IAAY,EAAE,KAA+B;IACnE,MAAM,OAAO,GAAG,IAAI,GAAG,CAAC,KAAK,CAAC,MAAM,CAAC,CAAC,IAAI,EAAE,EAAE,CAAC,IAAI,CAAC,IAAI,KAAK,IAAI,CAAC,CAAC,GAAG,CAAC,CAAC,IAAI,EAAE,EAAE,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC,CAAC;IAC7F,IAAI,OAAO,CAAC,IAAI,KAAK,CAAC;QAAE,OAAO,SAAS,CAAC;IACzC,MAAM,CAAC,IAAI,CAAC,GAAG,OAAO,CAAC;IACvB,OAAO,IAAI,KAAK,SAAS,CAAC,CAAC,CAAC,SAAS,CAAC,CAAC,CAAC,cAAc,CAAC,IAAI,EAAE,IAAI,CAAC,CAAC;AACrE,CAAC;AAED,SAAS,UAAU,CAAC,KAAc,EAAE,QAAkC,EAAE;IACtE,IAAI,OAAO,KAAK,KAAK,SAAS;QAAE,OAAO,EAAE,IAAI,EAAE,SAAS,EAAE,IAAI,EAAE,KAAK,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC,IAAI,EAAE,CAAC;IACtF,IAAI,OAAO,KAAK,KAAK,QAAQ,IAAI,MAAM,CAAC,QAAQ,CAAC,KAAK,CAAC;QAAE,OAAO,EAAE,IAAI,EAAE,QAAQ,EAAE,IAAI,EAAE,MAAM,CAAC,KAAK,CAAC,EAAE,CAAC;IACxG,IAAI,OAAO,KAAK,KAAK,QAAQ;QAAE,OAAO,EAAE,IAAI,EAAE,QAAQ,EAAE,IAAI,EAAE,MAAM,CAAC,KAAK,CAAC,EAAE,CAAC;IAC9E,IAAI,WAAW,CAAC,KAAK,CAAC;QAAE,OAAO,cAAc,CAAC,KAAK,CAAC,IAAI,CAAC,IAAI,EAAE,KAAK,CAAC,IAAI,CAAC,CAAC;IAC3E,IAAI,OAAO,KAAK,KAAK,QAAQ,EAAE,CAAC;QAC9B,MAAM,IAAI,GAAG,mBAAmB,CAAC,KAAK,CAAC,CAAC;QACxC,MAAM,MAAM,GAAG,cAAc,CAAC,IAAI,EAAE,KAAK,CAAC,CAAC;QAC3C,IAAI,MAAM,KAAK,SAAS;YAAE,OAAO,MAAM,CAAC;QACxC,IAAI,aAAa,CAAC,GAAG,CAAC,IAAI,CAAC;YAAE,OAAO,EAAE,IAAI,EAAE,SAAS,EAAE,IAAI,EAAE,CAAC;QAC9D,gFAAgF;QAChF,IACE,IAAI,KAAK,EAAE;YACX,CAAC,IAAI,CAAC,IAAI,CAAC,IAAI,CAAC;YAChB,CAAC,aAAa,CAAC,GAAG,CAAC,IAAI,CAAC;YACxB,CAAC,MAAM,CAAC,QAAQ,CAAC,MAAM,CAAC,IAAI,CAAC,CAAC,IAAI,kBAAkB,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC,EAChE,CAAC;YACD,OAAO,EAAE,IAAI,EAAE,QAAQ,EAAE,IAAI,EAAE,CAAC;QAClC,CAAC;QACD,IAAI,IAAI,KAAK,EAAE;YAAE,OAAO,SAAS,CAAC;QAClC,0EAA0E;QAC1E,4DAA4D;QAC5D,OAAO,cAAc,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC,EAAE,IAAI,EAAE,QAAQ,EAAE,IAAI,EAAE,CAAC,CAAC,CAAC,EAAE,IAAI,EAAE,MAAM,EAAE,IAAI,EAAE,CAAC;IAClF,CAAC;IACD,IAAI,CAAC;QACH,MAAM,IAAI,GAAG,aAAa,CAAC,KAAK,CAAC,CAAC;QAClC,OAAO,IAAI,KAAK,EAAE,CAAC,CAAC,CAAC,SAAS,CAAC,CAAC,CAAC,EAAE,IAAI,EAAE,QAAQ,EAAE,IAAI,EAAE,CAAC;IAC5D,CAAC;IAAC,MAAM,CAAC;QACP,MAAM,IAAI,GAAG,mBAAmB,CAAC,MAAM,CAAC,KAAK,CAAC,CAAC,CAAC;QAChD,OAAO,IAAI,KAAK,EAAE,CAAC,CAAC,CAAC,SAAS,CAAC,CAAC,CAAC,EAAE,IAAI,EAAE,MAAM,EAAE,IAAI,EAAE,CAAC;IAC1D,CAAC;AACH,CAAC"}

package/dist/tui/tape-spans.d.ts

@@ -0,0 +1,64 @@
+/**
+ * Present-side tape regroup. Thoughts glue across a speech gap.
+ * Tools that remain after density cut the glue — they sit in
+ * chronological order, not dumped after the span.
+ *
+ * Compact omits tools whose fuse stamp is set (`hideFloorTools`) before
+ * grouping, so those known-safe effects do not cut. Default stamp is off:
+ * floor-allow stays on the tape. Remainder never stamps. Expanded keeps
+ * every identity. Loop pulse is never fused.
+ */
+export type TapeItem<T> = {
+    readonly kind: "user";
+    readonly node: T;
+} | {
+    readonly kind: "recall";
+    readonly node: T;
+} | {
+    readonly kind: "thought-only";
+    readonly node: T;
+} | {
+    readonly kind: "speech";
+    readonly node: T;
+    readonly thought: T | null;
+} | {
+    readonly kind: "tool";
+    readonly node: T;
+};
+export type TapeSpan<T> = {
+    readonly kind: "user";
+    readonly node: T;
+} | {
+    readonly kind: "recall";
+    readonly node: T;
+} | {
+    readonly kind: "speech";
+    readonly node: T;
+} | {
+    readonly kind: "thoughts";
+    readonly nodes: readonly T[];
+} | {
+    readonly kind: "tools";
+    readonly nodes: readonly T[];
+};
+export declare function groupTapeSpans<T>(items: readonly TapeItem<T>[]): TapeSpan<T>[];
+/**
+ * Predicate is `I["node"]`. Mixed arrays synthesize `thought?: undefined`;
+ * `TapeItem<T>` would infer T from speech `thought` and poison it.
+ */
+export declare function filterFusedTools<I extends TapeItem<unknown>>(items: readonly I[], fused: (node: I["node"]) => boolean): I[];
+export type ThoughtClockMember = {
+    readonly live: boolean;
+    readonly startedAt: number | null;
+    readonly durationMs: number | null;
+};
+/**
+ * Cluster thinking time — sum of member spans, not wall-clock through tools.
+ * Live: `startedAt` is origin so `elapsedLive` ticks the sum (sealed + live).
+ */
+export declare function clusterThoughtClock(members: readonly ThoughtClockMember[], now?: number): {
+    readonly live: boolean;
+    readonly startedAt: number | undefined;
+    readonly durationMs: number | undefined;
+};
+//# sourceMappingURL=tape-spans.d.ts.map

package/dist/tui/tape-spans.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"tape-spans.d.ts","sourceRoot":"","sources":["../../src/tui/tape-spans.ts"],"names":[],"mappings":"AAAA;;;;;;;;;GASG;AACH,MAAM,MAAM,QAAQ,CAAC,CAAC,IAClB;IAAE,QAAQ,CAAC,IAAI,EAAE,MAAM,CAAC;IAAC,QAAQ,CAAC,IAAI,EAAE,CAAC,CAAA;CAAE,GAC3C;IAAE,QAAQ,CAAC,IAAI,EAAE,QAAQ,CAAC;IAAC,QAAQ,CAAC,IAAI,EAAE,CAAC,CAAA;CAAE,GAC7C;IAAE,QAAQ,CAAC,IAAI,EAAE,cAAc,CAAC;IAAC,QAAQ,CAAC,IAAI,EAAE,CAAC,CAAA;CAAE,GACnD;IAAE,QAAQ,CAAC,IAAI,EAAE,QAAQ,CAAC;IAAC,QAAQ,CAAC,IAAI,EAAE,CAAC,CAAC;IAAC,QAAQ,CAAC,OAAO,EAAE,CAAC,GAAG,IAAI,CAAA;CAAE,GACzE;IAAE,QAAQ,CAAC,IAAI,EAAE,MAAM,CAAC;IAAC,QAAQ,CAAC,IAAI,EAAE,CAAC,CAAA;CAAE,CAAC;AAEhD,MAAM,MAAM,QAAQ,CAAC,CAAC,IAClB;IAAE,QAAQ,CAAC,IAAI,EAAE,MAAM,CAAC;IAAC,QAAQ,CAAC,IAAI,EAAE,CAAC,CAAA;CAAE,GAC3C;IAAE,QAAQ,CAAC,IAAI,EAAE,QAAQ,CAAC;IAAC,QAAQ,CAAC,IAAI,EAAE,CAAC,CAAA;CAAE,GAC7C;IAAE,QAAQ,CAAC,IAAI,EAAE,QAAQ,CAAC;IAAC,QAAQ,CAAC,IAAI,EAAE,CAAC,CAAA;CAAE,GAC7C;IAAE,QAAQ,CAAC,IAAI,EAAE,UAAU,CAAC;IAAC,QAAQ,CAAC,KAAK,EAAE,SAAS,CAAC,EAAE,CAAA;CAAE,GAC3D;IAAE,QAAQ,CAAC,IAAI,EAAE,OAAO,CAAC;IAAC,QAAQ,CAAC,KAAK,EAAE,SAAS,CAAC,EAAE,CAAA;CAAE,CAAC;AAE7D,wBAAgB,cAAc,CAAC,CAAC,EAAE,KAAK,EAAE,SAAS,QAAQ,CAAC,CAAC,CAAC,EAAE,GAAG,QAAQ,CAAC,CAAC,CAAC,EAAE,CA+C9E;AAED;;;GAGG;AACH,wBAAgB,gBAAgB,CAAC,CAAC,SAAS,QAAQ,CAAC,OAAO,CAAC,EAC1D,KAAK,EAAE,SAAS,CAAC,EAAE,EACnB,KAAK,EAAE,CAAC,IAAI,EAAE,CAAC,CAAC,MAAM,CAAC,KAAK,OAAO,GAClC,CAAC,EAAE,CAEL;AAED,MAAM,MAAM,kBAAkB,GAAG;IAC/B,QAAQ,CAAC,IAAI,EAAE,OAAO,CAAC;IACvB,QAAQ,CAAC,SAAS,EAAE,MAAM,GAAG,IAAI,CAAC;IAClC,QAAQ,CAAC,UAAU,EAAE,MAAM,GAAG,IAAI,CAAC;CACpC,CAAC;AAEF;;;GAGG;AACH,wBAAgB,mBAAmB,CACjC,OAAO,EAAE,SAAS,kBAAkB,EAAE,EACtC,GAAG,SAAa,GACf;IACD,QAAQ,CAAC,IAAI,EAAE,OAAO,CAAC;IACvB,QAAQ,CAAC,SAAS,EAAE,MAAM,GAAG,SAAS,CAAC;IACvC,QAAQ,CAAC,UAAU,EAAE,MAAM,GAAG,SAAS,CAAC;CACzC,CA+BA"}

package/dist/tui/tape-spans.js

@@ -0,0 +1,93 @@
+export function groupTapeSpans(items) {
+    const out = [];
+    let thoughts = [];
+    let tools = [];
+    const flushThoughts = () => {
+        if (thoughts.length === 0)
+            return;
+        out.push({ kind: "thoughts", nodes: thoughts });
+        thoughts = [];
+    };
+    const flushTools = () => {
+        if (tools.length === 0)
+            return;
+        out.push({ kind: "tools", nodes: tools });
+        tools = [];
+    };
+    for (const item of items) {
+        switch (item.kind) {
+            case "user":
+                flushThoughts();
+                flushTools();
+                out.push({ kind: "user", node: item.node });
+                break;
+            case "recall":
+                flushThoughts();
+                flushTools();
+                out.push({ kind: "recall", node: item.node });
+                break;
+            case "thought-only":
+                flushTools();
+                thoughts.push(item.node);
+                break;
+            case "speech":
+                if (item.thought != null)
+                    thoughts.push(item.thought);
+                flushThoughts();
+                flushTools();
+                out.push({ kind: "speech", node: item.node });
+                break;
+            case "tool":
+                flushThoughts();
+                tools.push(item.node);
+                break;
+        }
+    }
+    flushThoughts();
+    flushTools();
+    return out;
+}
+/**
+ * Predicate is `I["node"]`. Mixed arrays synthesize `thought?: undefined`;
+ * `TapeItem<T>` would infer T from speech `thought` and poison it.
+ */
+export function filterFusedTools(items, fused) {
+    return items.filter((item) => item.kind !== "tool" || !fused(item.node));
+}
+/**
+ * Cluster thinking time — sum of member spans, not wall-clock through tools.
+ * Live: `startedAt` is origin so `elapsedLive` ticks the sum (sealed + live).
+ */
+export function clusterThoughtClock(members, now = Date.now()) {
+    let sealedMs = 0;
+    let anySealed = false;
+    let live = false;
+    let liveStartedAt;
+    for (const member of members) {
+        if (member.live) {
+            live = true;
+            if (member.startedAt != null && Number.isFinite(member.startedAt)) {
+                liveStartedAt = member.startedAt;
+            }
+            continue;
+        }
+        if (member.durationMs != null && Number.isFinite(member.durationMs)) {
+            sealedMs += Math.max(0, member.durationMs);
+            anySealed = true;
+        }
+    }
+    if (live) {
+        const liveElapsed = liveStartedAt == null ? 0 : Math.max(0, now - liveStartedAt);
+        return {
+            live: true,
+            startedAt: liveStartedAt == null ? undefined : liveStartedAt - sealedMs,
+            durationMs: liveStartedAt != null || anySealed ? sealedMs + liveElapsed : undefined,
+        };
+    }
+    return {
+        live: false,
+        startedAt: undefined,
+        durationMs: anySealed ? sealedMs : undefined,
+    };
+}
+//# sourceMappingURL=tape-spans.js.map

package/dist/tui/tape-spans.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"tape-spans.js","sourceRoot":"","sources":["../../src/tui/tape-spans.ts"],"names":[],"mappings":"AAwBA,MAAM,UAAU,cAAc,CAAI,KAA6B;IAC7D,MAAM,GAAG,GAAkB,EAAE,CAAC;IAC9B,IAAI,QAAQ,GAAQ,EAAE,CAAC;IACvB,IAAI,KAAK,GAAQ,EAAE,CAAC;IAEpB,MAAM,aAAa,GAAG,GAAS,EAAE;QAC/B,IAAI,QAAQ,CAAC,MAAM,KAAK,CAAC;YAAE,OAAO;QAClC,GAAG,CAAC,IAAI,CAAC,EAAE,IAAI,EAAE,UAAU,EAAE,KAAK,EAAE,QAAQ,EAAE,CAAC,CAAC;QAChD,QAAQ,GAAG,EAAE,CAAC;IAChB,CAAC,CAAC;IACF,MAAM,UAAU,GAAG,GAAS,EAAE;QAC5B,IAAI,KAAK,CAAC,MAAM,KAAK,CAAC;YAAE,OAAO;QAC/B,GAAG,CAAC,IAAI,CAAC,EAAE,IAAI,EAAE,OAAO,EAAE,KAAK,EAAE,KAAK,EAAE,CAAC,CAAC;QAC1C,KAAK,GAAG,EAAE,CAAC;IACb,CAAC,CAAC;IAEF,KAAK,MAAM,IAAI,IAAI,KAAK,EAAE,CAAC;QACzB,QAAQ,IAAI,CAAC,IAAI,EAAE,CAAC;YAClB,KAAK,MAAM;gBACT,aAAa,EAAE,CAAC;gBAChB,UAAU,EAAE,CAAC;gBACb,GAAG,CAAC,IAAI,CAAC,EAAE,IAAI,EAAE,MAAM,EAAE,IAAI,EAAE,IAAI,CAAC,IAAI,EAAE,CAAC,CAAC;gBAC5C,MAAM;YACR,KAAK,QAAQ;gBACX,aAAa,EAAE,CAAC;gBAChB,UAAU,EAAE,CAAC;gBACb,GAAG,CAAC,IAAI,CAAC,EAAE,IAAI,EAAE,QAAQ,EAAE,IAAI,EAAE,IAAI,CAAC,IAAI,EAAE,CAAC,CAAC;gBAC9C,MAAM;YACR,KAAK,cAAc;gBACjB,UAAU,EAAE,CAAC;gBACb,QAAQ,CAAC,IAAI,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;gBACzB,MAAM;YACR,KAAK,QAAQ;gBACX,IAAI,IAAI,CAAC,OAAO,IAAI,IAAI;oBAAE,QAAQ,CAAC,IAAI,CAAC,IAAI,CAAC,OAAO,CAAC,CAAC;gBACtD,aAAa,EAAE,CAAC;gBAChB,UAAU,EAAE,CAAC;gBACb,GAAG,CAAC,IAAI,CAAC,EAAE,IAAI,EAAE,QAAQ,EAAE,IAAI,EAAE,IAAI,CAAC,IAAI,EAAE,CAAC,CAAC;gBAC9C,MAAM;YACR,KAAK,MAAM;gBACT,aAAa,EAAE,CAAC;gBAChB,KAAK,CAAC,IAAI,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;gBACtB,MAAM;QACV,CAAC;IACH,CAAC;IACD,aAAa,EAAE,CAAC;IAChB,UAAU,EAAE,CAAC;IACb,OAAO,GAAG,CAAC;AACb,CAAC;AAED;;;GAGG;AACH,MAAM,UAAU,gBAAgB,CAC9B,KAAmB,EACnB,KAAmC;IAEnC,OAAO,KAAK,CAAC,MAAM,CAAC,CAAC,IAAI,EAAE,EAAE,CAAC,IAAI,CAAC,IAAI,KAAK,MAAM,IAAI,CAAC,KAAK,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC,CAAC;AAC3E,CAAC;AAQD;;;GAGG;AACH,MAAM,UAAU,mBAAmB,CACjC,OAAsC,EACtC,GAAG,GAAG,IAAI,CAAC,GAAG,EAAE;IAMhB,IAAI,QAAQ,GAAG,CAAC,CAAC;IACjB,IAAI,SAAS,GAAG,KAAK,CAAC;IACtB,IAAI,IAAI,GAAG,KAAK,CAAC;IACjB,IAAI,aAAiC,CAAC;IACtC,KAAK,MAAM,MAAM,IAAI,OAAO,EAAE,CAAC;QAC7B,IAAI,MAAM,CAAC,IAAI,EAAE,CAAC;YAChB,IAAI,GAAG,IAAI,CAAC;YACZ,IAAI,MAAM,CAAC,SAAS,IAAI,IAAI,IAAI,MAAM,CAAC,QAAQ,CAAC,MAAM,CAAC,SAAS,CAAC,EAAE,CAAC;gBAClE,aAAa,GAAG,MAAM,CAAC,SAAS,CAAC;YACnC,CAAC;YACD,SAAS;QACX,CAAC;QACD,IAAI,MAAM,CAAC,UAAU,IAAI,IAAI,IAAI,MAAM,CAAC,QAAQ,CAAC,MAAM,CAAC,UAAU,CAAC,EAAE,CAAC;YACpE,QAAQ,IAAI,IAAI,CAAC,GAAG,CAAC,CAAC,EAAE,MAAM,CAAC,UAAU,CAAC,CAAC;YAC3C,SAAS,GAAG,IAAI,CAAC;QACnB,CAAC;IACH,CAAC;IACD,IAAI,IAAI,EAAE,CAAC;QACT,MAAM,WAAW,GAAG,aAAa,IAAI,IAAI,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,GAAG,CAAC,CAAC,EAAE,GAAG,GAAG,aAAa,CAAC,CAAC;QACjF,OAAO;YACL,IAAI,EAAE,IAAI;YACV,SAAS,EAAE,aAAa,IAAI,IAAI,CAAC,CAAC,CAAC,SAAS,CAAC,CAAC,CAAC,aAAa,GAAG,QAAQ;YACvE,UAAU,EAAE,aAAa,IAAI,IAAI,IAAI,SAAS,CAAC,CAAC,CAAC,QAAQ,GAAG,WAAW,CAAC,CAAC,CAAC,SAAS;SACpF,CAAC;IACJ,CAAC;IACD,OAAO;QACL,IAAI,EAAE,KAAK;QACX,SAAS,EAAE,SAAS;QACpB,UAAU,EAAE,SAAS,CAAC,CAAC,CAAC,QAAQ,CAAC,CAAC,CAAC,SAAS;KAC7C,CAAC;AACJ,CAAC"}