@inhuman.tools/harness-tui 0.0.0-bootstrap.0 → 0.2.0

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/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"}

package/dist/tui/tea.d.ts

@@ -0,0 +1,75 @@
+import { ApprovableJob } from "@inhuman.tools/harness-model";
+import { type Client } from "@inhuman.tools/harness-sdk";
+import type { ConnectionSpec } from "@inhuman.tools/plexus-expectations";
+import { type DraftState } from "@inhuman.tools/quickdraw/input";
+import { type ChromeQuotaWindow } from "@inhuman.tools/quickdraw/layout";
+import { type BoxBusUpMessage, type SubmitCommand, type SubmitPart } from "@inhuman.tools/quickdraw/runtime";
+import { type ComposerCommandChoice } from "@inhuman.tools/quickdraw/widgets";
+import { type AckPromptModel } from "./ack-prompt.js";
+import type { RootPaintInstance } from "./paint-dom.js";
+import type { PaintDownMessage } from "./paint-transport.js";
+import { UiNode } from "../interpreter/uiCapability.js";
+/** Browser seam — tests inject a fake; production defaults hit the OS. */
+export type TeaDeps = {
+    readonly open?: (url: string) => void;
+    readonly now?: () => number;
+    readonly title?: (text: string) => void;
+    /** `/quit` — host sets shutdown then kills this worker. */
+    readonly quit?: () => void;
+    /** `spec.resident` — host paints the Ctrl-C hint. */
+    readonly resident?: (on: boolean) => void;
+    /**
+     * `/new` — host worker-swap mint. Drawer switch passes `sessionId` (restore).
+     * `path` is the session being left. `draft` is slash remainder, not the `/new` token.
+     */
+    readonly replaceSession?: (opts: {
+        path: string;
+        draft?: string;
+        sessionId?: string;
+    }) => void;
+};
+export declare function bootComposerDraft(draft: string | undefined, connections: Iterable<ConnectionSpec>): string | undefined;
+export declare class Tea implements Disposable {
+    #private;
+    readonly client: Client;
+    readonly post: (batch: readonly PaintDownMessage[]) => void;
+    accessor draft: DraftState;
+    /** Last honest submit. Parts and command stay apart; the string draft is typing only. */
+    accessor submission: {
+        parts: readonly SubmitPart[];
+        command: SubmitCommand | null;
+    } | null;
+    accessor selectedCommandKey: string | null;
+    accessor scrollOffset: number;
+    accessor escClearArmed: boolean;
+    accessor cols: number;
+    accessor rows: number;
+    constructor(client: Client, post: (batch: readonly PaintDownMessage[]) => void, options?: {
+        cols?: number;
+        rows?: number;
+        draft?: string;
+    } & TeaDeps);
+    /** Write tree. Cadence / visual present read the host replica, not this. */
+    get paintRoot(): RootPaintInstance;
+    flushPaint(): void;
+    get effectiveKey(): string | null;
+    /** Picker rows. Logic reads this; paint is not the catalog. */
+    get commandChoices(): readonly ComposerCommandChoice[] | undefined;
+    /** Composer title. Manual title wins; otherwise the latest metadata claim. */
+    get sessionTitle(): string;
+    /** Quota windows Tea hands to paint. Paint spells the remaining label. */
+    get quotaWindows(): readonly ChromeQuotaWindow[];
+    /** Parked confirm / oauth surface. Null when the composer owns the draft. */
+    get callbackSurface(): UiNode | null;
+    focusAt(index: number): void;
+    handle(message: BoxBusUpMessage): void;
+    [Symbol.dispose](): void;
+}
+/**
+ * The line over an approval: what kind of question this is and why the floor asked, the judge's
+ * reason when it weighed in, what the call is, and the folder question when one is suggested.
+ */
+export declare function askAnnotation(leaf: ApprovableJob, asked: string | undefined, widen: {
+    readonly label: string;
+} | undefined, ack?: AckPromptModel): string | undefined;
+//# sourceMappingURL=tea.d.ts.map

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

@@ -0,0 +1 @@
+{"version":3,"file":"tea.d.ts","sourceRoot":"","sources":["../../src/tui/tea.ts"],"names":[],"mappings":"AASA,OAAO,EAOL,aAAa,EA6Bd,MAAM,8BAA8B,CAAC;AAEtC,OAAO,EAEL,KAAK,MAAM,EAOZ,MAAM,4BAA4B,CAAC;AAapC,OAAO,KAAK,EAAE,cAAc,EAAc,MAAM,oCAAoC,CAAC;AAErF,OAAO,EAAgB,KAAK,UAAU,EAAE,MAAM,gCAAgC,CAAC;AAC/E,OAAO,EAAE,KAAK,iBAAiB,EAA4C,MAAM,iCAAiC,CAAC;AACnH,OAAO,EAEL,KAAK,eAAe,EAMpB,KAAK,aAAa,EAClB,KAAK,UAAU,EAChB,MAAM,kCAAkC,CAAC;AAC1C,OAAO,EAKL,KAAK,qBAAqB,EAM3B,MAAM,kCAAkC,CAAC;AAI1C,OAAO,EAML,KAAK,cAAc,EAEpB,MAAM,iBAAiB,CAAC;AAsBzB,OAAO,KAAK,EAAE,iBAAiB,EAAE,MAAM,gBAAgB,CAAC;AACxD,OAAO,KAAK,EAAE,gBAAgB,EAAE,MAAM,sBAAsB,CAAC;AAgB7D,OAAO,EAAgB,MAAM,EAAE,MAAM,gCAAgC,CAAC;AAMtE,0EAA0E;AAC1E,MAAM,MAAM,OAAO,GAAG;IACpB,QAAQ,CAAC,IAAI,CAAC,EAAE,CAAC,GAAG,EAAE,MAAM,KAAK,IAAI,CAAC;IACtC,QAAQ,CAAC,GAAG,CAAC,EAAE,MAAM,MAAM,CAAC;IAC5B,QAAQ,CAAC,KAAK,CAAC,EAAE,CAAC,IAAI,EAAE,MAAM,KAAK,IAAI,CAAC;IACxC,2DAA2D;IAC3D,QAAQ,CAAC,IAAI,CAAC,EAAE,MAAM,IAAI,CAAC;IAC3B,qDAAqD;IACrD,QAAQ,CAAC,QAAQ,CAAC,EAAE,CAAC,EAAE,EAAE,OAAO,KAAK,IAAI,CAAC;IAC1C;;;OAGG;IACH,QAAQ,CAAC,cAAc,CAAC,EAAE,CAAC,IAAI,EAAE;QAAE,IAAI,EAAE,MAAM,CAAC;QAAC,KAAK,CAAC,EAAE,MAAM,CAAC;QAAC,SAAS,CAAC,EAAE,MAAM,CAAA;KAAE,KAAK,IAAI,CAAC;CAChG,CAAC;AAEF,wBAAgB,iBAAiB,CAC/B,KAAK,EAAE,MAAM,GAAG,SAAS,EACzB,WAAW,EAAE,QAAQ,CAAC,cAAc,CAAC,GACpC,MAAM,GAAG,SAAS,CAMpB;AAED,qBAAa,GAAI,YAAW,UAAU;;IAqElC,QAAQ,CAAC,MAAM,EAAE,MAAM;IACvB,QAAQ,CAAC,IAAI,EAAE,CAAC,KAAK,EAAE,SAAS,gBAAgB,EAAE,KAAK,IAAI;IArEjD,QAAQ,CAAC,KAAK,EAAE,UAAU,CAAwC;IAC9E,yFAAyF;IAC7E,QAAQ,CAAC,UAAU,EAAE;QAAE,KAAK,EAAE,SAAS,UAAU,EAAE,CAAC;QAAC,OAAO,EAAE,aAAa,GAAG,IAAI,CAAA;KAAE,GAAG,IAAI,CAAQ;IACnG,QAAQ,CAAC,kBAAkB,EAAE,MAAM,GAAG,IAAI,CAAQ;IAClD,QAAQ,CAAC,YAAY,SAAK;IAC1B,QAAQ,CAAC,aAAa,UAAS;IAC/B,QAAQ,CAAC,IAAI,SAAM;IACnB,QAAQ,CAAC,IAAI,SAAM;gBA6DpB,MAAM,EAAE,MAAM,EACd,IAAI,EAAE,CAAC,KAAK,EAAE,SAAS,gBAAgB,EAAE,KAAK,IAAI,EAC3D,OAAO,GAAE;QAAE,IAAI,CAAC,EAAE,MAAM,CAAC;QAAC,IAAI,CAAC,EAAE,MAAM,CAAC;QAAC,KAAK,CAAC,EAAE,MAAM,CAAA;KAAE,GAAG,OAAY;IAqH1E,4EAA4E;IAC5E,IAAI,SAAS,IAAI,iBAAiB,CAEjC;IAED,UAAU,IAAI,IAAI;IA+3BlB,IACI,YAAY,IAAI,MAAM,GAAG,IAAI,CAEhC;IA0BD,+DAA+D;IAC/D,IAAI,cAAc,IAAI,SAAS,qBAAqB,EAAE,GAAG,SAAS,CAEjE;IAED,8EAA8E;IAC9E,IAAI,YAAY,IAAI,MAAM,CAEzB;IAED,0EAA0E;IAC1E,IAAI,YAAY,IAAI,SAAS,iBAAiB,EAAE,CAE/C;IAED,6EAA6E;IAC7E,IAAI,eAAe,IAAI,MAAM,GAAG,IAAI,CAEnC;IA+DD,OAAO,CAAC,KAAK,EAAE,MAAM,GAAG,IAAI;IAkC5B,MAAM,CAAC,OAAO,EAAE,eAAe,GAAG,IAAI;IAksCtC,CAAC,MAAM,CAAC,OAAO,CAAC,IAAI,IAAI;CAczB;AAoKD;;;GAGG;AACH,wBAAgB,aAAa,CAC3B,IAAI,EAAE,aAAa,EACnB,KAAK,EAAE,MAAM,GAAG,SAAS,EACzB,KAAK,EAAE;IAAE,QAAQ,CAAC,KAAK,EAAE,MAAM,CAAA;CAAE,GAAG,SAAS,EAC7C,GAAG,CAAC,EAAE,cAAc,GACnB,MAAM,GAAG,SAAS,CAgBpB"}