@inhuman.tools/harness-sdk 0.0.0-stage → 0.2.0

package/dist/text/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/text/sugarcoat.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"sugarcoat.js","sourceRoot":"","sources":["../../src/text/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/text/unwrap-program.d.ts

@@ -0,0 +1,2 @@
+export declare function unwrapTopLevelSource(src: string): string;
+//# sourceMappingURL=unwrap-program.d.ts.map

package/dist/text/unwrap-program.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"unwrap-program.d.ts","sourceRoot":"","sources":["../../src/text/unwrap-program.ts"],"names":[],"mappings":"AAiHA,wBAAgB,oBAAoB,CAAC,GAAG,EAAE,MAAM,GAAG,MAAM,CAmBxD"}

package/dist/text/unwrap-program.js

@@ -0,0 +1,137 @@
+// Tape projection of substrate `unwrap-begin.ts`. Execution splices the AST;
+// this file splices the stored expr so the identity line matches what ran.
+// CHANGE ONLY with that file — same three wrappers, same quote/dot refusals.
+import { tokenize } from "@here.build/arrival/lsp-internals";
+const SPLICE_HEADS = new Set(["begin", "list"]);
+const CLOSE = new Set([")", "]", "}"]);
+const QUOTE_PREFIX = new Set(["'", "`", ",", ",@"]);
+function isOpen(tok) {
+    return (tok === "(" || tok === "[" || tok === "{" || (tok.startsWith("#") && !tok.startsWith("#\\") && tok.endsWith("(")));
+}
+function isSkippable(tok) {
+    return /^\s+$/.test(tok) || tok.startsWith(";") || tok.startsWith("#|") || tok.startsWith("#;");
+}
+function tokenAt(tokens, index) {
+    return tokens[index];
+}
+function skipSkippable(tokens, index) {
+    let i = index;
+    for (;;) {
+        const tok = tokenAt(tokens, i);
+        if (tok == null || !isSkippable(tok.token))
+            return i;
+        i += 1;
+    }
+}
+function splitTopLevel(source) {
+    const tokens = tokenize(source, true);
+    const starts = [];
+    let depth = 0;
+    let between = true;
+    for (const { token, offset } of tokens) {
+        if (isSkippable(token))
+            continue;
+        if (between) {
+            starts.push(offset);
+            between = false;
+        }
+        if (isOpen(token))
+            depth++;
+        else if (CLOSE.has(token)) {
+            if (depth > 0)
+                depth--;
+            if (depth === 0)
+                between = true;
+        }
+        else if (depth === 0 && !QUOTE_PREFIX.has(token)) {
+            between = true;
+        }
+    }
+    return starts.map((s, i) => source.slice(s, starts[i + 1] ?? source.length).trim()).filter(Boolean);
+}
+function matchGroup(tokens, openIdx, closeTok) {
+    let depth = 0;
+    let dotted = false;
+    for (let i = openIdx; i < tokens.length; i++) {
+        const row = tokenAt(tokens, i);
+        if (row == null)
+            return undefined;
+        const tok = row.token;
+        if (isSkippable(tok))
+            continue;
+        if (isOpen(tok)) {
+            depth += 1;
+            continue;
+        }
+        if (CLOSE.has(tok)) {
+            depth -= 1;
+            if (depth === 0) {
+                if (tok !== closeTok)
+                    return undefined;
+                return { closeIdx: i, dotted };
+            }
+            continue;
+        }
+        if (depth === 1 && tok === ".")
+            dotted = true;
+    }
+    return undefined;
+}
+function wrapperInterior(src) {
+    const tokens = tokenize(src, true);
+    const firstIdx = skipSkippable(tokens, 0);
+    const first = tokenAt(tokens, firstIdx);
+    if (first == null || QUOTE_PREFIX.has(first.token))
+        return undefined;
+    if (first.token === "[" || first.token === "#(") {
+        const closed = matchGroup(tokens, firstIdx, first.token === "[" ? "]" : ")");
+        if (closed == null || closed.dotted)
+            return undefined;
+        if (skipSkippable(tokens, closed.closeIdx + 1) < tokens.length)
+            return undefined;
+        const closer = tokenAt(tokens, closed.closeIdx);
+        if (closer == null)
+            return undefined;
+        return splitTopLevel(src.slice(first.offset + first.token.length, closer.offset));
+    }
+    if (first.token !== "(")
+        return undefined;
+    const nameIdx = skipSkippable(tokens, firstIdx + 1);
+    const name = tokenAt(tokens, nameIdx);
+    if (name == null || !SPLICE_HEADS.has(name.token.toLowerCase()))
+        return undefined;
+    const closed = matchGroup(tokens, firstIdx, ")");
+    if (closed == null || closed.dotted)
+        return undefined;
+    if (skipSkippable(tokens, closed.closeIdx + 1) < tokens.length)
+        return undefined;
+    const closer = tokenAt(tokens, closed.closeIdx);
+    if (closer == null)
+        return undefined;
+    return splitTopLevel(src.slice(name.offset + name.token.length, closer.offset));
+}
+export function unwrapTopLevelSource(src) {
+    if (src.trim() === "")
+        return src;
+    try {
+        const out = [];
+        let spliced = false;
+        const visit = (stmt) => {
+            const body = wrapperInterior(stmt);
+            if (body === undefined) {
+                out.push(stmt);
+                return;
+            }
+            spliced = true;
+            for (const inner of body)
+                visit(inner);
+        };
+        for (const stmt of splitTopLevel(src))
+            visit(stmt);
+        return spliced ? out.join("\n") : src;
+    }
+    catch {
+        return src;
+    }
+}
+//# sourceMappingURL=unwrap-program.js.map

package/dist/text/unwrap-program.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"unwrap-program.js","sourceRoot":"","sources":["../../src/text/unwrap-program.ts"],"names":[],"mappings":"AAAA,6EAA6E;AAC7E,2EAA2E;AAC3E,6EAA6E;AAE7E,OAAO,EAAE,QAAQ,EAAE,MAAM,mCAAmC,CAAC;AAE7D,MAAM,YAAY,GAAG,IAAI,GAAG,CAAC,CAAC,OAAO,EAAE,MAAM,CAAC,CAAC,CAAC;AAChD,MAAM,KAAK,GAAG,IAAI,GAAG,CAAC,CAAC,GAAG,EAAE,GAAG,EAAE,GAAG,CAAC,CAAC,CAAC;AACvC,MAAM,YAAY,GAAG,IAAI,GAAG,CAAC,CAAC,GAAG,EAAE,GAAG,EAAE,GAAG,EAAE,IAAI,CAAC,CAAC,CAAC;AAEpD,SAAS,MAAM,CAAC,GAAW;IACzB,OAAO,CACL,GAAG,KAAK,GAAG,IAAI,GAAG,KAAK,GAAG,IAAI,GAAG,KAAK,GAAG,IAAI,CAAC,GAAG,CAAC,UAAU,CAAC,GAAG,CAAC,IAAI,CAAC,GAAG,CAAC,UAAU,CAAC,KAAK,CAAC,IAAI,GAAG,CAAC,QAAQ,CAAC,GAAG,CAAC,CAAC,CAClH,CAAC;AACJ,CAAC;AAED,SAAS,WAAW,CAAC,GAAW;IAC9B,OAAO,OAAO,CAAC,IAAI,CAAC,GAAG,CAAC,IAAI,GAAG,CAAC,UAAU,CAAC,GAAG,CAAC,IAAI,GAAG,CAAC,UAAU,CAAC,IAAI,CAAC,IAAI,GAAG,CAAC,UAAU,CAAC,IAAI,CAAC,CAAC;AAClG,CAAC;AAID,SAAS,OAAO,CAAC,MAAwB,EAAE,KAAa;IACtD,OAAO,MAAM,CAAC,KAAK,CAAC,CAAC;AACvB,CAAC;AAED,SAAS,aAAa,CAAC,MAAwB,EAAE,KAAa;IAC5D,IAAI,CAAC,GAAG,KAAK,CAAC;IACd,SAAS,CAAC;QACR,MAAM,GAAG,GAAG,OAAO,CAAC,MAAM,EAAE,CAAC,CAAC,CAAC;QAC/B,IAAI,GAAG,IAAI,IAAI,IAAI,CAAC,WAAW,CAAC,GAAG,CAAC,KAAK,CAAC;YAAE,OAAO,CAAC,CAAC;QACrD,CAAC,IAAI,CAAC,CAAC;IACT,CAAC;AACH,CAAC;AAED,SAAS,aAAa,CAAC,MAAc;IACnC,MAAM,MAAM,GAAG,QAAQ,CAAC,MAAM,EAAE,IAAI,CAAC,CAAC;IACtC,MAAM,MAAM,GAAa,EAAE,CAAC;IAC5B,IAAI,KAAK,GAAG,CAAC,CAAC;IACd,IAAI,OAAO,GAAG,IAAI,CAAC;IACnB,KAAK,MAAM,EAAE,KAAK,EAAE,MAAM,EAAE,IAAI,MAAM,EAAE,CAAC;QACvC,IAAI,WAAW,CAAC,KAAK,CAAC;YAAE,SAAS;QACjC,IAAI,OAAO,EAAE,CAAC;YACZ,MAAM,CAAC,IAAI,CAAC,MAAM,CAAC,CAAC;YACpB,OAAO,GAAG,KAAK,CAAC;QAClB,CAAC;QACD,IAAI,MAAM,CAAC,KAAK,CAAC;YAAE,KAAK,EAAE,CAAC;aACtB,IAAI,KAAK,CAAC,GAAG,CAAC,KAAK,CAAC,EAAE,CAAC;YAC1B,IAAI,KAAK,GAAG,CAAC;gBAAE,KAAK,EAAE,CAAC;YACvB,IAAI,KAAK,KAAK,CAAC;gBAAE,OAAO,GAAG,IAAI,CAAC;QAClC,CAAC;aAAM,IAAI,KAAK,KAAK,CAAC,IAAI,CAAC,YAAY,CAAC,GAAG,CAAC,KAAK,CAAC,EAAE,CAAC;YACnD,OAAO,GAAG,IAAI,CAAC;QACjB,CAAC;IACH,CAAC;IACD,OAAO,MAAM,CAAC,GAAG,CAAC,CAAC,CAAC,EAAE,CAAC,EAAE,EAAE,CAAC,MAAM,CAAC,KAAK,CAAC,CAAC,EAAE,MAAM,CAAC,CAAC,GAAG,CAAC,CAAC,IAAI,MAAM,CAAC,MAAM,CAAC,CAAC,IAAI,EAAE,CAAC,CAAC,MAAM,CAAC,OAAO,CAAC,CAAC;AACtG,CAAC;AAED,SAAS,UAAU,CACjB,MAAwB,EACxB,OAAe,EACf,QAAgB;IAEhB,IAAI,KAAK,GAAG,CAAC,CAAC;IACd,IAAI,MAAM,GAAG,KAAK,CAAC;IACnB,KAAK,IAAI,CAAC,GAAG,OAAO,EAAE,CAAC,GAAG,MAAM,CAAC,MAAM,EAAE,CAAC,EAAE,EAAE,CAAC;QAC7C,MAAM,GAAG,GAAG,OAAO,CAAC,MAAM,EAAE,CAAC,CAAC,CAAC;QAC/B,IAAI,GAAG,IAAI,IAAI;YAAE,OAAO,SAAS,CAAC;QAClC,MAAM,GAAG,GAAG,GAAG,CAAC,KAAK,CAAC;QACtB,IAAI,WAAW,CAAC,GAAG,CAAC;YAAE,SAAS;QAC/B,IAAI,MAAM,CAAC,GAAG,CAAC,EAAE,CAAC;YAChB,KAAK,IAAI,CAAC,CAAC;YACX,SAAS;QACX,CAAC;QACD,IAAI,KAAK,CAAC,GAAG,CAAC,GAAG,CAAC,EAAE,CAAC;YACnB,KAAK,IAAI,CAAC,CAAC;YACX,IAAI,KAAK,KAAK,CAAC,EAAE,CAAC;gBAChB,IAAI,GAAG,KAAK,QAAQ;oBAAE,OAAO,SAAS,CAAC;gBACvC,OAAO,EAAE,QAAQ,EAAE,CAAC,EAAE,MAAM,EAAE,CAAC;YACjC,CAAC;YACD,SAAS;QACX,CAAC;QACD,IAAI,KAAK,KAAK,CAAC,IAAI,GAAG,KAAK,GAAG;YAAE,MAAM,GAAG,IAAI,CAAC;IAChD,CAAC;IACD,OAAO,SAAS,CAAC;AACnB,CAAC;AAED,SAAS,eAAe,CAAC,GAAW;IAClC,MAAM,MAAM,GAAG,QAAQ,CAAC,GAAG,EAAE,IAAI,CAAC,CAAC;IACnC,MAAM,QAAQ,GAAG,aAAa,CAAC,MAAM,EAAE,CAAC,CAAC,CAAC;IAC1C,MAAM,KAAK,GAAG,OAAO,CAAC,MAAM,EAAE,QAAQ,CAAC,CAAC;IACxC,IAAI,KAAK,IAAI,IAAI,IAAI,YAAY,CAAC,GAAG,CAAC,KAAK,CAAC,KAAK,CAAC;QAAE,OAAO,SAAS,CAAC;IAErE,IAAI,KAAK,CAAC,KAAK,KAAK,GAAG,IAAI,KAAK,CAAC,KAAK,KAAK,IAAI,EAAE,CAAC;QAChD,MAAM,MAAM,GAAG,UAAU,CAAC,MAAM,EAAE,QAAQ,EAAE,KAAK,CAAC,KAAK,KAAK,GAAG,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC;QAC7E,IAAI,MAAM,IAAI,IAAI,IAAI,MAAM,CAAC,MAAM;YAAE,OAAO,SAAS,CAAC;QACtD,IAAI,aAAa,CAAC,MAAM,EAAE,MAAM,CAAC,QAAQ,GAAG,CAAC,CAAC,GAAG,MAAM,CAAC,MAAM;YAAE,OAAO,SAAS,CAAC;QACjF,MAAM,MAAM,GAAG,OAAO,CAAC,MAAM,EAAE,MAAM,CAAC,QAAQ,CAAC,CAAC;QAChD,IAAI,MAAM,IAAI,IAAI;YAAE,OAAO,SAAS,CAAC;QACrC,OAAO,aAAa,CAAC,GAAG,CAAC,KAAK,CAAC,KAAK,CAAC,MAAM,GAAG,KAAK,CAAC,KAAK,CAAC,MAAM,EAAE,MAAM,CAAC,MAAM,CAAC,CAAC,CAAC;IACpF,CAAC;IAED,IAAI,KAAK,CAAC,KAAK,KAAK,GAAG;QAAE,OAAO,SAAS,CAAC;IAC1C,MAAM,OAAO,GAAG,aAAa,CAAC,MAAM,EAAE,QAAQ,GAAG,CAAC,CAAC,CAAC;IACpD,MAAM,IAAI,GAAG,OAAO,CAAC,MAAM,EAAE,OAAO,CAAC,CAAC;IACtC,IAAI,IAAI,IAAI,IAAI,IAAI,CAAC,YAAY,CAAC,GAAG,CAAC,IAAI,CAAC,KAAK,CAAC,WAAW,EAAE,CAAC;QAAE,OAAO,SAAS,CAAC;IAClF,MAAM,MAAM,GAAG,UAAU,CAAC,MAAM,EAAE,QAAQ,EAAE,GAAG,CAAC,CAAC;IACjD,IAAI,MAAM,IAAI,IAAI,IAAI,MAAM,CAAC,MAAM;QAAE,OAAO,SAAS,CAAC;IACtD,IAAI,aAAa,CAAC,MAAM,EAAE,MAAM,CAAC,QAAQ,GAAG,CAAC,CAAC,GAAG,MAAM,CAAC,MAAM;QAAE,OAAO,SAAS,CAAC;IACjF,MAAM,MAAM,GAAG,OAAO,CAAC,MAAM,EAAE,MAAM,CAAC,QAAQ,CAAC,CAAC;IAChD,IAAI,MAAM,IAAI,IAAI;QAAE,OAAO,SAAS,CAAC;IACrC,OAAO,aAAa,CAAC,GAAG,CAAC,KAAK,CAAC,IAAI,CAAC,MAAM,GAAG,IAAI,CAAC,KAAK,CAAC,MAAM,EAAE,MAAM,CAAC,MAAM,CAAC,CAAC,CAAC;AAClF,CAAC;AAED,MAAM,UAAU,oBAAoB,CAAC,GAAW;IAC9C,IAAI,GAAG,CAAC,IAAI,EAAE,KAAK,EAAE;QAAE,OAAO,GAAG,CAAC;IAClC,IAAI,CAAC;QACH,MAAM,GAAG,GAAa,EAAE,CAAC;QACzB,IAAI,OAAO,GAAG,KAAK,CAAC;QACpB,MAAM,KAAK,GAAG,CAAC,IAAY,EAAQ,EAAE;YACnC,MAAM,IAAI,GAAG,eAAe,CAAC,IAAI,CAAC,CAAC;YACnC,IAAI,IAAI,KAAK,SAAS,EAAE,CAAC;gBACvB,GAAG,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;gBACf,OAAO;YACT,CAAC;YACD,OAAO,GAAG,IAAI,CAAC;YACf,KAAK,MAAM,KAAK,IAAI,IAAI;gBAAE,KAAK,CAAC,KAAK,CAAC,CAAC;QACzC,CAAC,CAAC;QACF,KAAK,MAAM,IAAI,IAAI,aAAa,CAAC,GAAG,CAAC;YAAE,KAAK,CAAC,IAAI,CAAC,CAAC;QACnD,OAAO,OAAO,CAAC,CAAC,CAAC,GAAG,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC,GAAG,CAAC;IACxC,CAAC;IAAC,MAAM,CAAC;QACP,OAAO,GAAG,CAAC;IACb,CAAC;AACH,CAAC"}

package/dist/text/work-text.d.ts

@@ -0,0 +1,72 @@
+/**
+ * What a tool or scheme call says, as plain data: state, identity, receipt. No
+ * paint. `work-cells.ts` turns a `WorkCellFace` into layout nodes; the headless
+ * eval client prints the same face as text. Nothing here may import quickdraw —
+ * a helper that needs it belongs in `work-cells.ts`.
+ */
+import { type BlobPeek, type KernelRoot, ProgrammaticJob, ToolCallJob } from "@inhuman.tools/harness-model";
+import { type SchemeCellState, type ToolCellState } from "./liveness.js";
+import { type SchemePaintPart } from "./sugarcoat.js";
+export type WorkCellState = ToolCellState | SchemeCellState;
+export type ReceiptFace = {
+    readonly kind: "none";
+} | {
+    readonly kind: "text";
+    readonly text: string;
+} | {
+    readonly kind: "markdown";
+    readonly text: string;
+} | {
+    readonly kind: "stream";
+    readonly text: string;
+} | {
+    readonly kind: "syntax";
+    readonly text: string;
+} | {
+    readonly kind: "number";
+    readonly text: string;
+} | {
+    readonly kind: "boolean";
+    readonly text: string;
+} | {
+    readonly kind: "parts";
+    readonly parts: readonly SchemePaintPart[];
+} | {
+    readonly kind: "diff";
+    readonly old: string;
+    readonly new: string;
+    readonly path: string;
+    /** 1-based file line of the span. Omitted when the span is the whole file. */
+    readonly lineStart?: number;
+};
+export declare function receiptPlainText(receipt: ReceiptFace): string;
+export type WorkCellFace = {
+    readonly key: string;
+    readonly state: WorkCellState;
+    readonly name: string;
+    readonly object: string;
+    readonly status: string;
+    readonly caption: string;
+    readonly pathShaped: boolean;
+    /** Quiet server / louder action (MCP). Plain tools stay one voice Text. */
+    readonly split: boolean;
+    readonly agent: boolean;
+    readonly pretty: boolean;
+    readonly prettyBlock: string;
+    /** What the worker actually answered. Empty until a reply lands. */
+    readonly response: string;
+    readonly indent: boolean;
+    readonly collapsed: boolean;
+    readonly receipt: ReceiptFace;
+    /** Cover rim already names this work (`coverAskAnnotation`). */
+    readonly rimNamed: boolean;
+};
+/** Suggestion Diff from args. Pin uses this even after `approved`, while tape live does not. */
+export declare function mutateSuggestionReceipt(work: ToolCallJob, blobs?: BlobPeek): ReceiptFace;
+/** Kernel glance overlay for a named-agent call. `status` is the dim suffix. */
+export type CallStatus = {
+    readonly status?: string;
+    readonly model?: string;
+};
+export declare function workCellFace(work: ToolCallJob | ProgrammaticJob, key: string, indent: boolean, collapsed?: boolean, glance?: CallStatus | string, kernel?: KernelRoot | null, blobs?: BlobPeek): WorkCellFace;
+//# sourceMappingURL=work-text.d.ts.map

package/dist/text/work-text.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"work-text.d.ts","sourceRoot":"","sources":["../../src/text/work-text.ts"],"names":[],"mappings":"AAAA;;;;;GAKG;AACH,OAAO,EAEL,KAAK,QAAQ,EAGb,KAAK,UAAU,EAGf,eAAe,EAKf,WAAW,EACZ,MAAM,8BAA8B,CAAC;AAItC,OAAO,EAAiD,KAAK,eAAe,EAAE,KAAK,aAAa,EAAE,MAAM,eAAe,CAAC;AAExH,OAAO,EAAsB,KAAK,eAAe,EAAE,MAAM,gBAAgB,CAAC;AAE1E,MAAM,MAAM,aAAa,GAAG,aAAa,GAAG,eAAe,CAAC;AAE5D,MAAM,MAAM,WAAW,GACnB;IAAE,QAAQ,CAAC,IAAI,EAAE,MAAM,CAAA;CAAE,GACzB;IAAE,QAAQ,CAAC,IAAI,EAAE,MAAM,CAAC;IAAC,QAAQ,CAAC,IAAI,EAAE,MAAM,CAAA;CAAE,GAChD;IAAE,QAAQ,CAAC,IAAI,EAAE,UAAU,CAAC;IAAC,QAAQ,CAAC,IAAI,EAAE,MAAM,CAAA;CAAE,GACpD;IAAE,QAAQ,CAAC,IAAI,EAAE,QAAQ,CAAC;IAAC,QAAQ,CAAC,IAAI,EAAE,MAAM,CAAA;CAAE,GAClD;IAAE,QAAQ,CAAC,IAAI,EAAE,QAAQ,CAAC;IAAC,QAAQ,CAAC,IAAI,EAAE,MAAM,CAAA;CAAE,GAClD;IAAE,QAAQ,CAAC,IAAI,EAAE,QAAQ,CAAC;IAAC,QAAQ,CAAC,IAAI,EAAE,MAAM,CAAA;CAAE,GAClD;IAAE,QAAQ,CAAC,IAAI,EAAE,SAAS,CAAC;IAAC,QAAQ,CAAC,IAAI,EAAE,MAAM,CAAA;CAAE,GACnD;IAAE,QAAQ,CAAC,IAAI,EAAE,OAAO,CAAC;IAAC,QAAQ,CAAC,KAAK,EAAE,SAAS,eAAe,EAAE,CAAA;CAAE,GACtE;IACE,QAAQ,CAAC,IAAI,EAAE,MAAM,CAAC;IACtB,QAAQ,CAAC,GAAG,EAAE,MAAM,CAAC;IACrB,QAAQ,CAAC,GAAG,EAAE,MAAM,CAAC;IACrB,QAAQ,CAAC,IAAI,EAAE,MAAM,CAAC;IACtB,8EAA8E;IAC9E,QAAQ,CAAC,SAAS,CAAC,EAAE,MAAM,CAAC;CAC7B,CAAC;AAEN,wBAAgB,gBAAgB,CAAC,OAAO,EAAE,WAAW,GAAG,MAAM,CAI7D;AAED,MAAM,MAAM,YAAY,GAAG;IACzB,QAAQ,CAAC,GAAG,EAAE,MAAM,CAAC;IACrB,QAAQ,CAAC,KAAK,EAAE,aAAa,CAAC;IAC9B,QAAQ,CAAC,IAAI,EAAE,MAAM,CAAC;IACtB,QAAQ,CAAC,MAAM,EAAE,MAAM,CAAC;IACxB,QAAQ,CAAC,MAAM,EAAE,MAAM,CAAC;IACxB,QAAQ,CAAC,OAAO,EAAE,MAAM,CAAC;IACzB,QAAQ,CAAC,UAAU,EAAE,OAAO,CAAC;IAC7B,2EAA2E;IAC3E,QAAQ,CAAC,KAAK,EAAE,OAAO,CAAC;IACxB,QAAQ,CAAC,KAAK,EAAE,OAAO,CAAC;IACxB,QAAQ,CAAC,MAAM,EAAE,OAAO,CAAC;IACzB,QAAQ,CAAC,WAAW,EAAE,MAAM,CAAC;IAC7B,oEAAoE;IACpE,QAAQ,CAAC,QAAQ,EAAE,MAAM,CAAC;IAC1B,QAAQ,CAAC,MAAM,EAAE,OAAO,CAAC;IACzB,QAAQ,CAAC,SAAS,EAAE,OAAO,CAAC;IAC5B,QAAQ,CAAC,OAAO,EAAE,WAAW,CAAC;IAC9B,gEAAgE;IAChE,QAAQ,CAAC,QAAQ,EAAE,OAAO,CAAC;CAC5B,CAAC;AAoLF,gGAAgG;AAChG,wBAAgB,uBAAuB,CAAC,IAAI,EAAE,WAAW,EAAE,KAAK,CAAC,EAAE,QAAQ,GAAG,WAAW,CAIxF;AAyDD,gFAAgF;AAChF,MAAM,MAAM,UAAU,GAAG;IACvB,QAAQ,CAAC,MAAM,CAAC,EAAE,MAAM,CAAC;IACzB,QAAQ,CAAC,KAAK,CAAC,EAAE,MAAM,CAAC;CACzB,CAAC;AAsBF,wBAAgB,YAAY,CAC1B,IAAI,EAAE,WAAW,GAAG,eAAe,EACnC,GAAG,EAAE,MAAM,EACX,MAAM,EAAE,OAAO,EACf,SAAS,UAAO,EAChB,MAAM,GAAE,UAAU,GAAG,MAAW,EAChC,MAAM,CAAC,EAAE,UAAU,GAAG,IAAI,EAC1B,KAAK,CAAC,EAAE,QAAQ,GACf,YAAY,CAqCd"}