From 56589a81b2f6d928f1f78706925208db4eaa28f1 Mon Sep 17 00:00:00 2001 From: giles Date: Sun, 8 Mar 2026 20:00:44 +0000 Subject: [PATCH] Fix lambda multi-body, reactive island demos, and add React is Hypermedia essay MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Lambda multi-body fix: sf-lambda used (nth args 1), dropping all but the first body expression. Fixed to collect all body expressions and wrap in (begin ...). This was foundational — every multi-expression lambda in every island silently dropped expressions after the first. Reactive islands: fix dom-parent marker timing (first effect run before marker is in DOM), fix :key eager evaluation, fix error boundary scope isolation, fix resource/suspense reactive cond tracking, fix inc not available as JS var. New essay: "React is Hypermedia" — argues that reactive islands are hypermedia controls whose behavior is specified in SX, not a departure from hypermedia. Co-Authored-By: Claude Opus 4.6 --- shared/static/scripts/sx-browser.js | 203 +- shared/static/scripts/sx-ref.js | 3816 +------------------------- shared/sx/helpers.py | 57 +- shared/sx/ref/adapter-dom.sx | 310 ++- shared/sx/ref/bootstrap_js.py | 80 +- shared/sx/ref/eval.sx | 5 +- shared/sx/ref/test-eval.sx | 27 +- shared/sx/tests/test_bootstrapper.py | 170 +- sx/sx/essays.sx | 87 + sx/sx/nav-data.sx | 4 +- sx/sx/reactive-islands.sx | 297 +- sx/sxc/pages/docs.sx | 1 + 12 files changed, 1047 insertions(+), 4010 deletions(-) diff --git a/shared/static/scripts/sx-browser.js b/shared/static/scripts/sx-browser.js index a87c1a7..ba58972 100644 --- a/shared/static/scripts/sx-browser.js +++ b/shared/static/scripts/sx-browser.js @@ -14,7 +14,7 @@ // ========================================================================= var NIL = Object.freeze({ _nil: true, toString: function() { return "nil"; } }); - var SX_VERSION = "2026-03-08T16:54:18Z"; + var SX_VERSION = "2026-03-08T19:39:22Z"; function isNil(x) { return x === NIL || x === null || x === undefined; } function isSxTruthy(x) { return x !== false && !isNil(x); } @@ -304,6 +304,7 @@ PRIMITIVES["odd?"] = function(n) { return n % 2 !== 0; }; PRIMITIVES["even?"] = function(n) { return n % 2 === 0; }; PRIMITIVES["zero?"] = function(n) { return n === 0; }; + PRIMITIVES["boolean?"] = function(x) { return x === true || x === false; }; // core.strings @@ -326,6 +327,7 @@ PRIMITIVES["slice"] = function(c, a, b) { return b !== undefined ? c.slice(a, b) : c.slice(a); }; PRIMITIVES["substring"] = function(s, a, b) { return String(s).substring(a, b); }; PRIMITIVES["string-length"] = function(s) { return String(s).length; }; + PRIMITIVES["string-contains?"] = function(s, sub) { return String(s).indexOf(String(sub)) !== -1; }; PRIMITIVES["concat"] = function() { var out = []; for (var i = 0; i < arguments.length; i++) if (!isNil(arguments[i])) out = out.concat(arguments[i]); @@ -360,6 +362,12 @@ PRIMITIVES["zip-pairs"] = function(c) { var r = []; for (var i = 0; i < c.length - 1; i++) r.push([c[i], c[i + 1]]); return r; }; + PRIMITIVES["reverse"] = function(c) { return Array.isArray(c) ? c.slice().reverse() : String(c).split("").reverse().join(""); }; + PRIMITIVES["flatten"] = function(c) { + var out = []; + function walk(a) { for (var i = 0; i < a.length; i++) Array.isArray(a[i]) ? walk(a[i]) : out.push(a[i]); } + walk(c || []); return out; + }; // core.dict @@ -381,6 +389,7 @@ return out; }; PRIMITIVES["dict-set!"] = function(d, k, v) { d[k] = v; return v; }; + PRIMITIVES["has-key?"] = function(d, k) { return d !== null && d !== undefined && k in d; }; PRIMITIVES["into"] = function(target, coll) { if (Array.isArray(target)) return Array.isArray(coll) ? coll.slice() : Object.entries(coll); var r = {}; for (var i = 0; i < coll.length; i++) { var p = coll[i]; if (Array.isArray(p) && p.length >= 2) r[p[0]] = p[1]; } @@ -749,7 +758,8 @@ return append_b(inits, nth(binding, 1)); }, bindings) : reduce(function(acc, pai // sf-lambda var sfLambda = function(args, env) { return (function() { var paramsExpr = first(args); - var body = nth(args, 1); + var bodyExprs = rest(args); + var body = (isSxTruthy((len(bodyExprs) == 1)) ? first(bodyExprs) : cons(makeSymbol("begin"), bodyExprs)); var paramNames = map(function(p) { return (isSxTruthy((typeOf(p) == "symbol")) ? symbolName(p) : p); }, paramsExpr); return makeLambda(paramNames, body, env); })(); }; @@ -1491,8 +1501,23 @@ return result; }, args); var skip = get(state, "skip"); return (isSxTruthy(skip) ? assoc(state, "skip", false, "i", (get(state, "i") + 1)) : (isSxTruthy((isSxTruthy((typeOf(arg) == "keyword")) && ((get(state, "i") + 1) < len(args)))) ? (function() { var attrName = keywordName(arg); - var attrVal = trampoline(evalExpr(nth(args, (get(state, "i") + 1)), env)); - (isSxTruthy(sxOr(isNil(attrVal), (attrVal == false))) ? NIL : (isSxTruthy((isSxTruthy(startsWith(attrName, "on-")) && isCallable(attrVal))) ? domListen(el, slice(attrName, 3), attrVal) : (isSxTruthy((isSxTruthy((attrName == "bind")) && isSignal(attrVal))) ? bindInput(el, attrVal) : (isSxTruthy((attrName == "ref")) ? dictSet(attrVal, "current", el) : (isSxTruthy(contains(BOOLEAN_ATTRS, attrName)) ? (isSxTruthy(attrVal) ? domSetAttr(el, attrName, "") : NIL) : (isSxTruthy((attrVal == true)) ? domSetAttr(el, attrName, "") : domSetAttr(el, attrName, (String(attrVal))))))))); + var attrExpr = nth(args, (get(state, "i") + 1)); + (isSxTruthy(startsWith(attrName, "on-")) ? (function() { + var attrVal = trampoline(evalExpr(attrExpr, env)); + return (isSxTruthy(isCallable(attrVal)) ? domListen(el, slice(attrName, 3), attrVal) : NIL); +})() : (isSxTruthy((attrName == "bind")) ? (function() { + var attrVal = trampoline(evalExpr(attrExpr, env)); + return (isSxTruthy(isSignal(attrVal)) ? bindInput(el, attrVal) : NIL); +})() : (isSxTruthy((attrName == "ref")) ? (function() { + var attrVal = trampoline(evalExpr(attrExpr, env)); + return dictSet(attrVal, "current", el); +})() : (isSxTruthy((attrName == "key")) ? (function() { + var attrVal = trampoline(evalExpr(attrExpr, env)); + return domSetAttr(el, "key", (String(attrVal))); +})() : (isSxTruthy(_islandScope) ? reactiveAttr(el, attrName, function() { return trampoline(evalExpr(attrExpr, env)); }) : (function() { + var attrVal = trampoline(evalExpr(attrExpr, env)); + return (isSxTruthy(sxOr(isNil(attrVal), (attrVal == false))) ? NIL : (isSxTruthy(contains(BOOLEAN_ATTRS, attrName)) ? (isSxTruthy(attrVal) ? domSetAttr(el, attrName, "") : NIL) : (isSxTruthy((attrVal == true)) ? domSetAttr(el, attrName, "") : domSetAttr(el, attrName, (String(attrVal)))))); +})()))))); return assoc(state, "skip", true, "i", (get(state, "i") + 1)); })() : ((isSxTruthy(!isSxTruthy(contains(VOID_ELEMENTS, tag))) ? domAppend(el, renderToDom(arg, env, newNs)) : NIL), assoc(state, "i", (get(state, "i") + 1))))); })(); }, {["i"]: 0, ["skip"]: false}, args); @@ -1552,17 +1577,84 @@ return result; }, args); var isRenderDomForm = function(name) { return contains(RENDER_DOM_FORMS, name); }; // dispatch-render-form - var dispatchRenderForm = function(name, expr, env, ns) { return (isSxTruthy((name == "if")) ? (function() { + var dispatchRenderForm = function(name, expr, env, ns) { return (isSxTruthy((name == "if")) ? (isSxTruthy(_islandScope) ? (function() { + var marker = createComment("r-if"); + var currentNodes = []; + var initialResult = NIL; + effect(function() { return (function() { + var result = (function() { var condVal = trampoline(evalExpr(nth(expr, 1), env)); return (isSxTruthy(condVal) ? renderToDom(nth(expr, 2), env, ns) : (isSxTruthy((len(expr) > 3)) ? renderToDom(nth(expr, 3), env, ns) : createFragment())); -})() : (isSxTruthy((name == "when")) ? (isSxTruthy(!isSxTruthy(trampoline(evalExpr(nth(expr, 1), env)))) ? createFragment() : (function() { +})(); + return (isSxTruthy(domParent(marker)) ? (forEach(function(n) { return domRemove(n); }, currentNodes), (currentNodes = (isSxTruthy(domIsFragment(result)) ? domChildNodes(result) : [result])), domInsertAfter(marker, result)) : (initialResult = result)); +})(); }); + return (function() { + var frag = createFragment(); + domAppend(frag, marker); + if (isSxTruthy(initialResult)) { + currentNodes = (isSxTruthy(domIsFragment(initialResult)) ? domChildNodes(initialResult) : [initialResult]); + domAppend(frag, initialResult); +} + return frag; +})(); +})() : (function() { + var condVal = trampoline(evalExpr(nth(expr, 1), env)); + return (isSxTruthy(condVal) ? renderToDom(nth(expr, 2), env, ns) : (isSxTruthy((len(expr) > 3)) ? renderToDom(nth(expr, 3), env, ns) : createFragment())); +})()) : (isSxTruthy((name == "when")) ? (isSxTruthy(_islandScope) ? (function() { + var marker = createComment("r-when"); + var currentNodes = []; + var initialResult = NIL; + effect(function() { return (isSxTruthy(domParent(marker)) ? (forEach(function(n) { return domRemove(n); }, currentNodes), (currentNodes = []), (isSxTruthy(trampoline(evalExpr(nth(expr, 1), env))) ? (function() { + var frag = createFragment(); + { var _c = range(2, len(expr)); for (var _i = 0; _i < _c.length; _i++) { var i = _c[_i]; domAppend(frag, renderToDom(nth(expr, i), env, ns)); } } + currentNodes = domChildNodes(frag); + return domInsertAfter(marker, frag); +})() : NIL)) : (isSxTruthy(trampoline(evalExpr(nth(expr, 1), env))) ? (function() { + var frag = createFragment(); + { var _c = range(2, len(expr)); for (var _i = 0; _i < _c.length; _i++) { var i = _c[_i]; domAppend(frag, renderToDom(nth(expr, i), env, ns)); } } + currentNodes = domChildNodes(frag); + return (initialResult = frag); +})() : NIL)); }); + return (function() { + var frag = createFragment(); + domAppend(frag, marker); + if (isSxTruthy(initialResult)) { + domAppend(frag, initialResult); +} + return frag; +})(); +})() : (isSxTruthy(!isSxTruthy(trampoline(evalExpr(nth(expr, 1), env)))) ? createFragment() : (function() { var frag = createFragment(); { var _c = range(2, len(expr)); for (var _i = 0; _i < _c.length; _i++) { var i = _c[_i]; domAppend(frag, renderToDom(nth(expr, i), env, ns)); } } return frag; -})()) : (isSxTruthy((name == "cond")) ? (function() { +})())) : (isSxTruthy((name == "cond")) ? (isSxTruthy(_islandScope) ? (function() { + var marker = createComment("r-cond"); + var currentNodes = []; + var initialResult = NIL; + effect(function() { return (function() { + var branch = evalCond(rest(expr), env); + return (isSxTruthy(domParent(marker)) ? (forEach(function(n) { return domRemove(n); }, currentNodes), (currentNodes = []), (isSxTruthy(branch) ? (function() { + var result = renderToDom(branch, env, ns); + currentNodes = (isSxTruthy(domIsFragment(result)) ? domChildNodes(result) : [result]); + return domInsertAfter(marker, result); +})() : NIL)) : (isSxTruthy(branch) ? (function() { + var result = renderToDom(branch, env, ns); + currentNodes = (isSxTruthy(domIsFragment(result)) ? domChildNodes(result) : [result]); + return (initialResult = result); +})() : NIL)); +})(); }); + return (function() { + var frag = createFragment(); + domAppend(frag, marker); + if (isSxTruthy(initialResult)) { + domAppend(frag, initialResult); +} + return frag; +})(); +})() : (function() { var branch = evalCond(rest(expr), env); return (isSxTruthy(branch) ? renderToDom(branch, env, ns) : createFragment()); -})() : (isSxTruthy((name == "case")) ? renderToDom(trampoline(evalExpr(expr, env)), env, ns) : (isSxTruthy(sxOr((name == "let"), (name == "let*"))) ? (function() { +})()) : (isSxTruthy((name == "case")) ? renderToDom(trampoline(evalExpr(expr, env)), env, ns) : (isSxTruthy(sxOr((name == "let"), (name == "let*"))) ? (function() { var local = processBindings(nth(expr, 1), env); var frag = createFragment(); { var _c = range(2, len(expr)); for (var _i = 0; _i < _c.length; _i++) { var i = _c[_i]; domAppend(frag, renderToDom(nth(expr, i), local, ns)); } } @@ -1604,7 +1696,7 @@ return result; }, args); return domAppend(frag, val); })(); }, coll); return frag; -})() : (isSxTruthy((name == "filter")) ? renderToDom(trampoline(evalExpr(expr, env)), env, ns) : (isSxTruthy((name == "portal")) ? renderDomPortal(args, env, ns) : (isSxTruthy((name == "error-boundary")) ? renderDomErrorBoundary(args, env, ns) : (isSxTruthy((name == "for-each")) ? (function() { +})() : (isSxTruthy((name == "filter")) ? renderToDom(trampoline(evalExpr(expr, env)), env, ns) : (isSxTruthy((name == "portal")) ? renderDomPortal(rest(expr), env, ns) : (isSxTruthy((name == "error-boundary")) ? renderDomErrorBoundary(rest(expr), env, ns) : (isSxTruthy((name == "for-each")) ? (function() { var f = trampoline(evalExpr(nth(expr, 1), env)); var coll = trampoline(evalExpr(nth(expr, 2), env)); var frag = createFragment(); @@ -1706,9 +1798,8 @@ return (isSxTruthy(testFn()) ? (function() { var keyOrder = []; domAppend(container, marker); effect(function() { return (function() { - var parent = domParent(marker); var items = deref(itemsSig); - return (isSxTruthy(parent) ? (function() { + return (isSxTruthy(domParent(marker)) ? (function() { var newMap = {}; var newKeys = []; var hasKeys = false; @@ -1738,7 +1829,13 @@ return (isSxTruthy(testFn()) ? (function() { })())); keyMap = newMap; return (keyOrder = newKeys); -})() : NIL); +})() : forEachIndexed(function(idx, item) { return (function() { + var rendered = renderListItem(mapFn, item, env, ns); + var key = extractKey(rendered, idx); + keyMap[key] = rendered; + keyOrder.push(key); + return domAppend(container, rendered); +})(); }, items)); })(); }); return container; })(); }; @@ -1758,8 +1855,8 @@ return (isSxTruthy(testFn()) ? (function() { // render-dom-portal var renderDomPortal = function(args, env, ns) { return (function() { var selector = trampoline(evalExpr(first(args), env)); - var target = domQuery(selector); - return (isSxTruthy(!isSxTruthy(target)) ? (logWarn((String("Portal target not found: ") + String(selector))), createComment((String("portal: ") + String(selector) + String(" (not found)")))) : (function() { + var target = sxOr(domQuery(selector), domEnsureElement(selector)); + return (isSxTruthy(!isSxTruthy(target)) ? createComment((String("portal: ") + String(selector) + String(" (not found)"))) : (function() { var marker = createComment((String("portal: ") + String(selector))); var frag = createFragment(); { var _c = rest(args); for (var _i = 0; _i < _c.length; _i++) { var child = _c[_i]; domAppend(frag, renderToDom(child, env, ns)); } } @@ -1777,32 +1874,29 @@ return (isSxTruthy(testFn()) ? (function() { var fallbackExpr = first(args); var bodyExprs = rest(args); var container = domCreateElement("div", NIL); - var boundaryDisposers = []; + var retryVersion = signal(0); domSetAttr(container, "data-sx-boundary", "true"); - return (function() { - var renderBody = function() { { var _c = boundaryDisposers; for (var _i = 0; _i < _c.length; _i++) { var d = _c[_i]; d(); } } -boundaryDisposers = []; + effect(function() { deref(retryVersion); domSetProp(container, "innerHTML", ""); -return tryCatch(function() { return withIslandScope(function(disposable) { boundaryDisposers.push(disposable); -return registerInScope(disposable); }, function() { return (function() { +return (function() { + var savedScope = _islandScope; + _islandScope = NIL; + return tryCatch(function() { (function() { var frag = createFragment(); { var _c = bodyExprs; for (var _i = 0; _i < _c.length; _i++) { var child = _c[_i]; domAppend(frag, renderToDom(child, env, ns)); } } return domAppend(container, frag); -})(); }); }, function(err) { { var _c = boundaryDisposers; for (var _i = 0; _i < _c.length; _i++) { var d = _c[_i]; d(); } } -boundaryDisposers = []; +})(); +return (_islandScope = savedScope); }, function(err) { _islandScope = savedScope; return (function() { var fallbackFn = trampoline(evalExpr(fallbackExpr, env)); - var retryFn = function() { return renderBody(); }; + var retryFn = function() { return swap_b(retryVersion, function(n) { return (n + 1); }); }; return (function() { var fallbackDom = (isSxTruthy(isLambda(fallbackFn)) ? renderLambdaDom(fallbackFn, [err, retryFn], env, ns) : renderToDom(apply(fallbackFn, [err, retryFn]), env, ns)); return domAppend(container, fallbackDom); })(); -})(); }); }; - renderBody(); - registerInScope(function() { { var _c = boundaryDisposers; for (var _i = 0; _i < _c.length; _i++) { var d = _c[_i]; d(); } } -return (boundaryDisposers = []); }); +})(); }); +})(); }); return container; -})(); })(); }; @@ -3070,14 +3164,14 @@ return (isSxTruthy((_batchDepth == 0)) ? (function() { // def-store var defStore = function(name, initFn) { return (function() { var registry = _storeRegistry; - if (isSxTruthy(!isSxTruthy(hasKey_p(registry, name)))) { + if (isSxTruthy(!isSxTruthy(dictHas(registry, name)))) { _storeRegistry = assoc(registry, name, invoke(initFn)); } return get(_storeRegistry, name); })(); }; // use-store - var useStore = function(name) { return (isSxTruthy(hasKey_p(_storeRegistry, name)) ? get(_storeRegistry, name) : error((String("Store not found: ") + String(name) + String(". Call (def-store ...) before (use-store ...).")))); }; + var useStore = function(name) { return (isSxTruthy(dictHas(_storeRegistry, name)) ? get(_storeRegistry, name) : error((String("Store not found: ") + String(name) + String(". Call (def-store ...) before (use-store ...).")))); }; // clear-stores var clearStores = function() { return (_storeRegistry = {}); }; @@ -3273,6 +3367,20 @@ return (isSxTruthy((_batchDepth == 0)) ? (function() { return _hasDom ? document.querySelector(sel) : null; } + function domEnsureElement(sel) { + if (!_hasDom) return null; + var el = document.querySelector(sel); + if (el) return el; + // Parse #id selector → create div with that id, append to body + if (sel.charAt(0) === '#') { + el = document.createElement('div'); + el.id = sel.slice(1); + document.body.appendChild(el); + return el; + } + return null; + } + function domQueryAll(root, sel) { if (!root || !root.querySelectorAll) return []; return Array.prototype.slice.call(root.querySelectorAll(sel)); @@ -3404,6 +3512,12 @@ return (isSxTruthy((_batchDepth == 0)) ? (function() { function promiseCatch(p, fn) { return p && p.catch ? p.catch(fn) : p; } + function promiseDelayed(ms, value) { + return new Promise(function(resolve) { + setTimeout(function() { resolve(value); }, ms); + }); + } + // --- Abort controllers --- var _controllers = typeof WeakMap !== "undefined" ? new WeakMap() : null; @@ -3440,8 +3554,9 @@ return (isSxTruthy((_batchDepth == 0)) ? (function() { function clearTimeout_(id) { clearTimeout(id); } function clearInterval_(id) { clearInterval(id); } function requestAnimationFrame_(fn) { - if (typeof requestAnimationFrame !== "undefined") requestAnimationFrame(fn); - else setTimeout(fn, 16); + var cb = _wrapSxFn(fn); + if (typeof requestAnimationFrame !== "undefined") requestAnimationFrame(cb); + else setTimeout(cb, 16); } // --- Fetch --- @@ -3840,14 +3955,19 @@ return (isSxTruthy((_batchDepth == 0)) ? (function() { function stopPropagation_(e) { if (e && e.stopPropagation) e.stopPropagation(); } function domFocus(el) { if (el && el.focus) el.focus(); } function tryCatch(tryFn, catchFn) { - try { return tryFn(); } catch (e) { return catchFn(e); } + var t = _wrapSxFn(tryFn); + var c = catchFn && catchFn._lambda + ? function(e) { return trampoline(callLambda(catchFn, [e], lambdaClosure(catchFn))); } + : catchFn; + try { return t(); } catch (e) { return c(e); } } function errorMessage(e) { return e && e.message ? e.message : String(e); } function scheduleIdle(fn) { - if (typeof requestIdleCallback !== "undefined") requestIdleCallback(fn); - else setTimeout(fn, 0); + var cb = _wrapSxFn(fn); + if (typeof requestIdleCallback !== "undefined") requestIdleCallback(cb); + else setTimeout(cb, 0); } function elementValue(el) { return el && el.value !== undefined ? el.value : NIL; } @@ -4386,11 +4506,24 @@ return (isSxTruthy((_batchDepth == 0)) ? (function() { PRIMITIVES["dom-listen"] = domListen; PRIMITIVES["dom-dispatch"] = domDispatch; PRIMITIVES["event-detail"] = eventDetail; + PRIMITIVES["resource"] = resource; + PRIMITIVES["promise-delayed"] = promiseDelayed; + PRIMITIVES["promise-then"] = promiseThen; PRIMITIVES["def-store"] = defStore; PRIMITIVES["use-store"] = useStore; PRIMITIVES["emit-event"] = emitEvent; PRIMITIVES["on-event"] = onEvent; PRIMITIVES["bridge-event"] = bridgeEvent; + // DOM primitives for island code + PRIMITIVES["dom-focus"] = domFocus; + PRIMITIVES["dom-tag-name"] = domTagName; + PRIMITIVES["dom-get-prop"] = domGetProp; + PRIMITIVES["stop-propagation"] = stopPropagation_; + PRIMITIVES["error-message"] = errorMessage; + PRIMITIVES["schedule-idle"] = scheduleIdle; + PRIMITIVES["invoke"] = invoke; + PRIMITIVES["error"] = function(msg) { throw new Error(msg); }; + PRIMITIVES["filter"] = filter; // ========================================================================= // Async IO: Promise-aware rendering for client-side IO primitives diff --git a/shared/static/scripts/sx-ref.js b/shared/static/scripts/sx-ref.js index a87c1a7..3f8d79f 100644 --- a/shared/static/scripts/sx-ref.js +++ b/shared/static/scripts/sx-ref.js @@ -14,7 +14,7 @@ // ========================================================================= var NIL = Object.freeze({ _nil: true, toString: function() { return "nil"; } }); - var SX_VERSION = "2026-03-08T16:54:18Z"; + var SX_VERSION = "2026-03-08T19:39:22Z"; function isNil(x) { return x === NIL || x === null || x === undefined; } function isSxTruthy(x) { return x !== false && !isNil(x); } @@ -304,6 +304,7 @@ PRIMITIVES["odd?"] = function(n) { return n % 2 !== 0; }; PRIMITIVES["even?"] = function(n) { return n % 2 === 0; }; PRIMITIVES["zero?"] = function(n) { return n === 0; }; + PRIMITIVES["boolean?"] = function(x) { return x === true || x === false; }; // core.strings @@ -326,6 +327,7 @@ PRIMITIVES["slice"] = function(c, a, b) { return b !== undefined ? c.slice(a, b) : c.slice(a); }; PRIMITIVES["substring"] = function(s, a, b) { return String(s).substring(a, b); }; PRIMITIVES["string-length"] = function(s) { return String(s).length; }; + PRIMITIVES["string-contains?"] = function(s, sub) { return String(s).indexOf(String(sub)) !== -1; }; PRIMITIVES["concat"] = function() { var out = []; for (var i = 0; i < arguments.length; i++) if (!isNil(arguments[i])) out = out.concat(arguments[i]); @@ -360,6 +362,12 @@ PRIMITIVES["zip-pairs"] = function(c) { var r = []; for (var i = 0; i < c.length - 1; i++) r.push([c[i], c[i + 1]]); return r; }; + PRIMITIVES["reverse"] = function(c) { return Array.isArray(c) ? c.slice().reverse() : String(c).split("").reverse().join(""); }; + PRIMITIVES["flatten"] = function(c) { + var out = []; + function walk(a) { for (var i = 0; i < a.length; i++) Array.isArray(a[i]) ? walk(a[i]) : out.push(a[i]); } + walk(c || []); return out; + }; // core.dict @@ -381,6 +389,7 @@ return out; }; PRIMITIVES["dict-set!"] = function(d, k, v) { d[k] = v; return v; }; + PRIMITIVES["has-key?"] = function(d, k) { return d !== null && d !== undefined && k in d; }; PRIMITIVES["into"] = function(target, coll) { if (Array.isArray(target)) return Array.isArray(coll) ? coll.slice() : Object.entries(coll); var r = {}; for (var i = 0; i < coll.length; i++) { var p = coll[i]; if (Array.isArray(p) && p.length >= 2) r[p[0]] = p[1]; } @@ -563,25 +572,6 @@ return makeThunk(componentBody(comp), local); }; - // ========================================================================= - // Platform interface — Parser - // ========================================================================= - // Character classification derived from the grammar: - // ident-start → [a-zA-Z_~*+\-><=/!?&] - // ident-char → ident-start + [0-9.:\/\[\]#,] - - var _identStartRe = /[a-zA-Z_~*+\-><=/!?&]/; - var _identCharRe = /[a-zA-Z0-9_~*+\-><=/!?.:&/\[\]#,]/; - - function isIdentStart(ch) { return _identStartRe.test(ch); } - function isIdentChar(ch) { return _identCharRe.test(ch); } - function parseNumber(s) { return Number(s); } - function escapeString(s) { - return s.replace(/\\/g, "\\\\").replace(/"/g, '\\"').replace(/\n/g, "\\n").replace(/\t/g, "\\t"); - } - function sxExprSource(e) { return typeof e === "string" ? e : String(e); } - - // === Transpiled from eval === // trampoline @@ -749,7 +739,8 @@ return append_b(inits, nth(binding, 1)); }, bindings) : reduce(function(acc, pai // sf-lambda var sfLambda = function(args, env) { return (function() { var paramsExpr = first(args); - var body = nth(args, 1); + var bodyExprs = rest(args); + var body = (isSxTruthy((len(bodyExprs) == 1)) ? first(bodyExprs) : cons(makeSymbol("begin"), bodyExprs)); var paramNames = map(function(p) { return (isSxTruthy((typeOf(p) == "symbol")) ? symbolName(p) : p); }, paramsExpr); return makeLambda(paramNames, body, env); })(); }; @@ -1078,120 +1069,6 @@ return append_b(inits, nth(binding, 1)); }, bindings) : reduce(function(acc, pai })()); }; - // === Transpiled from parser === - - // sx-parse - var sxParse = function(source) { return (function() { - var pos = 0; - var lenSrc = len(source); - var skipComment = function() { while(true) { if (isSxTruthy((isSxTruthy((pos < lenSrc)) && !isSxTruthy((nth(source, pos) == "\n"))))) { pos = (pos + 1); -continue; } else { return NIL; } } }; - var skipWs = function() { while(true) { if (isSxTruthy((pos < lenSrc))) { { var ch = nth(source, pos); -if (isSxTruthy(sxOr((ch == " "), (ch == "\t"), (ch == "\n"), (ch == "\r")))) { pos = (pos + 1); -continue; } else if (isSxTruthy((ch == ";"))) { pos = (pos + 1); -skipComment(); -continue; } else { return NIL; } } } else { return NIL; } } }; - var readString = function() { pos = (pos + 1); -return (function() { - var buf = ""; - var readStrLoop = function() { while(true) { if (isSxTruthy((pos >= lenSrc))) { return error("Unterminated string"); } else { { var ch = nth(source, pos); -if (isSxTruthy((ch == "\""))) { pos = (pos + 1); -return NIL; } else if (isSxTruthy((ch == "\\"))) { pos = (pos + 1); -{ var esc = nth(source, pos); -buf = (String(buf) + String((isSxTruthy((esc == "n")) ? "\n" : (isSxTruthy((esc == "t")) ? "\t" : (isSxTruthy((esc == "r")) ? "\r" : esc))))); -pos = (pos + 1); -continue; } } else { buf = (String(buf) + String(ch)); -pos = (pos + 1); -continue; } } } } }; - readStrLoop(); - return buf; -})(); }; - var readIdent = function() { return (function() { - var start = pos; - var readIdentLoop = function() { while(true) { if (isSxTruthy((isSxTruthy((pos < lenSrc)) && isIdentChar(nth(source, pos))))) { pos = (pos + 1); -continue; } else { return NIL; } } }; - readIdentLoop(); - return slice(source, start, pos); -})(); }; - var readKeyword = function() { pos = (pos + 1); -return makeKeyword(readIdent()); }; - var readNumber = function() { return (function() { - var start = pos; - if (isSxTruthy((isSxTruthy((pos < lenSrc)) && (nth(source, pos) == "-")))) { - pos = (pos + 1); -} - var readDigits = function() { while(true) { if (isSxTruthy((isSxTruthy((pos < lenSrc)) && (function() { - var c = nth(source, pos); - return (isSxTruthy((c >= "0")) && (c <= "9")); -})()))) { pos = (pos + 1); -continue; } else { return NIL; } } }; - readDigits(); - if (isSxTruthy((isSxTruthy((pos < lenSrc)) && (nth(source, pos) == ".")))) { - pos = (pos + 1); - readDigits(); -} - if (isSxTruthy((isSxTruthy((pos < lenSrc)) && sxOr((nth(source, pos) == "e"), (nth(source, pos) == "E"))))) { - pos = (pos + 1); - if (isSxTruthy((isSxTruthy((pos < lenSrc)) && sxOr((nth(source, pos) == "+"), (nth(source, pos) == "-"))))) { - pos = (pos + 1); -} - readDigits(); -} - return parseNumber(slice(source, start, pos)); -})(); }; - var readSymbol = function() { return (function() { - var name = readIdent(); - return (isSxTruthy((name == "true")) ? true : (isSxTruthy((name == "false")) ? false : (isSxTruthy((name == "nil")) ? NIL : makeSymbol(name)))); -})(); }; - var readList = function(closeCh) { return (function() { - var items = []; - var readListLoop = function() { while(true) { skipWs(); -if (isSxTruthy((pos >= lenSrc))) { return error("Unterminated list"); } else { if (isSxTruthy((nth(source, pos) == closeCh))) { pos = (pos + 1); -return NIL; } else { items.push(readExpr()); -continue; } } } }; - readListLoop(); - return items; -})(); }; - var readMap = function() { return (function() { - var result = {}; - var readMapLoop = function() { while(true) { skipWs(); -if (isSxTruthy((pos >= lenSrc))) { return error("Unterminated map"); } else { if (isSxTruthy((nth(source, pos) == "}"))) { pos = (pos + 1); -return NIL; } else { { var keyExpr = readExpr(); -var keyStr = (isSxTruthy((typeOf(keyExpr) == "keyword")) ? keywordName(keyExpr) : (String(keyExpr))); -var valExpr = readExpr(); -result[keyStr] = valExpr; -continue; } } } } }; - readMapLoop(); - return result; -})(); }; - var readExpr = function() { skipWs(); -return (isSxTruthy((pos >= lenSrc)) ? error("Unexpected end of input") : (function() { - var ch = nth(source, pos); - return (isSxTruthy((ch == "(")) ? ((pos = (pos + 1)), readList(")")) : (isSxTruthy((ch == "[")) ? ((pos = (pos + 1)), readList("]")) : (isSxTruthy((ch == "{")) ? ((pos = (pos + 1)), readMap()) : (isSxTruthy((ch == "\"")) ? readString() : (isSxTruthy((ch == ":")) ? readKeyword() : (isSxTruthy((ch == "`")) ? ((pos = (pos + 1)), [makeSymbol("quasiquote"), readExpr()]) : (isSxTruthy((ch == ",")) ? ((pos = (pos + 1)), (isSxTruthy((isSxTruthy((pos < lenSrc)) && (nth(source, pos) == "@"))) ? ((pos = (pos + 1)), [makeSymbol("splice-unquote"), readExpr()]) : [makeSymbol("unquote"), readExpr()])) : (isSxTruthy(sxOr((isSxTruthy((ch >= "0")) && (ch <= "9")), (isSxTruthy((ch == "-")) && isSxTruthy(((pos + 1) < lenSrc)) && (function() { - var nextCh = nth(source, (pos + 1)); - return (isSxTruthy((nextCh >= "0")) && (nextCh <= "9")); -})()))) ? readNumber() : (isSxTruthy((isSxTruthy((ch == ".")) && isSxTruthy(((pos + 2) < lenSrc)) && isSxTruthy((nth(source, (pos + 1)) == ".")) && (nth(source, (pos + 2)) == "."))) ? ((pos = (pos + 3)), makeSymbol("...")) : (isSxTruthy(isIdentStart(ch)) ? readSymbol() : error((String("Unexpected character: ") + String(ch))))))))))))); -})()); }; - return (function() { - var exprs = []; - var parseLoop = function() { while(true) { skipWs(); -if (isSxTruthy((pos < lenSrc))) { exprs.push(readExpr()); -continue; } else { return NIL; } } }; - parseLoop(); - return exprs; -})(); -})(); }; - - // sx-serialize - var sxSerialize = function(val) { return (function() { var _m = typeOf(val); if (_m == "nil") return "nil"; if (_m == "boolean") return (isSxTruthy(val) ? "true" : "false"); if (_m == "number") return (String(val)); if (_m == "string") return (String("\"") + String(escapeString(val)) + String("\"")); if (_m == "symbol") return symbolName(val); if (_m == "keyword") return (String(":") + String(keywordName(val))); if (_m == "list") return (String("(") + String(join(" ", map(sxSerialize, val))) + String(")")); if (_m == "dict") return sxSerializeDict(val); if (_m == "sx-expr") return sxExprSource(val); return (String(val)); })(); }; - - // sx-serialize-dict - var sxSerializeDict = function(d) { return (String("{") + String(join(" ", reduce(function(acc, key) { return concat(acc, [(String(":") + String(key)), sxSerialize(dictGet(d, key))]); }, [], keys(d)))) + String("}")); }; - - // serialize - var serialize = sxSerialize; - - // === Transpiled from adapter-html === // render-to-html @@ -1452,2901 +1329,7 @@ return result; }, args); })()); }; - // === Transpiled from adapter-dom === - - // SVG_NS - var SVG_NS = "http://www.w3.org/2000/svg"; - - // MATH_NS - var MATH_NS = "http://www.w3.org/1998/Math/MathML"; - - // render-to-dom - var renderToDom = function(expr, env, ns) { return (function() { var _m = typeOf(expr); if (_m == "nil") return createFragment(); if (_m == "boolean") return createFragment(); if (_m == "raw-html") return domParseHtml(rawHtmlContent(expr)); if (_m == "string") return createTextNode(expr); if (_m == "number") return createTextNode((String(expr))); if (_m == "symbol") return renderToDom(trampoline(evalExpr(expr, env)), env, ns); if (_m == "keyword") return createTextNode(keywordName(expr)); if (_m == "dom-node") return expr; if (_m == "dict") return createFragment(); if (_m == "list") return (isSxTruthy(isEmpty(expr)) ? createFragment() : renderDomList(expr, env, ns)); return createTextNode((String(expr))); })(); }; - - // render-dom-list - var renderDomList = function(expr, env, ns) { return (function() { - var head = first(expr); - return (isSxTruthy((typeOf(head) == "symbol")) ? (function() { - var name = symbolName(head); - var args = rest(expr); - return (isSxTruthy((name == "raw!")) ? renderDomRaw(args, env) : (isSxTruthy((name == "<>")) ? renderDomFragment(args, env, ns) : (isSxTruthy(startsWith(name, "html:")) ? renderDomElement(slice(name, 5), args, env, ns) : (isSxTruthy(isRenderDomForm(name)) ? (isSxTruthy((isSxTruthy(contains(HTML_TAGS, name)) && sxOr((isSxTruthy((len(args) > 0)) && (typeOf(first(args)) == "keyword")), ns))) ? renderDomElement(name, args, env, ns) : dispatchRenderForm(name, expr, env, ns)) : (isSxTruthy((isSxTruthy(envHas(env, name)) && isMacro(envGet(env, name)))) ? renderToDom(expandMacro(envGet(env, name), args, env), env, ns) : (isSxTruthy(contains(HTML_TAGS, name)) ? renderDomElement(name, args, env, ns) : (isSxTruthy((isSxTruthy(startsWith(name, "~")) && isSxTruthy(envHas(env, name)) && isIsland(envGet(env, name)))) ? renderDomIsland(envGet(env, name), args, env, ns) : (isSxTruthy(startsWith(name, "~")) ? (function() { - var comp = envGet(env, name); - return (isSxTruthy(isComponent(comp)) ? renderDomComponent(comp, args, env, ns) : renderDomUnknownComponent(name)); -})() : (isSxTruthy((isSxTruthy((indexOf_(name, "-") > 0)) && isSxTruthy((len(args) > 0)) && (typeOf(first(args)) == "keyword"))) ? renderDomElement(name, args, env, ns) : (isSxTruthy(ns) ? renderDomElement(name, args, env, ns) : (isSxTruthy((isSxTruthy((name == "deref")) && _islandScope)) ? (function() { - var sigOrVal = trampoline(evalExpr(first(args), env)); - return (isSxTruthy(isSignal(sigOrVal)) ? reactiveText(sigOrVal) : createTextNode((String(deref(sigOrVal))))); -})() : renderToDom(trampoline(evalExpr(expr, env)), env, ns)))))))))))); -})() : (isSxTruthy(sxOr(isLambda(head), (typeOf(head) == "list"))) ? renderToDom(trampoline(evalExpr(expr, env)), env, ns) : (function() { - var frag = createFragment(); - { var _c = expr; for (var _i = 0; _i < _c.length; _i++) { var x = _c[_i]; domAppend(frag, renderToDom(x, env, ns)); } } - return frag; -})())); -})(); }; - - // render-dom-element - var renderDomElement = function(tag, args, env, ns) { return (function() { - var newNs = (isSxTruthy((tag == "svg")) ? SVG_NS : (isSxTruthy((tag == "math")) ? MATH_NS : ns)); - var el = domCreateElement(tag, newNs); - reduce(function(state, arg) { return (function() { - var skip = get(state, "skip"); - return (isSxTruthy(skip) ? assoc(state, "skip", false, "i", (get(state, "i") + 1)) : (isSxTruthy((isSxTruthy((typeOf(arg) == "keyword")) && ((get(state, "i") + 1) < len(args)))) ? (function() { - var attrName = keywordName(arg); - var attrVal = trampoline(evalExpr(nth(args, (get(state, "i") + 1)), env)); - (isSxTruthy(sxOr(isNil(attrVal), (attrVal == false))) ? NIL : (isSxTruthy((isSxTruthy(startsWith(attrName, "on-")) && isCallable(attrVal))) ? domListen(el, slice(attrName, 3), attrVal) : (isSxTruthy((isSxTruthy((attrName == "bind")) && isSignal(attrVal))) ? bindInput(el, attrVal) : (isSxTruthy((attrName == "ref")) ? dictSet(attrVal, "current", el) : (isSxTruthy(contains(BOOLEAN_ATTRS, attrName)) ? (isSxTruthy(attrVal) ? domSetAttr(el, attrName, "") : NIL) : (isSxTruthy((attrVal == true)) ? domSetAttr(el, attrName, "") : domSetAttr(el, attrName, (String(attrVal))))))))); - return assoc(state, "skip", true, "i", (get(state, "i") + 1)); -})() : ((isSxTruthy(!isSxTruthy(contains(VOID_ELEMENTS, tag))) ? domAppend(el, renderToDom(arg, env, newNs)) : NIL), assoc(state, "i", (get(state, "i") + 1))))); -})(); }, {["i"]: 0, ["skip"]: false}, args); - return el; -})(); }; - - // render-dom-component - var renderDomComponent = function(comp, args, env, ns) { return (function() { - var kwargs = {}; - var children = []; - reduce(function(state, arg) { return (function() { - var skip = get(state, "skip"); - return (isSxTruthy(skip) ? assoc(state, "skip", false, "i", (get(state, "i") + 1)) : (isSxTruthy((isSxTruthy((typeOf(arg) == "keyword")) && ((get(state, "i") + 1) < len(args)))) ? (function() { - var val = trampoline(evalExpr(nth(args, (get(state, "i") + 1)), env)); - kwargs[keywordName(arg)] = val; - return assoc(state, "skip", true, "i", (get(state, "i") + 1)); -})() : (append_b(children, arg), assoc(state, "i", (get(state, "i") + 1))))); -})(); }, {["i"]: 0, ["skip"]: false}, args); - return (function() { - var local = envMerge(componentClosure(comp), env); - { var _c = componentParams(comp); for (var _i = 0; _i < _c.length; _i++) { var p = _c[_i]; local[p] = (isSxTruthy(dictHas(kwargs, p)) ? dictGet(kwargs, p) : NIL); } } - if (isSxTruthy(componentHasChildren(comp))) { - (function() { - var childFrag = createFragment(); - { var _c = children; for (var _i = 0; _i < _c.length; _i++) { var c = _c[_i]; domAppend(childFrag, renderToDom(c, env, ns)); } } - return envSet(local, "children", childFrag); -})(); -} - return renderToDom(componentBody(comp), local, ns); -})(); -})(); }; - - // render-dom-fragment - var renderDomFragment = function(args, env, ns) { return (function() { - var frag = createFragment(); - { var _c = args; for (var _i = 0; _i < _c.length; _i++) { var x = _c[_i]; domAppend(frag, renderToDom(x, env, ns)); } } - return frag; -})(); }; - - // render-dom-raw - var renderDomRaw = function(args, env) { return (function() { - var frag = createFragment(); - { var _c = args; for (var _i = 0; _i < _c.length; _i++) { var arg = _c[_i]; (function() { - var val = trampoline(evalExpr(arg, env)); - return (isSxTruthy((typeOf(val) == "string")) ? domAppend(frag, domParseHtml(val)) : (isSxTruthy((typeOf(val) == "dom-node")) ? domAppend(frag, domClone(val)) : (isSxTruthy(!isSxTruthy(isNil(val))) ? domAppend(frag, createTextNode((String(val)))) : NIL))); -})(); } } - return frag; -})(); }; - - // render-dom-unknown-component - var renderDomUnknownComponent = function(name) { return error((String("Unknown component: ") + String(name))); }; - - // RENDER_DOM_FORMS - var RENDER_DOM_FORMS = ["if", "when", "cond", "case", "let", "let*", "begin", "do", "define", "defcomp", "defisland", "defmacro", "defstyle", "defhandler", "map", "map-indexed", "filter", "for-each", "portal", "error-boundary"]; - - // render-dom-form? - var isRenderDomForm = function(name) { return contains(RENDER_DOM_FORMS, name); }; - - // dispatch-render-form - var dispatchRenderForm = function(name, expr, env, ns) { return (isSxTruthy((name == "if")) ? (function() { - var condVal = trampoline(evalExpr(nth(expr, 1), env)); - return (isSxTruthy(condVal) ? renderToDom(nth(expr, 2), env, ns) : (isSxTruthy((len(expr) > 3)) ? renderToDom(nth(expr, 3), env, ns) : createFragment())); -})() : (isSxTruthy((name == "when")) ? (isSxTruthy(!isSxTruthy(trampoline(evalExpr(nth(expr, 1), env)))) ? createFragment() : (function() { - var frag = createFragment(); - { var _c = range(2, len(expr)); for (var _i = 0; _i < _c.length; _i++) { var i = _c[_i]; domAppend(frag, renderToDom(nth(expr, i), env, ns)); } } - return frag; -})()) : (isSxTruthy((name == "cond")) ? (function() { - var branch = evalCond(rest(expr), env); - return (isSxTruthy(branch) ? renderToDom(branch, env, ns) : createFragment()); -})() : (isSxTruthy((name == "case")) ? renderToDom(trampoline(evalExpr(expr, env)), env, ns) : (isSxTruthy(sxOr((name == "let"), (name == "let*"))) ? (function() { - var local = processBindings(nth(expr, 1), env); - var frag = createFragment(); - { var _c = range(2, len(expr)); for (var _i = 0; _i < _c.length; _i++) { var i = _c[_i]; domAppend(frag, renderToDom(nth(expr, i), local, ns)); } } - return frag; -})() : (isSxTruthy(sxOr((name == "begin"), (name == "do"))) ? (function() { - var frag = createFragment(); - { var _c = range(1, len(expr)); for (var _i = 0; _i < _c.length; _i++) { var i = _c[_i]; domAppend(frag, renderToDom(nth(expr, i), env, ns)); } } - return frag; -})() : (isSxTruthy(isDefinitionForm(name)) ? (trampoline(evalExpr(expr, env)), createFragment()) : (isSxTruthy((name == "map")) ? (function() { - var collExpr = nth(expr, 2); - return (isSxTruthy((isSxTruthy(_islandScope) && isSxTruthy((typeOf(collExpr) == "list")) && isSxTruthy((len(collExpr) > 1)) && (first(collExpr) == "deref"))) ? (function() { - var f = trampoline(evalExpr(nth(expr, 1), env)); - var sig = trampoline(evalExpr(nth(collExpr, 1), env)); - return (isSxTruthy(isSignal(sig)) ? reactiveList(f, sig, env, ns) : (function() { - var coll = deref(sig); - var frag = createFragment(); - { var _c = coll; for (var _i = 0; _i < _c.length; _i++) { var item = _c[_i]; (function() { - var val = (isSxTruthy(isLambda(f)) ? renderLambdaDom(f, [item], env, ns) : renderToDom(apply(f, [item]), env, ns)); - return domAppend(frag, val); -})(); } } - return frag; -})()); -})() : (function() { - var f = trampoline(evalExpr(nth(expr, 1), env)); - var coll = trampoline(evalExpr(nth(expr, 2), env)); - var frag = createFragment(); - { var _c = coll; for (var _i = 0; _i < _c.length; _i++) { var item = _c[_i]; (function() { - var val = (isSxTruthy(isLambda(f)) ? renderLambdaDom(f, [item], env, ns) : renderToDom(apply(f, [item]), env, ns)); - return domAppend(frag, val); -})(); } } - return frag; -})()); -})() : (isSxTruthy((name == "map-indexed")) ? (function() { - var f = trampoline(evalExpr(nth(expr, 1), env)); - var coll = trampoline(evalExpr(nth(expr, 2), env)); - var frag = createFragment(); - forEachIndexed(function(i, item) { return (function() { - var val = (isSxTruthy(isLambda(f)) ? renderLambdaDom(f, [i, item], env, ns) : renderToDom(apply(f, [i, item]), env, ns)); - return domAppend(frag, val); -})(); }, coll); - return frag; -})() : (isSxTruthy((name == "filter")) ? renderToDom(trampoline(evalExpr(expr, env)), env, ns) : (isSxTruthy((name == "portal")) ? renderDomPortal(args, env, ns) : (isSxTruthy((name == "error-boundary")) ? renderDomErrorBoundary(args, env, ns) : (isSxTruthy((name == "for-each")) ? (function() { - var f = trampoline(evalExpr(nth(expr, 1), env)); - var coll = trampoline(evalExpr(nth(expr, 2), env)); - var frag = createFragment(); - { var _c = coll; for (var _i = 0; _i < _c.length; _i++) { var item = _c[_i]; (function() { - var val = (isSxTruthy(isLambda(f)) ? renderLambdaDom(f, [item], env, ns) : renderToDom(apply(f, [item]), env, ns)); - return domAppend(frag, val); -})(); } } - return frag; -})() : renderToDom(trampoline(evalExpr(expr, env)), env, ns)))))))))))))); }; - - // render-lambda-dom - var renderLambdaDom = function(f, args, env, ns) { return (function() { - var local = envMerge(lambdaClosure(f), env); - forEachIndexed(function(i, p) { return envSet(local, p, nth(args, i)); }, lambdaParams(f)); - return renderToDom(lambdaBody(f), local, ns); -})(); }; - - // render-dom-island - var renderDomIsland = function(island, args, env, ns) { return (function() { - var kwargs = {}; - var children = []; - reduce(function(state, arg) { return (function() { - var skip = get(state, "skip"); - return (isSxTruthy(skip) ? assoc(state, "skip", false, "i", (get(state, "i") + 1)) : (isSxTruthy((isSxTruthy((typeOf(arg) == "keyword")) && ((get(state, "i") + 1) < len(args)))) ? (function() { - var val = trampoline(evalExpr(nth(args, (get(state, "i") + 1)), env)); - kwargs[keywordName(arg)] = val; - return assoc(state, "skip", true, "i", (get(state, "i") + 1)); -})() : (append_b(children, arg), assoc(state, "i", (get(state, "i") + 1))))); -})(); }, {["i"]: 0, ["skip"]: false}, args); - return (function() { - var local = envMerge(componentClosure(island), env); - var islandName = componentName(island); - { var _c = componentParams(island); for (var _i = 0; _i < _c.length; _i++) { var p = _c[_i]; local[p] = (isSxTruthy(dictHas(kwargs, p)) ? dictGet(kwargs, p) : NIL); } } - if (isSxTruthy(componentHasChildren(island))) { - (function() { - var childFrag = createFragment(); - { var _c = children; for (var _i = 0; _i < _c.length; _i++) { var c = _c[_i]; domAppend(childFrag, renderToDom(c, env, ns)); } } - return envSet(local, "children", childFrag); -})(); -} - return (function() { - var container = domCreateElement("div", NIL); - var disposers = []; - domSetAttr(container, "data-sx-island", islandName); - return (function() { - var bodyDom = withIslandScope(function(disposable) { return append_b(disposers, disposable); }, function() { return renderToDom(componentBody(island), local, ns); }); - domAppend(container, bodyDom); - domSetData(container, "sx-disposers", disposers); - return container; -})(); -})(); -})(); -})(); }; - - // reactive-text - var reactiveText = function(sig) { return (function() { - var node = createTextNode((String(deref(sig)))); - effect(function() { return domSetTextContent(node, (String(deref(sig)))); }); - return node; -})(); }; - - // reactive-attr - var reactiveAttr = function(el, attrName, computeFn) { return effect(function() { return (function() { - var val = computeFn(); - return (isSxTruthy(sxOr(isNil(val), (val == false))) ? domRemoveAttr(el, attrName) : (isSxTruthy((val == true)) ? domSetAttr(el, attrName, "") : domSetAttr(el, attrName, (String(val))))); -})(); }); }; - - // reactive-fragment - var reactiveFragment = function(testFn, renderFn, env, ns) { return (function() { - var marker = createComment("island-fragment"); - var currentNodes = []; - effect(function() { { var _c = currentNodes; for (var _i = 0; _i < _c.length; _i++) { var n = _c[_i]; domRemove(n); } } -currentNodes = []; -return (isSxTruthy(testFn()) ? (function() { - var frag = renderFn(); - currentNodes = domChildNodes(frag); - return domInsertAfter(marker, frag); -})() : NIL); }); - return marker; -})(); }; - - // render-list-item - var renderListItem = function(mapFn, item, env, ns) { return (isSxTruthy(isLambda(mapFn)) ? renderLambdaDom(mapFn, [item], env, ns) : renderToDom(apply(mapFn, [item]), env, ns)); }; - - // extract-key - var extractKey = function(node, index) { return (function() { - var k = domGetAttr(node, "key"); - return (isSxTruthy(k) ? (domRemoveAttr(node, "key"), k) : (function() { - var dk = domGetData(node, "key"); - return (isSxTruthy(dk) ? (String(dk)) : (String("__idx_") + String(index))); -})()); -})(); }; - - // reactive-list - var reactiveList = function(mapFn, itemsSig, env, ns) { return (function() { - var container = createFragment(); - var marker = createComment("island-list"); - var keyMap = {}; - var keyOrder = []; - domAppend(container, marker); - effect(function() { return (function() { - var parent = domParent(marker); - var items = deref(itemsSig); - return (isSxTruthy(parent) ? (function() { - var newMap = {}; - var newKeys = []; - var hasKeys = false; - forEachIndexed(function(idx, item) { return (function() { - var rendered = renderListItem(mapFn, item, env, ns); - var key = extractKey(rendered, idx); - if (isSxTruthy((isSxTruthy(!isSxTruthy(hasKeys)) && !isSxTruthy(startsWith(key, "__idx_"))))) { - hasKeys = true; -} - (isSxTruthy(dictHas(keyMap, key)) ? dictSet(newMap, key, dictGet(keyMap, key)) : dictSet(newMap, key, rendered)); - return append_b(newKeys, key); -})(); }, items); - (isSxTruthy(!isSxTruthy(hasKeys)) ? (domRemoveChildrenAfter(marker), (function() { - var frag = createFragment(); - { var _c = newKeys; for (var _i = 0; _i < _c.length; _i++) { var k = _c[_i]; domAppend(frag, dictGet(newMap, k)); } } - return domInsertAfter(marker, frag); -})()) : (forEach(function(oldKey) { return (isSxTruthy(!isSxTruthy(dictHas(newMap, oldKey))) ? domRemove(dictGet(keyMap, oldKey)) : NIL); }, keyOrder), (function() { - var cursor = marker; - return forEach(function(k) { return (function() { - var node = dictGet(newMap, k); - var next = domNextSibling(cursor); - if (isSxTruthy(!isSxTruthy(isIdentical(node, next)))) { - domInsertAfter(cursor, node); -} - return (cursor = node); -})(); }, newKeys); -})())); - keyMap = newMap; - return (keyOrder = newKeys); -})() : NIL); -})(); }); - return container; -})(); }; - - // bind-input - var bindInput = function(el, sig) { return (function() { - var inputType = lower(sxOr(domGetAttr(el, "type"), "")); - var isCheckbox = sxOr((inputType == "checkbox"), (inputType == "radio")); - (isSxTruthy(isCheckbox) ? domSetProp(el, "checked", deref(sig)) : domSetProp(el, "value", (String(deref(sig))))); - effect(function() { return (isSxTruthy(isCheckbox) ? domSetProp(el, "checked", deref(sig)) : (function() { - var v = (String(deref(sig))); - return (isSxTruthy((domGetProp(el, "value") != v)) ? domSetProp(el, "value", v) : NIL); -})()); }); - return domListen(el, (isSxTruthy(isCheckbox) ? "change" : "input"), function(e) { return (isSxTruthy(isCheckbox) ? reset_b(sig, domGetProp(el, "checked")) : reset_b(sig, domGetProp(el, "value"))); }); -})(); }; - - // render-dom-portal - var renderDomPortal = function(args, env, ns) { return (function() { - var selector = trampoline(evalExpr(first(args), env)); - var target = domQuery(selector); - return (isSxTruthy(!isSxTruthy(target)) ? (logWarn((String("Portal target not found: ") + String(selector))), createComment((String("portal: ") + String(selector) + String(" (not found)")))) : (function() { - var marker = createComment((String("portal: ") + String(selector))); - var frag = createFragment(); - { var _c = rest(args); for (var _i = 0; _i < _c.length; _i++) { var child = _c[_i]; domAppend(frag, renderToDom(child, env, ns)); } } - (function() { - var portalNodes = domChildNodes(frag); - domAppend(target, frag); - return registerInScope(function() { return forEach(function(n) { return domRemove(n); }, portalNodes); }); -})(); - return marker; -})()); -})(); }; - - // render-dom-error-boundary - var renderDomErrorBoundary = function(args, env, ns) { return (function() { - var fallbackExpr = first(args); - var bodyExprs = rest(args); - var container = domCreateElement("div", NIL); - var boundaryDisposers = []; - domSetAttr(container, "data-sx-boundary", "true"); - return (function() { - var renderBody = function() { { var _c = boundaryDisposers; for (var _i = 0; _i < _c.length; _i++) { var d = _c[_i]; d(); } } -boundaryDisposers = []; -domSetProp(container, "innerHTML", ""); -return tryCatch(function() { return withIslandScope(function(disposable) { boundaryDisposers.push(disposable); -return registerInScope(disposable); }, function() { return (function() { - var frag = createFragment(); - { var _c = bodyExprs; for (var _i = 0; _i < _c.length; _i++) { var child = _c[_i]; domAppend(frag, renderToDom(child, env, ns)); } } - return domAppend(container, frag); -})(); }); }, function(err) { { var _c = boundaryDisposers; for (var _i = 0; _i < _c.length; _i++) { var d = _c[_i]; d(); } } -boundaryDisposers = []; -return (function() { - var fallbackFn = trampoline(evalExpr(fallbackExpr, env)); - var retryFn = function() { return renderBody(); }; - return (function() { - var fallbackDom = (isSxTruthy(isLambda(fallbackFn)) ? renderLambdaDom(fallbackFn, [err, retryFn], env, ns) : renderToDom(apply(fallbackFn, [err, retryFn]), env, ns)); - return domAppend(container, fallbackDom); -})(); -})(); }); }; - renderBody(); - registerInScope(function() { { var _c = boundaryDisposers; for (var _i = 0; _i < _c.length; _i++) { var d = _c[_i]; d(); } } -return (boundaryDisposers = []); }); - return container; -})(); -})(); }; - - - // === Transpiled from engine === - - // ENGINE_VERBS - var ENGINE_VERBS = ["get", "post", "put", "delete", "patch"]; - - // DEFAULT_SWAP - var DEFAULT_SWAP = "outerHTML"; - - // parse-time - var parseTime = function(s) { return (isSxTruthy(isNil(s)) ? 0 : (isSxTruthy(endsWith(s, "ms")) ? parseInt_(s, 0) : (isSxTruthy(endsWith(s, "s")) ? (parseInt_(replace_(s, "s", ""), 0) * 1000) : parseInt_(s, 0)))); }; - - // parse-trigger-spec - var parseTriggerSpec = function(spec) { return (isSxTruthy(isNil(spec)) ? NIL : (function() { - var rawParts = split(spec, ","); - return filter(function(x) { return !isSxTruthy(isNil(x)); }, map(function(part) { return (function() { - var tokens = split(trim(part), " "); - return (isSxTruthy(isEmpty(tokens)) ? NIL : (isSxTruthy((isSxTruthy((first(tokens) == "every")) && (len(tokens) >= 2))) ? {["event"]: "every", ["modifiers"]: {["interval"]: parseTime(nth(tokens, 1))}} : (function() { - var mods = {}; - { var _c = rest(tokens); for (var _i = 0; _i < _c.length; _i++) { var tok = _c[_i]; (isSxTruthy((tok == "once")) ? dictSet(mods, "once", true) : (isSxTruthy((tok == "changed")) ? dictSet(mods, "changed", true) : (isSxTruthy(startsWith(tok, "delay:")) ? dictSet(mods, "delay", parseTime(slice(tok, 6))) : (isSxTruthy(startsWith(tok, "from:")) ? dictSet(mods, "from", slice(tok, 5)) : NIL)))); } } - return {["event"]: first(tokens), ["modifiers"]: mods}; -})())); -})(); }, rawParts)); -})()); }; - - // default-trigger - var defaultTrigger = function(tagName) { return (isSxTruthy((tagName == "FORM")) ? [{["event"]: "submit", ["modifiers"]: {}}] : (isSxTruthy(sxOr((tagName == "INPUT"), (tagName == "SELECT"), (tagName == "TEXTAREA"))) ? [{["event"]: "change", ["modifiers"]: {}}] : [{["event"]: "click", ["modifiers"]: {}}])); }; - - // get-verb-info - var getVerbInfo = function(el) { return some(function(verb) { return (function() { - var url = domGetAttr(el, (String("sx-") + String(verb))); - return (isSxTruthy(url) ? {["method"]: upper(verb), ["url"]: url} : NIL); -})(); }, ENGINE_VERBS); }; - - // build-request-headers - var buildRequestHeaders = function(el, loadedComponents, cssHash) { return (function() { - var headers = {["SX-Request"]: "true", ["SX-Current-URL"]: browserLocationHref()}; - (function() { - var targetSel = domGetAttr(el, "sx-target"); - return (isSxTruthy(targetSel) ? dictSet(headers, "SX-Target", targetSel) : NIL); -})(); - if (isSxTruthy(!isSxTruthy(isEmpty(loadedComponents)))) { - headers["SX-Components"] = join(",", loadedComponents); -} - if (isSxTruthy(cssHash)) { - headers["SX-Css"] = cssHash; -} - (function() { - var extraH = domGetAttr(el, "sx-headers"); - return (isSxTruthy(extraH) ? (function() { - var parsed = parseHeaderValue(extraH); - return (isSxTruthy(parsed) ? forEach(function(key) { return dictSet(headers, key, (String(get(parsed, key)))); }, keys(parsed)) : NIL); -})() : NIL); -})(); - return headers; -})(); }; - - // process-response-headers - var processResponseHeaders = function(getHeader) { return {["redirect"]: getHeader("SX-Redirect"), ["refresh"]: getHeader("SX-Refresh"), ["trigger"]: getHeader("SX-Trigger"), ["retarget"]: getHeader("SX-Retarget"), ["reswap"]: getHeader("SX-Reswap"), ["location"]: getHeader("SX-Location"), ["replace-url"]: getHeader("SX-Replace-Url"), ["css-hash"]: getHeader("SX-Css-Hash"), ["trigger-swap"]: getHeader("SX-Trigger-After-Swap"), ["trigger-settle"]: getHeader("SX-Trigger-After-Settle"), ["content-type"]: getHeader("Content-Type"), ["cache-invalidate"]: getHeader("SX-Cache-Invalidate"), ["cache-update"]: getHeader("SX-Cache-Update")}; }; - - // parse-swap-spec - var parseSwapSpec = function(rawSwap, globalTransitions_p) { return (function() { - var parts = split(sxOr(rawSwap, DEFAULT_SWAP), " "); - var style = first(parts); - var useTransition = globalTransitions_p; - { var _c = rest(parts); for (var _i = 0; _i < _c.length; _i++) { var p = _c[_i]; (isSxTruthy((p == "transition:true")) ? (useTransition = true) : (isSxTruthy((p == "transition:false")) ? (useTransition = false) : NIL)); } } - return {["style"]: style, ["transition"]: useTransition}; -})(); }; - - // parse-retry-spec - var parseRetrySpec = function(retryAttr) { return (isSxTruthy(isNil(retryAttr)) ? NIL : (function() { - var parts = split(retryAttr, ":"); - return {["strategy"]: first(parts), ["start-ms"]: parseInt_(nth(parts, 1), 1000), ["cap-ms"]: parseInt_(nth(parts, 2), 30000)}; -})()); }; - - // next-retry-ms - var nextRetryMs = function(currentMs, capMs) { return min((currentMs * 2), capMs); }; - - // filter-params - var filterParams = function(paramsSpec, allParams) { return (isSxTruthy(isNil(paramsSpec)) ? allParams : (isSxTruthy((paramsSpec == "none")) ? [] : (isSxTruthy((paramsSpec == "*")) ? allParams : (isSxTruthy(startsWith(paramsSpec, "not ")) ? (function() { - var excluded = map(trim, split(slice(paramsSpec, 4), ",")); - return filter(function(p) { return !isSxTruthy(contains(excluded, first(p))); }, allParams); -})() : (function() { - var allowed = map(trim, split(paramsSpec, ",")); - return filter(function(p) { return contains(allowed, first(p)); }, allParams); -})())))); }; - - // resolve-target - var resolveTarget = function(el) { return (function() { - var sel = domGetAttr(el, "sx-target"); - return (isSxTruthy(sxOr(isNil(sel), (sel == "this"))) ? el : (isSxTruthy((sel == "closest")) ? domParent(el) : domQuery(sel))); -})(); }; - - // apply-optimistic - var applyOptimistic = function(el) { return (function() { - var directive = domGetAttr(el, "sx-optimistic"); - return (isSxTruthy(isNil(directive)) ? NIL : (function() { - var target = sxOr(resolveTarget(el), el); - var state = {["target"]: target, ["directive"]: directive}; - (isSxTruthy((directive == "remove")) ? (dictSet(state, "opacity", domGetStyle(target, "opacity")), domSetStyle(target, "opacity", "0"), domSetStyle(target, "pointer-events", "none")) : (isSxTruthy((directive == "disable")) ? (dictSet(state, "disabled", domGetProp(target, "disabled")), domSetProp(target, "disabled", true)) : (isSxTruthy(startsWith(directive, "add-class:")) ? (function() { - var cls = slice(directive, 10); - state["add-class"] = cls; - return domAddClass(target, cls); -})() : NIL))); - return state; -})()); -})(); }; - - // revert-optimistic - var revertOptimistic = function(state) { return (isSxTruthy(state) ? (function() { - var target = get(state, "target"); - var directive = get(state, "directive"); - return (isSxTruthy((directive == "remove")) ? (domSetStyle(target, "opacity", sxOr(get(state, "opacity"), "")), domSetStyle(target, "pointer-events", "")) : (isSxTruthy((directive == "disable")) ? domSetProp(target, "disabled", sxOr(get(state, "disabled"), false)) : (isSxTruthy(get(state, "add-class")) ? domRemoveClass(target, get(state, "add-class")) : NIL))); -})() : NIL); }; - - // find-oob-swaps - var findOobSwaps = function(container) { return (function() { - var results = []; - { var _c = ["sx-swap-oob", "hx-swap-oob"]; for (var _i = 0; _i < _c.length; _i++) { var attr = _c[_i]; (function() { - var oobEls = domQueryAll(container, (String("[") + String(attr) + String("]"))); - return forEach(function(oob) { return (function() { - var swapType = sxOr(domGetAttr(oob, attr), "outerHTML"); - var targetId = domId(oob); - domRemoveAttr(oob, attr); - return (isSxTruthy(targetId) ? append_b(results, {["element"]: oob, ["swap-type"]: swapType, ["target-id"]: targetId}) : NIL); -})(); }, oobEls); -})(); } } - return results; -})(); }; - - // morph-node - var morphNode = function(oldNode, newNode) { return (isSxTruthy(sxOr(domHasAttr(oldNode, "sx-preserve"), domHasAttr(oldNode, "sx-ignore"))) ? NIL : (isSxTruthy(sxOr(!isSxTruthy((domNodeType(oldNode) == domNodeType(newNode))), !isSxTruthy((domNodeName(oldNode) == domNodeName(newNode))))) ? domReplaceChild(domParent(oldNode), domClone(newNode), oldNode) : (isSxTruthy(sxOr((domNodeType(oldNode) == 3), (domNodeType(oldNode) == 8))) ? (isSxTruthy(!isSxTruthy((domTextContent(oldNode) == domTextContent(newNode)))) ? domSetTextContent(oldNode, domTextContent(newNode)) : NIL) : (isSxTruthy((domNodeType(oldNode) == 1)) ? (syncAttrs(oldNode, newNode), (isSxTruthy(!isSxTruthy((isSxTruthy(domIsActiveElement(oldNode)) && domIsInputElement(oldNode)))) ? morphChildren(oldNode, newNode) : NIL)) : NIL)))); }; - - // sync-attrs - var syncAttrs = function(oldEl, newEl) { { var _c = domAttrList(newEl); for (var _i = 0; _i < _c.length; _i++) { var attr = _c[_i]; (function() { - var name = first(attr); - var val = nth(attr, 1); - return (isSxTruthy(!isSxTruthy((domGetAttr(oldEl, name) == val))) ? domSetAttr(oldEl, name, val) : NIL); -})(); } } -return forEach(function(attr) { return (isSxTruthy(!isSxTruthy(domHasAttr(newEl, first(attr)))) ? domRemoveAttr(oldEl, first(attr)) : NIL); }, domAttrList(oldEl)); }; - - // morph-children - var morphChildren = function(oldParent, newParent) { return (function() { - var oldKids = domChildList(oldParent); - var newKids = domChildList(newParent); - var oldById = reduce(function(acc, kid) { return (function() { - var id = domId(kid); - return (isSxTruthy(id) ? (dictSet(acc, id, kid), acc) : acc); -})(); }, {}, oldKids); - var oi = 0; - { var _c = newKids; for (var _i = 0; _i < _c.length; _i++) { var newChild = _c[_i]; (function() { - var matchId = domId(newChild); - var matchById = (isSxTruthy(matchId) ? dictGet(oldById, matchId) : NIL); - return (isSxTruthy((isSxTruthy(matchById) && !isSxTruthy(isNil(matchById)))) ? ((isSxTruthy((isSxTruthy((oi < len(oldKids))) && !isSxTruthy((matchById == nth(oldKids, oi))))) ? domInsertBefore(oldParent, matchById, (isSxTruthy((oi < len(oldKids))) ? nth(oldKids, oi) : NIL)) : NIL), morphNode(matchById, newChild), (oi = (oi + 1))) : (isSxTruthy((oi < len(oldKids))) ? (function() { - var oldChild = nth(oldKids, oi); - return (isSxTruthy((isSxTruthy(domId(oldChild)) && !isSxTruthy(matchId))) ? domInsertBefore(oldParent, domClone(newChild), oldChild) : (morphNode(oldChild, newChild), (oi = (oi + 1)))); -})() : domAppend(oldParent, domClone(newChild)))); -})(); } } - return forEach(function(i) { return (isSxTruthy((i >= oi)) ? (function() { - var leftover = nth(oldKids, i); - return (isSxTruthy((isSxTruthy(domIsChildOf(leftover, oldParent)) && isSxTruthy(!isSxTruthy(domHasAttr(leftover, "sx-preserve"))) && !isSxTruthy(domHasAttr(leftover, "sx-ignore")))) ? domRemoveChild(oldParent, leftover) : NIL); -})() : NIL); }, range(oi, len(oldKids))); -})(); }; - - // swap-dom-nodes - var swapDomNodes = function(target, newNodes, strategy) { return (function() { var _m = strategy; if (_m == "innerHTML") return (isSxTruthy(domIsFragment(newNodes)) ? morphChildren(target, newNodes) : (function() { - var wrapper = domCreateElement("div", NIL); - domAppend(wrapper, newNodes); - return morphChildren(target, wrapper); -})()); if (_m == "outerHTML") return (function() { - var parent = domParent(target); - (isSxTruthy(domIsFragment(newNodes)) ? (function() { - var fc = domFirstChild(newNodes); - return (isSxTruthy(fc) ? (morphNode(target, fc), (function() { - var sib = domNextSibling(fc); - return insertRemainingSiblings(parent, target, sib); -})()) : domRemoveChild(parent, target)); -})() : morphNode(target, newNodes)); - return parent; -})(); if (_m == "afterend") return domInsertAfter(target, newNodes); if (_m == "beforeend") return domAppend(target, newNodes); if (_m == "afterbegin") return domPrepend(target, newNodes); if (_m == "beforebegin") return domInsertBefore(domParent(target), newNodes, target); if (_m == "delete") return domRemoveChild(domParent(target), target); if (_m == "none") return NIL; return (isSxTruthy(domIsFragment(newNodes)) ? morphChildren(target, newNodes) : (function() { - var wrapper = domCreateElement("div", NIL); - domAppend(wrapper, newNodes); - return morphChildren(target, wrapper); -})()); })(); }; - - // insert-remaining-siblings - var insertRemainingSiblings = function(parent, refNode, sib) { return (isSxTruthy(sib) ? (function() { - var next = domNextSibling(sib); - domInsertAfter(refNode, sib); - return insertRemainingSiblings(parent, sib, next); -})() : NIL); }; - - // swap-html-string - var swapHtmlString = function(target, html, strategy) { return (function() { var _m = strategy; if (_m == "innerHTML") return domSetInnerHtml(target, html); if (_m == "outerHTML") return (function() { - var parent = domParent(target); - domInsertAdjacentHtml(target, "afterend", html); - domRemoveChild(parent, target); - return parent; -})(); if (_m == "afterend") return domInsertAdjacentHtml(target, "afterend", html); if (_m == "beforeend") return domInsertAdjacentHtml(target, "beforeend", html); if (_m == "afterbegin") return domInsertAdjacentHtml(target, "afterbegin", html); if (_m == "beforebegin") return domInsertAdjacentHtml(target, "beforebegin", html); if (_m == "delete") return domRemoveChild(domParent(target), target); if (_m == "none") return NIL; return domSetInnerHtml(target, html); })(); }; - - // handle-history - var handleHistory = function(el, url, respHeaders) { return (function() { - var pushUrl = domGetAttr(el, "sx-push-url"); - var replaceUrl = domGetAttr(el, "sx-replace-url"); - var hdrReplace = get(respHeaders, "replace-url"); - return (isSxTruthy(hdrReplace) ? browserReplaceState(hdrReplace) : (isSxTruthy((isSxTruthy(pushUrl) && !isSxTruthy((pushUrl == "false")))) ? browserPushState((isSxTruthy((pushUrl == "true")) ? url : pushUrl)) : (isSxTruthy((isSxTruthy(replaceUrl) && !isSxTruthy((replaceUrl == "false")))) ? browserReplaceState((isSxTruthy((replaceUrl == "true")) ? url : replaceUrl)) : NIL))); -})(); }; - - // PRELOAD_TTL - var PRELOAD_TTL = 30000; - - // preload-cache-get - var preloadCacheGet = function(cache, url) { return (function() { - var entry = dictGet(cache, url); - return (isSxTruthy(isNil(entry)) ? NIL : (isSxTruthy(((nowMs() - get(entry, "timestamp")) > PRELOAD_TTL)) ? (dictDelete(cache, url), NIL) : (dictDelete(cache, url), entry))); -})(); }; - - // preload-cache-set - var preloadCacheSet = function(cache, url, text, contentType) { return dictSet(cache, url, {["text"]: text, ["content-type"]: contentType, ["timestamp"]: nowMs()}); }; - - // classify-trigger - var classifyTrigger = function(trigger) { return (function() { - var event = get(trigger, "event"); - return (isSxTruthy((event == "every")) ? "poll" : (isSxTruthy((event == "intersect")) ? "intersect" : (isSxTruthy((event == "load")) ? "load" : (isSxTruthy((event == "revealed")) ? "revealed" : "event")))); -})(); }; - - // should-boost-link? - var shouldBoostLink = function(link) { return (function() { - var href = domGetAttr(link, "href"); - return (isSxTruthy(href) && isSxTruthy(!isSxTruthy(startsWith(href, "#"))) && isSxTruthy(!isSxTruthy(startsWith(href, "javascript:"))) && isSxTruthy(!isSxTruthy(startsWith(href, "mailto:"))) && isSxTruthy(browserSameOrigin(href)) && isSxTruthy(!isSxTruthy(domHasAttr(link, "sx-get"))) && isSxTruthy(!isSxTruthy(domHasAttr(link, "sx-post"))) && !isSxTruthy(domHasAttr(link, "sx-disable"))); -})(); }; - - // should-boost-form? - var shouldBoostForm = function(form) { return (isSxTruthy(!isSxTruthy(domHasAttr(form, "sx-get"))) && isSxTruthy(!isSxTruthy(domHasAttr(form, "sx-post"))) && !isSxTruthy(domHasAttr(form, "sx-disable"))); }; - - // parse-sse-swap - var parseSseSwap = function(el) { return sxOr(domGetAttr(el, "sx-sse-swap"), "message"); }; - - - // === Transpiled from orchestration === - - // _preload-cache - var _preloadCache = {}; - - // _css-hash - var _cssHash = NIL; - - // dispatch-trigger-events - var dispatchTriggerEvents = function(el, headerVal) { return (isSxTruthy(headerVal) ? (function() { - var parsed = tryParseJson(headerVal); - return (isSxTruthy(parsed) ? forEach(function(key) { return domDispatch(el, key, get(parsed, key)); }, keys(parsed)) : forEach(function(name) { return (function() { - var trimmed = trim(name); - return (isSxTruthy(!isSxTruthy(isEmpty(trimmed))) ? domDispatch(el, trimmed, {}) : NIL); -})(); }, split(headerVal, ","))); -})() : NIL); }; - - // init-css-tracking - var initCssTracking = function() { return (function() { - var meta = domQuery("meta[name=\"sx-css-classes\"]"); - return (isSxTruthy(meta) ? (function() { - var content = domGetAttr(meta, "content"); - return (isSxTruthy(content) ? (_cssHash = content) : NIL); -})() : NIL); -})(); }; - - // execute-request - var executeRequest = function(el, verbInfo, extraParams) { return (function() { - var info = sxOr(getVerbInfo(el), verbInfo); - return (isSxTruthy(isNil(info)) ? promiseResolve(NIL) : (function() { - var verb = get(info, "method"); - var url = get(info, "url"); - return (isSxTruthy((function() { - var media = domGetAttr(el, "sx-media"); - return (isSxTruthy(media) && !isSxTruthy(browserMediaMatches(media))); -})()) ? promiseResolve(NIL) : (isSxTruthy((function() { - var confirmMsg = domGetAttr(el, "sx-confirm"); - return (isSxTruthy(confirmMsg) && !isSxTruthy(browserConfirm(confirmMsg))); -})()) ? promiseResolve(NIL) : (function() { - var promptMsg = domGetAttr(el, "sx-prompt"); - var promptVal = (isSxTruthy(promptMsg) ? browserPrompt(promptMsg) : NIL); - return (isSxTruthy((isSxTruthy(promptMsg) && isNil(promptVal))) ? promiseResolve(NIL) : (isSxTruthy(!isSxTruthy(validateForRequest(el))) ? promiseResolve(NIL) : doFetch(el, verb, verb, url, (isSxTruthy(promptVal) ? assoc(sxOr(extraParams, {}), "SX-Prompt", promptVal) : extraParams)))); -})())); -})()); -})(); }; - - // do-fetch - var doFetch = function(el, verb, method, url, extraParams) { return (function() { - var sync = domGetAttr(el, "sx-sync"); - if (isSxTruthy((sync == "replace"))) { - abortPrevious(el); -} - return (function() { - var ctrl = newAbortController(); - trackController(el, ctrl); - return (function() { - var bodyInfo = buildRequestBody(el, method, url); - var finalUrl = get(bodyInfo, "url"); - var body = get(bodyInfo, "body"); - var ct = get(bodyInfo, "content-type"); - var headers = buildRequestHeaders(el, loadedComponentNames(), _cssHash); - var csrf = csrfToken(); - if (isSxTruthy(extraParams)) { - { var _c = keys(extraParams); for (var _i = 0; _i < _c.length; _i++) { var k = _c[_i]; headers[k] = get(extraParams, k); } } -} - if (isSxTruthy(ct)) { - headers["Content-Type"] = ct; -} - if (isSxTruthy(csrf)) { - headers["X-CSRFToken"] = csrf; -} - return (function() { - var cached = preloadCacheGet(_preloadCache, finalUrl); - var optimisticState = applyOptimistic(el); - var indicator = showIndicator(el); - var disabledElts = disableElements(el); - domAddClass(el, "sx-request"); - domSetAttr(el, "aria-busy", "true"); - domDispatch(el, "sx:beforeRequest", {["url"]: finalUrl, ["method"]: method}); - return fetchRequest({["url"]: finalUrl, ["method"]: method, ["headers"]: headers, ["body"]: body, ["signal"]: controllerSignal(ctrl), ["cross-origin"]: isCrossOrigin(finalUrl), ["preloaded"]: cached}, function(respOk, status, getHeader, text) { return (clearLoadingState(el, indicator, disabledElts), revertOptimistic(optimisticState), (isSxTruthy(!isSxTruthy(respOk)) ? (domDispatch(el, "sx:responseError", {["status"]: status, ["text"]: text}), handleRetry(el, verb, method, finalUrl, extraParams)) : (domDispatch(el, "sx:afterRequest", {["status"]: status}), handleFetchSuccess(el, finalUrl, verb, extraParams, getHeader, text)))); }, function(err) { return (clearLoadingState(el, indicator, disabledElts), revertOptimistic(optimisticState), (isSxTruthy(!isSxTruthy(isAbortError(err))) ? domDispatch(el, "sx:requestError", {["error"]: err}) : NIL)); }); -})(); -})(); -})(); -})(); }; - - // handle-fetch-success - var handleFetchSuccess = function(el, url, verb, extraParams, getHeader, text) { return (function() { - var respHeaders = processResponseHeaders(getHeader); - (function() { - var newHash = get(respHeaders, "css-hash"); - return (isSxTruthy(newHash) ? (_cssHash = newHash) : NIL); -})(); - dispatchTriggerEvents(el, get(respHeaders, "trigger")); - processCacheDirectives(el, respHeaders, text); - return (isSxTruthy(get(respHeaders, "redirect")) ? browserNavigate(get(respHeaders, "redirect")) : (isSxTruthy(get(respHeaders, "refresh")) ? browserReload() : (isSxTruthy(get(respHeaders, "location")) ? fetchLocation(get(respHeaders, "location")) : (function() { - var targetEl = (isSxTruthy(get(respHeaders, "retarget")) ? domQuery(get(respHeaders, "retarget")) : resolveTarget(el)); - var swapSpec = parseSwapSpec(sxOr(get(respHeaders, "reswap"), domGetAttr(el, "sx-swap")), domHasClass(domBody(), "sx-transitions")); - var swapStyle = get(swapSpec, "style"); - var useTransition = get(swapSpec, "transition"); - var ct = sxOr(get(respHeaders, "content-type"), ""); - (isSxTruthy(contains(ct, "text/sx")) ? handleSxResponse(el, targetEl, text, swapStyle, useTransition) : handleHtmlResponse(el, targetEl, text, swapStyle, useTransition)); - dispatchTriggerEvents(el, get(respHeaders, "trigger-swap")); - handleHistory(el, url, respHeaders); - if (isSxTruthy(get(respHeaders, "trigger-settle"))) { - setTimeout_(function() { return dispatchTriggerEvents(el, get(respHeaders, "trigger-settle")); }, 20); -} - return domDispatch(el, "sx:afterSwap", {["target"]: targetEl, ["swap"]: swapStyle}); -})()))); -})(); }; - - // handle-sx-response - var handleSxResponse = function(el, target, text, swapStyle, useTransition) { return (function() { - var cleaned = stripComponentScripts(text); - return (function() { - var final_ = extractResponseCss(cleaned); - return (function() { - var trimmed = trim(final_); - return (isSxTruthy(!isSxTruthy(isEmpty(trimmed))) ? (function() { - var rendered = sxRender(trimmed); - var container = domCreateElement("div", NIL); - domAppend(container, rendered); - processOobSwaps(container, function(t, oob, s) { disposeIslandsIn(t); -swapDomNodes(t, oob, s); -sxHydrate(t); -return processElements(t); }); - return (function() { - var selectSel = domGetAttr(el, "sx-select"); - var content = (isSxTruthy(selectSel) ? selectFromContainer(container, selectSel) : childrenToFragment(container)); - disposeIslandsIn(target); - return withTransition(useTransition, function() { swapDomNodes(target, content, swapStyle); -return postSwap(target); }); -})(); -})() : NIL); -})(); -})(); -})(); }; - - // handle-html-response - var handleHtmlResponse = function(el, target, text, swapStyle, useTransition) { return (function() { - var doc = domParseHtmlDocument(text); - return (isSxTruthy(doc) ? (function() { - var selectSel = domGetAttr(el, "sx-select"); - disposeIslandsIn(target); - return (isSxTruthy(selectSel) ? (function() { - var html = selectHtmlFromDoc(doc, selectSel); - return withTransition(useTransition, function() { swapHtmlString(target, html, swapStyle); -return postSwap(target); }); -})() : (function() { - var container = domCreateElement("div", NIL); - domSetInnerHtml(container, domBodyInnerHtml(doc)); - processOobSwaps(container, function(t, oob, s) { disposeIslandsIn(t); -swapDomNodes(t, oob, s); -return postSwap(t); }); - hoistHeadElements(container); - return withTransition(useTransition, function() { swapDomNodes(target, childrenToFragment(container), swapStyle); -return postSwap(target); }); -})()); -})() : NIL); -})(); }; - - // handle-retry - var handleRetry = function(el, verb, method, url, extraParams) { return (function() { - var retryAttr = domGetAttr(el, "sx-retry"); - var spec = parseRetrySpec(retryAttr); - return (isSxTruthy(spec) ? (function() { - var currentMs = sxOr(domGetAttr(el, "data-sx-retry-ms"), get(spec, "start-ms")); - return (function() { - var ms = parseInt_(currentMs, get(spec, "start-ms")); - domSetAttr(el, "data-sx-retry-ms", (String(nextRetryMs(ms, get(spec, "cap-ms"))))); - return setTimeout_(function() { return doFetch(el, verb, method, url, extraParams); }, ms); -})(); -})() : NIL); -})(); }; - - // bind-triggers - var bindTriggers = function(el, verbInfo) { return (function() { - var triggers = sxOr(parseTriggerSpec(domGetAttr(el, "sx-trigger")), defaultTrigger(domTagName(el))); - return forEach(function(trigger) { return (function() { - var kind = classifyTrigger(trigger); - var mods = get(trigger, "modifiers"); - return (isSxTruthy((kind == "poll")) ? setInterval_(function() { return executeRequest(el, NIL, NIL); }, get(mods, "interval")) : (isSxTruthy((kind == "intersect")) ? observeIntersection(el, function() { return executeRequest(el, NIL, NIL); }, false, get(mods, "delay")) : (isSxTruthy((kind == "load")) ? setTimeout_(function() { return executeRequest(el, NIL, NIL); }, sxOr(get(mods, "delay"), 0)) : (isSxTruthy((kind == "revealed")) ? observeIntersection(el, function() { return executeRequest(el, NIL, NIL); }, true, get(mods, "delay")) : (isSxTruthy((kind == "event")) ? bindEvent(el, get(trigger, "event"), mods, verbInfo) : NIL))))); -})(); }, triggers); -})(); }; - - // bind-event - var bindEvent = function(el, eventName, mods, verbInfo) { return (function() { - var timer = NIL; - var lastVal = NIL; - var listenTarget = (isSxTruthy(get(mods, "from")) ? domQuery(get(mods, "from")) : el); - return (isSxTruthy(listenTarget) ? domAddListener(listenTarget, eventName, function(e) { return (function() { - var shouldFire = true; - if (isSxTruthy(get(mods, "changed"))) { - (function() { - var val = elementValue(el); - return (isSxTruthy((val == lastVal)) ? (shouldFire = false) : (lastVal = val)); -})(); -} - return (isSxTruthy(shouldFire) ? ((isSxTruthy(sxOr((eventName == "submit"), (isSxTruthy((eventName == "click")) && domHasAttr(el, "href")))) ? preventDefault_(e) : NIL), (function() { - var liveInfo = sxOr(getVerbInfo(el), verbInfo); - var isGetLink = (isSxTruthy((eventName == "click")) && isSxTruthy((get(liveInfo, "method") == "GET")) && isSxTruthy(domHasAttr(el, "href")) && !isSxTruthy(get(mods, "delay"))); - var clientRouted = false; - if (isSxTruthy(isGetLink)) { - clientRouted = tryClientRoute(urlPathname(get(liveInfo, "url")), domGetAttr(el, "sx-target")); -} - return (isSxTruthy(clientRouted) ? (browserPushState(get(liveInfo, "url")), browserScrollTo(0, 0)) : ((isSxTruthy(isGetLink) ? logInfo((String("sx:route server fetch ") + String(get(liveInfo, "url")))) : NIL), (isSxTruthy(get(mods, "delay")) ? (clearTimeout_(timer), (timer = setTimeout_(function() { return executeRequest(el, NIL, NIL); }, get(mods, "delay")))) : executeRequest(el, NIL, NIL)))); -})()) : NIL); -})(); }, (isSxTruthy(get(mods, "once")) ? {["once"]: true} : NIL)) : NIL); -})(); }; - - // post-swap - var postSwap = function(root) { activateScripts(root); -sxProcessScripts(root); -sxHydrate(root); -sxHydrateIslands(root); -return processElements(root); }; - - // activate-scripts - var activateScripts = function(root) { return (isSxTruthy(root) ? (function() { - var scripts = domQueryAll(root, "script"); - return forEach(function(dead) { return (isSxTruthy((isSxTruthy(!isSxTruthy(domHasAttr(dead, "data-components"))) && !isSxTruthy(domHasAttr(dead, "data-sx-activated")))) ? (function() { - var live = createScriptClone(dead); - domSetAttr(live, "data-sx-activated", "true"); - return domReplaceChild(domParent(dead), live, dead); -})() : NIL); }, scripts); -})() : NIL); }; - - // process-oob-swaps - var processOobSwaps = function(container, swapFn) { return (function() { - var oobs = findOobSwaps(container); - return forEach(function(oob) { return (function() { - var targetId = get(oob, "target-id"); - var target = domQueryById(targetId); - var oobEl = get(oob, "element"); - var swapType = get(oob, "swap-type"); - if (isSxTruthy(domParent(oobEl))) { - domRemoveChild(domParent(oobEl), oobEl); -} - return (isSxTruthy(target) ? swapFn(target, oobEl, swapType) : NIL); -})(); }, oobs); -})(); }; - - // hoist-head-elements - var hoistHeadElements = function(container) { { var _c = domQueryAll(container, "style[data-sx-css]"); for (var _i = 0; _i < _c.length; _i++) { var style = _c[_i]; if (isSxTruthy(domParent(style))) { - domRemoveChild(domParent(style), style); -} -domAppendToHead(style); } } -return forEach(function(link) { if (isSxTruthy(domParent(link))) { - domRemoveChild(domParent(link), link); -} -return domAppendToHead(link); }, domQueryAll(container, "link[rel=\"stylesheet\"]")); }; - - // process-boosted - var processBoosted = function(root) { return forEach(function(container) { return boostDescendants(container); }, domQueryAll(sxOr(root, domBody()), "[sx-boost]")); }; - - // boost-descendants - var boostDescendants = function(container) { return (function() { - var boostTarget = domGetAttr(container, "sx-boost"); - { var _c = domQueryAll(container, "a[href]"); for (var _i = 0; _i < _c.length; _i++) { var link = _c[_i]; if (isSxTruthy((isSxTruthy(!isSxTruthy(isProcessed(link, "boost"))) && shouldBoostLink(link)))) { - markProcessed(link, "boost"); - if (isSxTruthy((isSxTruthy(!isSxTruthy(domHasAttr(link, "sx-target"))) && isSxTruthy(boostTarget) && !isSxTruthy((boostTarget == "true"))))) { - domSetAttr(link, "sx-target", boostTarget); -} - if (isSxTruthy(!isSxTruthy(domHasAttr(link, "sx-swap")))) { - domSetAttr(link, "sx-swap", "innerHTML"); -} - if (isSxTruthy(!isSxTruthy(domHasAttr(link, "sx-push-url")))) { - domSetAttr(link, "sx-push-url", "true"); -} - bindClientRouteLink(link, domGetAttr(link, "href")); -} } } - return forEach(function(form) { return (isSxTruthy((isSxTruthy(!isSxTruthy(isProcessed(form, "boost"))) && shouldBoostForm(form))) ? (markProcessed(form, "boost"), (function() { - var method = upper(sxOr(domGetAttr(form, "method"), "GET")); - var action = sxOr(domGetAttr(form, "action"), browserLocationHref()); - if (isSxTruthy((isSxTruthy(!isSxTruthy(domHasAttr(form, "sx-target"))) && isSxTruthy(boostTarget) && !isSxTruthy((boostTarget == "true"))))) { - domSetAttr(form, "sx-target", boostTarget); -} - if (isSxTruthy(!isSxTruthy(domHasAttr(form, "sx-swap")))) { - domSetAttr(form, "sx-swap", "innerHTML"); -} - return bindBoostForm(form, method, action); -})()) : NIL); }, domQueryAll(container, "form")); -})(); }; - - // _page-data-cache - var _pageDataCache = {}; - - // _page-data-cache-ttl - var _pageDataCacheTtl = 30000; - - // page-data-cache-key - var pageDataCacheKey = function(pageName, params) { return (function() { - var base = pageName; - return (isSxTruthy(sxOr(isNil(params), isEmpty(keys(params)))) ? base : (function() { - var parts = []; - { var _c = keys(params); for (var _i = 0; _i < _c.length; _i++) { var k = _c[_i]; parts.push((String(k) + String("=") + String(get(params, k)))); } } - return (String(base) + String(":") + String(join("&", parts))); -})()); -})(); }; - - // page-data-cache-get - var pageDataCacheGet = function(cacheKey) { return (function() { - var entry = get(_pageDataCache, cacheKey); - return (isSxTruthy(isNil(entry)) ? NIL : (isSxTruthy(((nowMs() - get(entry, "ts")) > _pageDataCacheTtl)) ? (dictSet(_pageDataCache, cacheKey, NIL), NIL) : get(entry, "data"))); -})(); }; - - // page-data-cache-set - var pageDataCacheSet = function(cacheKey, data) { return dictSet(_pageDataCache, cacheKey, {"data": data, "ts": nowMs()}); }; - - // invalidate-page-cache - var invalidatePageCache = function(pageName) { { var _c = keys(_pageDataCache); for (var _i = 0; _i < _c.length; _i++) { var k = _c[_i]; if (isSxTruthy(sxOr((k == pageName), startsWith(k, (String(pageName) + String(":")))))) { - _pageDataCache[k] = NIL; -} } } -swPostMessage({"type": "invalidate", "page": pageName}); -return logInfo((String("sx:cache invalidate ") + String(pageName))); }; - - // invalidate-all-page-cache - var invalidateAllPageCache = function() { _pageDataCache = {}; -swPostMessage({"type": "invalidate", "page": "*"}); -return logInfo("sx:cache invalidate *"); }; - - // update-page-cache - var updatePageCache = function(pageName, data) { return (function() { - var cacheKey = pageDataCacheKey(pageName, {}); - pageDataCacheSet(cacheKey, data); - return logInfo((String("sx:cache update ") + String(pageName))); -})(); }; - - // process-cache-directives - var processCacheDirectives = function(el, respHeaders, responseText) { (function() { - var elInvalidate = domGetAttr(el, "sx-cache-invalidate"); - return (isSxTruthy(elInvalidate) ? (isSxTruthy((elInvalidate == "*")) ? invalidateAllPageCache() : invalidatePageCache(elInvalidate)) : NIL); -})(); -(function() { - var hdrInvalidate = get(respHeaders, "cache-invalidate"); - return (isSxTruthy(hdrInvalidate) ? (isSxTruthy((hdrInvalidate == "*")) ? invalidateAllPageCache() : invalidatePageCache(hdrInvalidate)) : NIL); -})(); -return (function() { - var hdrUpdate = get(respHeaders, "cache-update"); - return (isSxTruthy(hdrUpdate) ? (function() { - var data = parseSxData(responseText); - return (isSxTruthy(data) ? updatePageCache(hdrUpdate, data) : NIL); -})() : NIL); -})(); }; - - // _optimistic-snapshots - var _optimisticSnapshots = {}; - - // optimistic-cache-update - var optimisticCacheUpdate = function(cacheKey, mutator) { return (function() { - var cached = pageDataCacheGet(cacheKey); - return (isSxTruthy(cached) ? (function() { - var predicted = mutator(cached); - _optimisticSnapshots[cacheKey] = cached; - pageDataCacheSet(cacheKey, predicted); - return predicted; -})() : NIL); -})(); }; - - // optimistic-cache-revert - var optimisticCacheRevert = function(cacheKey) { return (function() { - var snapshot = get(_optimisticSnapshots, cacheKey); - return (isSxTruthy(snapshot) ? (pageDataCacheSet(cacheKey, snapshot), dictDelete(_optimisticSnapshots, cacheKey), snapshot) : NIL); -})(); }; - - // optimistic-cache-confirm - var optimisticCacheConfirm = function(cacheKey) { return dictDelete(_optimisticSnapshots, cacheKey); }; - - // submit-mutation - var submitMutation = function(pageName, params, actionName, payload, mutatorFn, onComplete) { return (function() { - var cacheKey = pageDataCacheKey(pageName, params); - var predicted = optimisticCacheUpdate(cacheKey, mutatorFn); - if (isSxTruthy(predicted)) { - tryRerenderPage(pageName, params, predicted); -} - return executeAction(actionName, payload, function(result) { if (isSxTruthy(result)) { - pageDataCacheSet(cacheKey, result); -} -optimisticCacheConfirm(cacheKey); -if (isSxTruthy(result)) { - tryRerenderPage(pageName, params, result); -} -logInfo((String("sx:optimistic confirmed ") + String(pageName))); -return (isSxTruthy(onComplete) ? onComplete("confirmed") : NIL); }, function(error) { return (function() { - var reverted = optimisticCacheRevert(cacheKey); - if (isSxTruthy(reverted)) { - tryRerenderPage(pageName, params, reverted); -} - logWarn((String("sx:optimistic reverted ") + String(pageName) + String(": ") + String(error))); - return (isSxTruthy(onComplete) ? onComplete("reverted") : NIL); -})(); }); -})(); }; - - // _is-online - var _isOnline = true; - - // _offline-queue - var _offlineQueue = []; - - // offline-is-online? - var offlineIsOnline_p = function() { return _isOnline; }; - - // offline-set-online! - var offlineSetOnline_b = function(val) { return (_isOnline = val); }; - - // offline-queue-mutation - var offlineQueueMutation = function(actionName, payload, pageName, params, mutatorFn) { return (function() { - var cacheKey = pageDataCacheKey(pageName, params); - var entry = {["action"]: actionName, ["payload"]: payload, ["page"]: pageName, ["params"]: params, ["timestamp"]: nowMs(), ["status"]: "pending"}; - _offlineQueue.push(entry); - (function() { - var predicted = optimisticCacheUpdate(cacheKey, mutatorFn); - return (isSxTruthy(predicted) ? tryRerenderPage(pageName, params, predicted) : NIL); -})(); - logInfo((String("sx:offline queued ") + String(actionName) + String(" (") + String(len(_offlineQueue)) + String(" pending)"))); - return entry; -})(); }; - - // offline-sync - var offlineSync = function() { return (function() { - var pending = filter(function(e) { return (get(e, "status") == "pending"); }, _offlineQueue); - return (isSxTruthy(!isSxTruthy(isEmpty(pending))) ? (logInfo((String("sx:offline syncing ") + String(len(pending)) + String(" mutations"))), forEach(function(entry) { return executeAction(get(entry, "action"), get(entry, "payload"), function(result) { entry["status"] = "synced"; -return logInfo((String("sx:offline synced ") + String(get(entry, "action")))); }, function(error) { entry["status"] = "failed"; -return logWarn((String("sx:offline sync failed ") + String(get(entry, "action")) + String(": ") + String(error))); }); }, pending)) : NIL); -})(); }; - - // offline-pending-count - var offlinePendingCount = function() { return len(filter(function(e) { return (get(e, "status") == "pending"); }, _offlineQueue)); }; - - // offline-aware-mutation - var offlineAwareMutation = function(pageName, params, actionName, payload, mutatorFn, onComplete) { return (isSxTruthy(_isOnline) ? submitMutation(pageName, params, actionName, payload, mutatorFn, onComplete) : (offlineQueueMutation(actionName, payload, pageName, params, mutatorFn), (isSxTruthy(onComplete) ? onComplete("queued") : NIL))); }; - - // current-page-layout - var currentPageLayout = function() { return (function() { - var pathname = urlPathname(browserLocationHref()); - var match = findMatchingRoute(pathname, _pageRoutes); - return (isSxTruthy(isNil(match)) ? "" : sxOr(get(match, "layout"), "")); -})(); }; - - // swap-rendered-content - var swapRenderedContent = function(target, rendered, pathname) { return (disposeIslandsIn(target), domSetTextContent(target, ""), domAppend(target, rendered), hoistHeadElementsFull(target), processElements(target), sxHydrateElements(target), domDispatch(target, "sx:clientRoute", {["pathname"]: pathname}), logInfo((String("sx:route client ") + String(pathname)))); }; - - // resolve-route-target - var resolveRouteTarget = function(targetSel) { return (isSxTruthy((isSxTruthy(targetSel) && !isSxTruthy((targetSel == "true")))) ? domQuery(targetSel) : NIL); }; - - // deps-satisfied? - var depsSatisfied_p = function(match) { return (function() { - var deps = get(match, "deps"); - var loaded = loadedComponentNames(); - return (isSxTruthy(sxOr(isNil(deps), isEmpty(deps))) ? true : isEvery(function(dep) { return contains(loaded, dep); }, deps)); -})(); }; - - // try-client-route - var tryClientRoute = function(pathname, targetSel) { return (function() { - var match = findMatchingRoute(pathname, _pageRoutes); - return (isSxTruthy(isNil(match)) ? (logInfo((String("sx:route no match (") + String(len(_pageRoutes)) + String(" routes) ") + String(pathname))), false) : (function() { - var targetLayout = sxOr(get(match, "layout"), ""); - var curLayout = currentPageLayout(); - return (isSxTruthy(!isSxTruthy((targetLayout == curLayout))) ? (logInfo((String("sx:route server (layout: ") + String(curLayout) + String(" -> ") + String(targetLayout) + String(") ") + String(pathname))), false) : (function() { - var contentSrc = get(match, "content"); - var closure = sxOr(get(match, "closure"), {}); - var params = get(match, "params"); - var pageName = get(match, "name"); - return (isSxTruthy(sxOr(isNil(contentSrc), isEmpty(contentSrc))) ? (logWarn((String("sx:route no content for ") + String(pathname))), false) : (function() { - var target = resolveRouteTarget(targetSel); - return (isSxTruthy(isNil(target)) ? (logWarn((String("sx:route target not found: ") + String(targetSel))), false) : (isSxTruthy(!isSxTruthy(depsSatisfied_p(match))) ? (logInfo((String("sx:route deps miss for ") + String(pageName))), false) : (function() { - var ioDeps = get(match, "io-deps"); - var hasIo = (isSxTruthy(ioDeps) && !isSxTruthy(isEmpty(ioDeps))); - var renderPlan = get(match, "render-plan"); - if (isSxTruthy(renderPlan)) { - (function() { - var srv = sxOr(get(renderPlan, "server"), []); - var cli = sxOr(get(renderPlan, "client"), []); - return logInfo((String("sx:route plan ") + String(pageName) + String(" — ") + String(len(srv)) + String(" server, ") + String(len(cli)) + String(" client"))); -})(); -} - if (isSxTruthy(hasIo)) { - registerIoDeps(ioDeps); -} - return (isSxTruthy(get(match, "stream")) ? (logInfo((String("sx:route streaming ") + String(pathname))), fetchStreaming(target, pathname, buildRequestHeaders(target, loadedComponentNames(), _cssHash)), true) : (isSxTruthy(get(match, "has-data")) ? (function() { - var cacheKey = pageDataCacheKey(pageName, params); - var cached = pageDataCacheGet(cacheKey); - return (isSxTruthy(cached) ? (function() { - var env = merge(closure, params, cached); - return (isSxTruthy(hasIo) ? (logInfo((String("sx:route client+cache+async ") + String(pathname))), tryAsyncEvalContent(contentSrc, env, function(rendered) { return (isSxTruthy(isNil(rendered)) ? logWarn((String("sx:route async eval failed for ") + String(pathname))) : swapRenderedContent(target, rendered, pathname)); }), true) : (function() { - var rendered = tryEvalContent(contentSrc, env); - return (isSxTruthy(isNil(rendered)) ? (logWarn((String("sx:route cached eval failed for ") + String(pathname))), false) : (logInfo((String("sx:route client+cache ") + String(pathname))), swapRenderedContent(target, rendered, pathname), true)); -})()); -})() : (logInfo((String("sx:route client+data ") + String(pathname))), resolvePageData(pageName, params, function(data) { pageDataCacheSet(cacheKey, data); -return (function() { - var env = merge(closure, params, data); - return (isSxTruthy(hasIo) ? tryAsyncEvalContent(contentSrc, env, function(rendered) { return (isSxTruthy(isNil(rendered)) ? logWarn((String("sx:route data+async eval failed for ") + String(pathname))) : swapRenderedContent(target, rendered, pathname)); }) : (function() { - var rendered = tryEvalContent(contentSrc, env); - return (isSxTruthy(isNil(rendered)) ? logWarn((String("sx:route data eval failed for ") + String(pathname))) : swapRenderedContent(target, rendered, pathname)); -})()); -})(); }), true)); -})() : (isSxTruthy(hasIo) ? (logInfo((String("sx:route client+async ") + String(pathname))), tryAsyncEvalContent(contentSrc, merge(closure, params), function(rendered) { return (isSxTruthy(isNil(rendered)) ? logWarn((String("sx:route async eval failed for ") + String(pathname))) : swapRenderedContent(target, rendered, pathname)); }), true) : (function() { - var env = merge(closure, params); - var rendered = tryEvalContent(contentSrc, env); - return (isSxTruthy(isNil(rendered)) ? (logInfo((String("sx:route server (eval failed) ") + String(pathname))), false) : (swapRenderedContent(target, rendered, pathname), true)); -})()))); -})())); -})()); -})()); -})()); -})(); }; - - // bind-client-route-link - var bindClientRouteLink = function(link, href) { return bindClientRouteClick(link, href, function() { return bindBoostLink(link, href); }); }; - - // process-sse - var processSse = function(root) { return forEach(function(el) { return (isSxTruthy(!isSxTruthy(isProcessed(el, "sse"))) ? (markProcessed(el, "sse"), bindSse(el)) : NIL); }, domQueryAll(sxOr(root, domBody()), "[sx-sse]")); }; - - // bind-sse - var bindSse = function(el) { return (function() { - var url = domGetAttr(el, "sx-sse"); - return (isSxTruthy(url) ? (function() { - var source = eventSourceConnect(url, el); - var eventName = parseSseSwap(el); - return eventSourceListen(source, eventName, function(data) { return bindSseSwap(el, data); }); -})() : NIL); -})(); }; - - // bind-sse-swap - var bindSseSwap = function(el, data) { return (function() { - var target = resolveTarget(el); - var swapSpec = parseSwapSpec(domGetAttr(el, "sx-swap"), domHasClass(domBody(), "sx-transitions")); - var swapStyle = get(swapSpec, "style"); - var useTransition = get(swapSpec, "transition"); - var trimmed = trim(data); - return (isSxTruthy(!isSxTruthy(isEmpty(trimmed))) ? (disposeIslandsIn(target), (isSxTruthy(startsWith(trimmed, "(")) ? (function() { - var rendered = sxRender(trimmed); - var container = domCreateElement("div", NIL); - domAppend(container, rendered); - return withTransition(useTransition, function() { swapDomNodes(target, childrenToFragment(container), swapStyle); -return postSwap(target); }); -})() : withTransition(useTransition, function() { swapHtmlString(target, trimmed, swapStyle); -return postSwap(target); }))) : NIL); -})(); }; - - // bind-inline-handlers - var bindInlineHandlers = function(root) { return forEach(function(el) { return forEach(function(attr) { return (function() { - var name = first(attr); - var body = nth(attr, 1); - return (isSxTruthy(startsWith(name, "sx-on:")) ? (function() { - var eventName = slice(name, 6); - return (isSxTruthy(!isSxTruthy(isProcessed(el, (String("on:") + String(eventName))))) ? (markProcessed(el, (String("on:") + String(eventName))), bindInlineHandler(el, eventName, body)) : NIL); -})() : NIL); -})(); }, domAttrList(el)); }, domQueryAll(sxOr(root, domBody()), "[sx-on\\:beforeRequest],[sx-on\\:afterRequest],[sx-on\\:afterSwap],[sx-on\\:afterSettle],[sx-on\\:load]")); }; - - // bind-preload-for - var bindPreloadFor = function(el) { return (function() { - var preloadAttr = domGetAttr(el, "sx-preload"); - return (isSxTruthy(preloadAttr) ? (function() { - var events = (isSxTruthy((preloadAttr == "mousedown")) ? ["mousedown", "touchstart"] : ["mouseover"]); - var debounceMs = (isSxTruthy((preloadAttr == "mousedown")) ? 0 : 100); - return bindPreload(el, events, debounceMs, function() { return (function() { - var info = getVerbInfo(el); - return (isSxTruthy(info) ? doPreload(get(info, "url"), buildRequestHeaders(el, loadedComponentNames(), _cssHash)) : NIL); -})(); }); -})() : NIL); -})(); }; - - // do-preload - var doPreload = function(url, headers) { return (isSxTruthy(isNil(preloadCacheGet(_preloadCache, url))) ? fetchPreload(url, headers, _preloadCache) : NIL); }; - - // VERB_SELECTOR - var VERB_SELECTOR = (String("[sx-get],[sx-post],[sx-put],[sx-delete],[sx-patch]")); - - // process-elements - var processElements = function(root) { (function() { - var els = domQueryAll(sxOr(root, domBody()), VERB_SELECTOR); - return forEach(function(el) { return (isSxTruthy(!isSxTruthy(isProcessed(el, "verb"))) ? (markProcessed(el, "verb"), processOne(el)) : NIL); }, els); -})(); -processBoosted(root); -processSse(root); -bindInlineHandlers(root); -return processEmitElements(root); }; - - // process-one - var processOne = function(el) { return (function() { - var verbInfo = getVerbInfo(el); - return (isSxTruthy(verbInfo) ? (isSxTruthy(!isSxTruthy(domHasAttr(el, "sx-disable"))) ? (bindTriggers(el, verbInfo), bindPreloadFor(el)) : NIL) : NIL); -})(); }; - - // process-emit-elements - var processEmitElements = function(root) { return (function() { - var els = domQueryAll(sxOr(root, domBody()), "[data-sx-emit]"); - return forEach(function(el) { return (isSxTruthy(!isSxTruthy(isProcessed(el, "emit"))) ? (markProcessed(el, "emit"), (function() { - var eventName = domGetAttr(el, "data-sx-emit"); - return (isSxTruthy(eventName) ? domListen(el, "click", function(e) { return (function() { - var detailJson = domGetAttr(el, "data-sx-emit-detail"); - var detail = (isSxTruthy(detailJson) ? jsonParse(detailJson) : {}); - return domDispatch(el, eventName, detail); -})(); }) : NIL); -})()) : NIL); }, els); -})(); }; - - // handle-popstate - var handlePopstate = function(scrollY) { return (function() { - var url = browserLocationHref(); - var boostEl = domQuery("[sx-boost]"); - var targetSel = (isSxTruthy(boostEl) ? (function() { - var attr = domGetAttr(boostEl, "sx-boost"); - return (isSxTruthy((isSxTruthy(attr) && !isSxTruthy((attr == "true")))) ? attr : NIL); -})() : NIL); - var targetSel = sxOr(targetSel, "#main-panel"); - var target = domQuery(targetSel); - var pathname = urlPathname(url); - return (isSxTruthy(target) ? (isSxTruthy(tryClientRoute(pathname, targetSel)) ? browserScrollTo(0, scrollY) : (function() { - var headers = buildRequestHeaders(target, loadedComponentNames(), _cssHash); - return fetchAndRestore(target, url, headers, scrollY); -})()) : NIL); -})(); }; - - // engine-init - var engineInit = function() { return (initCssTracking(), sxProcessScripts(NIL), sxHydrate(NIL), processElements(NIL)); }; - - - // === Transpiled from boot === - - // HEAD_HOIST_SELECTOR - var HEAD_HOIST_SELECTOR = "meta, title, link[rel='canonical'], script[type='application/ld+json']"; - - // hoist-head-elements-full - var hoistHeadElementsFull = function(root) { return (function() { - var els = domQueryAll(root, HEAD_HOIST_SELECTOR); - return forEach(function(el) { return (function() { - var tag = lower(domTagName(el)); - return (isSxTruthy((tag == "title")) ? (setDocumentTitle(domTextContent(el)), domRemoveChild(domParent(el), el)) : (isSxTruthy((tag == "meta")) ? ((function() { - var name = domGetAttr(el, "name"); - var prop = domGetAttr(el, "property"); - if (isSxTruthy(name)) { - removeHeadElement((String("meta[name=\"") + String(name) + String("\"]"))); -} - return (isSxTruthy(prop) ? removeHeadElement((String("meta[property=\"") + String(prop) + String("\"]"))) : NIL); -})(), domRemoveChild(domParent(el), el), domAppendToHead(el)) : (isSxTruthy((isSxTruthy((tag == "link")) && (domGetAttr(el, "rel") == "canonical"))) ? (removeHeadElement("link[rel=\"canonical\"]"), domRemoveChild(domParent(el), el), domAppendToHead(el)) : (domRemoveChild(domParent(el), el), domAppendToHead(el))))); -})(); }, els); -})(); }; - - // sx-mount - var sxMount = function(target, source, extraEnv) { return (function() { - var el = resolveMountTarget(target); - return (isSxTruthy(el) ? (function() { - var node = sxRenderWithEnv(source, extraEnv); - domSetTextContent(el, ""); - domAppend(el, node); - hoistHeadElementsFull(el); - processElements(el); - sxHydrateElements(el); - return sxHydrateIslands(el); -})() : NIL); -})(); }; - - // resolve-suspense - var resolveSuspense = function(id, sx) { processSxScripts(NIL); -return (function() { - var el = domQuery((String("[data-suspense=\"") + String(id) + String("\"]"))); - return (isSxTruthy(el) ? (function() { - var exprs = parse(sx); - var env = getRenderEnv(NIL); - domSetTextContent(el, ""); - { var _c = exprs; for (var _i = 0; _i < _c.length; _i++) { var expr = _c[_i]; domAppend(el, renderToDom(expr, env, NIL)); } } - processElements(el); - sxHydrateElements(el); - sxHydrateIslands(el); - return domDispatch(el, "sx:resolved", {"id": id}); -})() : logWarn((String("resolveSuspense: no element for id=") + String(id)))); -})(); }; - - // sx-hydrate-elements - var sxHydrateElements = function(root) { return (function() { - var els = domQueryAll(sxOr(root, domBody()), "[data-sx]"); - return forEach(function(el) { return (isSxTruthy(!isSxTruthy(isProcessed(el, "hydrated"))) ? (markProcessed(el, "hydrated"), sxUpdateElement(el, NIL)) : NIL); }, els); -})(); }; - - // sx-update-element - var sxUpdateElement = function(el, newEnv) { return (function() { - var target = resolveMountTarget(el); - return (isSxTruthy(target) ? (function() { - var source = domGetAttr(target, "data-sx"); - return (isSxTruthy(source) ? (function() { - var baseEnv = parseEnvAttr(target); - var env = mergeEnvs(baseEnv, newEnv); - return (function() { - var node = sxRenderWithEnv(source, env); - domSetTextContent(target, ""); - domAppend(target, node); - return (isSxTruthy(newEnv) ? storeEnvAttr(target, baseEnv, newEnv) : NIL); -})(); -})() : NIL); -})() : NIL); -})(); }; - - // sx-render-component - var sxRenderComponent = function(name, kwargs, extraEnv) { return (function() { - var fullName = (isSxTruthy(startsWith(name, "~")) ? name : (String("~") + String(name))); - return (function() { - var env = getRenderEnv(extraEnv); - var comp = envGet(env, fullName); - return (isSxTruthy(!isSxTruthy(isComponent(comp))) ? error((String("Unknown component: ") + String(fullName))) : (function() { - var callExpr = [makeSymbol(fullName)]; - { var _c = keys(kwargs); for (var _i = 0; _i < _c.length; _i++) { var k = _c[_i]; callExpr.push(makeKeyword(toKebab(k))); -callExpr.push(dictGet(kwargs, k)); } } - return renderToDom(callExpr, env, NIL); -})()); -})(); -})(); }; - - // process-sx-scripts - var processSxScripts = function(root) { return (function() { - var scripts = querySxScripts(root); - return forEach(function(s) { return (isSxTruthy(!isSxTruthy(isProcessed(s, "script"))) ? (markProcessed(s, "script"), (function() { - var text = domTextContent(s); - return (isSxTruthy(domHasAttr(s, "data-components")) ? processComponentScript(s, text) : (isSxTruthy(sxOr(isNil(text), isEmpty(trim(text)))) ? NIL : (isSxTruthy(domHasAttr(s, "data-mount")) ? (function() { - var mountSel = domGetAttr(s, "data-mount"); - var target = domQuery(mountSel); - return (isSxTruthy(target) ? sxMount(target, text, NIL) : NIL); -})() : sxLoadComponents(text)))); -})()) : NIL); }, scripts); -})(); }; - - // process-component-script - var processComponentScript = function(script, text) { return (function() { - var hash = domGetAttr(script, "data-hash"); - return (isSxTruthy(isNil(hash)) ? (isSxTruthy((isSxTruthy(text) && !isSxTruthy(isEmpty(trim(text))))) ? sxLoadComponents(text) : NIL) : (function() { - var hasInline = (isSxTruthy(text) && !isSxTruthy(isEmpty(trim(text)))); - (function() { - var cachedHash = localStorageGet("sx-components-hash"); - return (isSxTruthy((cachedHash == hash)) ? (isSxTruthy(hasInline) ? (localStorageSet("sx-components-hash", hash), localStorageSet("sx-components-src", text), sxLoadComponents(text), logInfo("components: downloaded (cookie stale)")) : (function() { - var cached = localStorageGet("sx-components-src"); - return (isSxTruthy(cached) ? (sxLoadComponents(cached), logInfo((String("components: cached (") + String(hash) + String(")")))) : (clearSxCompCookie(), browserReload())); -})()) : (isSxTruthy(hasInline) ? (localStorageSet("sx-components-hash", hash), localStorageSet("sx-components-src", text), sxLoadComponents(text), logInfo((String("components: downloaded (") + String(hash) + String(")")))) : (localStorageRemove("sx-components-hash"), localStorageRemove("sx-components-src"), clearSxCompCookie(), browserReload()))); -})(); - return setSxCompCookie(hash); -})()); -})(); }; - - // _page-routes - var _pageRoutes = []; - - // process-page-scripts - var processPageScripts = function() { return (function() { - var scripts = queryPageScripts(); - logInfo((String("pages: found ") + String(len(scripts)) + String(" script tags"))); - { var _c = scripts; for (var _i = 0; _i < _c.length; _i++) { var s = _c[_i]; if (isSxTruthy(!isSxTruthy(isProcessed(s, "pages")))) { - markProcessed(s, "pages"); - (function() { - var text = domTextContent(s); - logInfo((String("pages: script text length=") + String((isSxTruthy(text) ? len(text) : 0)))); - return (isSxTruthy((isSxTruthy(text) && !isSxTruthy(isEmpty(trim(text))))) ? (function() { - var pages = parse(text); - logInfo((String("pages: parsed ") + String(len(pages)) + String(" entries"))); - return forEach(function(page) { return append_b(_pageRoutes, merge(page, {"parsed": parseRoutePattern(get(page, "path"))})); }, pages); -})() : logWarn("pages: script tag is empty")); -})(); -} } } - return logInfo((String("pages: ") + String(len(_pageRoutes)) + String(" routes loaded"))); -})(); }; - - // sx-hydrate-islands - var sxHydrateIslands = function(root) { return (function() { - var els = domQueryAll(sxOr(root, domBody()), "[data-sx-island]"); - return forEach(function(el) { return (isSxTruthy(!isSxTruthy(isProcessed(el, "island-hydrated"))) ? (markProcessed(el, "island-hydrated"), hydrateIsland(el)) : NIL); }, els); -})(); }; - - // hydrate-island - var hydrateIsland = function(el) { return (function() { - var name = domGetAttr(el, "data-sx-island"); - var stateJson = sxOr(domGetAttr(el, "data-sx-state"), "{}"); - return (function() { - var compName = (String("~") + String(name)); - var env = getRenderEnv(NIL); - return (function() { - var comp = envGet(env, compName); - return (isSxTruthy(!isSxTruthy(sxOr(isComponent(comp), isIsland(comp)))) ? logWarn((String("hydrate-island: unknown island ") + String(compName))) : (function() { - var kwargs = jsonParse(stateJson); - var disposers = []; - var local = envMerge(componentClosure(comp), env); - { var _c = componentParams(comp); for (var _i = 0; _i < _c.length; _i++) { var p = _c[_i]; local[p] = (isSxTruthy(dictHas(kwargs, p)) ? dictGet(kwargs, p) : NIL); } } - return (function() { - var bodyDom = withIslandScope(function(disposable) { return append_b(disposers, disposable); }, function() { return renderToDom(componentBody(comp), local, NIL); }); - domSetTextContent(el, ""); - domAppend(el, bodyDom); - domSetData(el, "sx-disposers", disposers); - processElements(el); - return logInfo((String("hydrated island: ") + String(compName) + String(" (") + String(len(disposers)) + String(" disposers)"))); -})(); -})()); -})(); -})(); -})(); }; - - // dispose-island - var disposeIsland = function(el) { return (function() { - var disposers = domGetData(el, "sx-disposers"); - return (isSxTruthy(disposers) ? (forEach(function(d) { return (isSxTruthy(isCallable(d)) ? d() : NIL); }, disposers), domSetData(el, "sx-disposers", NIL)) : NIL); -})(); }; - - // dispose-islands-in - var disposeIslandsIn = function(root) { return (isSxTruthy(root) ? (function() { - var islands = domQueryAll(root, "[data-sx-island]"); - return (isSxTruthy((isSxTruthy(islands) && !isSxTruthy(isEmpty(islands)))) ? (logInfo((String("disposing ") + String(len(islands)) + String(" island(s)"))), forEach(disposeIsland, islands)) : NIL); -})() : NIL); }; - - // boot-init - var bootInit = function() { return (logInfo((String("sx-browser ") + String(SX_VERSION))), initCssTracking(), processPageScripts(), processSxScripts(NIL), sxHydrateElements(NIL), sxHydrateIslands(NIL), processElements(NIL)); }; - - - // === Transpiled from router (client-side route matching) === - - // split-path-segments - var splitPathSegments = function(path) { return (function() { - var trimmed = (isSxTruthy(startsWith(path, "/")) ? slice(path, 1) : path); - return (function() { - var trimmed2 = (isSxTruthy((isSxTruthy(!isSxTruthy(isEmpty(trimmed))) && endsWith(trimmed, "/"))) ? slice(trimmed, 0, (len(trimmed) - 1)) : trimmed); - return (isSxTruthy(isEmpty(trimmed2)) ? [] : split(trimmed2, "/")); -})(); -})(); }; - - // make-route-segment - var makeRouteSegment = function(seg) { return (isSxTruthy((isSxTruthy(startsWith(seg, "<")) && endsWith(seg, ">"))) ? (function() { - var paramName = slice(seg, 1, (len(seg) - 1)); - return (function() { - var d = {}; - d["type"] = "param"; - d["value"] = paramName; - return d; -})(); -})() : (function() { - var d = {}; - d["type"] = "literal"; - d["value"] = seg; - return d; -})()); }; - - // parse-route-pattern - var parseRoutePattern = function(pattern) { return (function() { - var segments = splitPathSegments(pattern); - return map(makeRouteSegment, segments); -})(); }; - - // match-route-segments - var matchRouteSegments = function(pathSegs, parsedSegs) { return (isSxTruthy(!isSxTruthy((len(pathSegs) == len(parsedSegs)))) ? NIL : (function() { - var params = {}; - var matched = true; - forEachIndexed(function(i, parsedSeg) { return (isSxTruthy(matched) ? (function() { - var pathSeg = nth(pathSegs, i); - var segType = get(parsedSeg, "type"); - return (isSxTruthy((segType == "literal")) ? (isSxTruthy(!isSxTruthy((pathSeg == get(parsedSeg, "value")))) ? (matched = false) : NIL) : (isSxTruthy((segType == "param")) ? dictSet(params, get(parsedSeg, "value"), pathSeg) : (matched = false))); -})() : NIL); }, parsedSegs); - return (isSxTruthy(matched) ? params : NIL); -})()); }; - - // match-route - var matchRoute = function(path, pattern) { return (function() { - var pathSegs = splitPathSegments(path); - var parsedSegs = parseRoutePattern(pattern); - return matchRouteSegments(pathSegs, parsedSegs); -})(); }; - - // find-matching-route - var findMatchingRoute = function(path, routes) { return (function() { - var pathSegs = splitPathSegments(path); - var result = NIL; - { var _c = routes; for (var _i = 0; _i < _c.length; _i++) { var route = _c[_i]; if (isSxTruthy(isNil(result))) { - (function() { - var params = matchRouteSegments(pathSegs, get(route, "parsed")); - return (isSxTruthy(!isSxTruthy(isNil(params))) ? (function() { - var matched = merge(route, {}); - matched["params"] = params; - return (result = matched); -})() : NIL); -})(); -} } } - return result; -})(); }; - - - // === Transpiled from signals (reactive signal runtime) === - - // signal - var signal = function(initialValue) { return makeSignal(initialValue); }; - - // deref - var deref = function(s) { return (isSxTruthy(!isSxTruthy(isSignal(s))) ? s : (function() { - var ctx = getTrackingContext(); - if (isSxTruthy(ctx)) { - trackingContextAddDep(ctx, s); - signalAddSub(s, trackingContextNotifyFn(ctx)); -} - return signalValue(s); -})()); }; - - // reset! - var reset_b = function(s, value) { return (isSxTruthy(isSignal(s)) ? (function() { - var old = signalValue(s); - return (isSxTruthy(!isSxTruthy(isIdentical(old, value))) ? (signalSetValue(s, value), notifySubscribers(s)) : NIL); -})() : NIL); }; - - // swap! - var swap_b = function(s, f) { var args = Array.prototype.slice.call(arguments, 2); return (isSxTruthy(isSignal(s)) ? (function() { - var old = signalValue(s); - var newVal = apply(f, cons(old, args)); - return (isSxTruthy(!isSxTruthy(isIdentical(old, newVal))) ? (signalSetValue(s, newVal), notifySubscribers(s)) : NIL); -})() : NIL); }; - - // computed - var computed = function(computeFn) { return (function() { - var s = makeSignal(NIL); - var deps = []; - var computeCtx = NIL; - return (function() { - var recompute = function() { { var _c = signalDeps(s); for (var _i = 0; _i < _c.length; _i++) { var dep = _c[_i]; signalRemoveSub(dep, recompute); } } -signalSetDeps(s, []); -return (function() { - var ctx = makeTrackingContext(recompute); - return (function() { - var prev = getTrackingContext(); - setTrackingContext(ctx); - return (function() { - var newVal = invoke(computeFn); - setTrackingContext(prev); - signalSetDeps(s, trackingContextDeps(ctx)); - return (function() { - var old = signalValue(s); - signalSetValue(s, newVal); - return (isSxTruthy(!isSxTruthy(isIdentical(old, newVal))) ? notifySubscribers(s) : NIL); -})(); -})(); -})(); -})(); }; - recompute(); - registerInScope(function() { return disposeComputed(s); }); - return s; -})(); -})(); }; - - // effect - var effect = function(effectFn) { return (function() { - var deps = []; - var disposed = false; - var cleanupFn = NIL; - return (function() { - var runEffect = function() { return (isSxTruthy(!isSxTruthy(disposed)) ? ((isSxTruthy(cleanupFn) ? invoke(cleanupFn) : NIL), forEach(function(dep) { return signalRemoveSub(dep, runEffect); }, deps), (deps = []), (function() { - var ctx = makeTrackingContext(runEffect); - return (function() { - var prev = getTrackingContext(); - setTrackingContext(ctx); - return (function() { - var result = invoke(effectFn); - setTrackingContext(prev); - deps = trackingContextDeps(ctx); - return (isSxTruthy(isCallable(result)) ? (cleanupFn = result) : NIL); -})(); -})(); -})()) : NIL); }; - runEffect(); - return (function() { - var disposeFn = function() { disposed = true; -if (isSxTruthy(cleanupFn)) { - invoke(cleanupFn); -} -{ var _c = deps; for (var _i = 0; _i < _c.length; _i++) { var dep = _c[_i]; signalRemoveSub(dep, runEffect); } } -return (deps = []); }; - registerInScope(disposeFn); - return disposeFn; -})(); -})(); -})(); }; - - // *batch-depth* - var _batchDepth = NIL; - - // *batch-queue* - var _batchQueue = []; - - // batch - var batch = function(thunk) { _batchDepth = (_batchDepth + 1); -invoke(thunk); -_batchDepth = (_batchDepth - 1); -return (isSxTruthy((_batchDepth == 0)) ? (function() { - var queue = _batchQueue; - _batchQueue = []; - return (function() { - var seen = []; - var pending = []; - { var _c = queue; for (var _i = 0; _i < _c.length; _i++) { var s = _c[_i]; { var _c = signalSubscribers(s); for (var _i = 0; _i < _c.length; _i++) { var sub = _c[_i]; if (isSxTruthy(!isSxTruthy(contains(seen, sub)))) { - seen.push(sub); - pending.push(sub); -} } } } } - return forEach(function(sub) { return sub(); }, pending); -})(); -})() : NIL); }; - - // notify-subscribers - var notifySubscribers = function(s) { return (isSxTruthy((_batchDepth > 0)) ? (isSxTruthy(!isSxTruthy(contains(_batchQueue, s))) ? append_b(_batchQueue, s) : NIL) : flushSubscribers(s)); }; - - // flush-subscribers - var flushSubscribers = function(s) { return forEach(function(sub) { return sub(); }, signalSubscribers(s)); }; - - // dispose-computed - var disposeComputed = function(s) { return (isSxTruthy(isSignal(s)) ? (forEach(function(dep) { return signalRemoveSub(dep, NIL); }, signalDeps(s)), signalSetDeps(s, [])) : NIL); }; - - // *island-scope* - var _islandScope = NIL; - - // with-island-scope - var withIslandScope = function(scopeFn, bodyFn) { return (function() { - var prev = _islandScope; - _islandScope = scopeFn; - return (function() { - var result = bodyFn(); - _islandScope = prev; - return result; -})(); -})(); }; - - // register-in-scope - var registerInScope = function(disposable) { return (isSxTruthy(_islandScope) ? _islandScope(disposable) : NIL); }; - - // *store-registry* - var _storeRegistry = {}; - - // def-store - var defStore = function(name, initFn) { return (function() { - var registry = _storeRegistry; - if (isSxTruthy(!isSxTruthy(hasKey_p(registry, name)))) { - _storeRegistry = assoc(registry, name, invoke(initFn)); -} - return get(_storeRegistry, name); -})(); }; - - // use-store - var useStore = function(name) { return (isSxTruthy(hasKey_p(_storeRegistry, name)) ? get(_storeRegistry, name) : error((String("Store not found: ") + String(name) + String(". Call (def-store ...) before (use-store ...).")))); }; - - // clear-stores - var clearStores = function() { return (_storeRegistry = {}); }; - - // emit-event - var emitEvent = function(el, eventName, detail) { return domDispatch(el, eventName, detail); }; - - // on-event - var onEvent = function(el, eventName, handler) { return domListen(el, eventName, handler); }; - - // bridge-event - var bridgeEvent = function(el, eventName, targetSignal, transformFn) { return effect(function() { return (function() { - var remove = domListen(el, eventName, function(e) { return (function() { - var detail = eventDetail(e); - var newVal = (isSxTruthy(transformFn) ? invoke(transformFn, detail) : detail); - return reset_b(targetSignal, newVal); -})(); }); - return remove; -})(); }); }; - - // resource - var resource = function(fetchFn) { return (function() { - var state = signal({["loading"]: true, ["data"]: NIL, ["error"]: NIL}); - promiseThen(invoke(fetchFn), function(data) { return reset_b(state, {["loading"]: false, ["data"]: data, ["error"]: NIL}); }, function(err) { return reset_b(state, {["loading"]: false, ["data"]: NIL, ["error"]: err}); }); - return state; -})(); }; - - - // ========================================================================= - // Platform interface — DOM adapter (browser-only) - // ========================================================================= - - var _hasDom = typeof document !== "undefined"; - - // Register DOM adapter as the render dispatch target for the evaluator. - _renderExprFn = function(expr, env) { return renderToDom(expr, env, null); }; - - var SVG_NS = "http://www.w3.org/2000/svg"; - var MATH_NS = "http://www.w3.org/1998/Math/MathML"; - - function domCreateElement(tag, ns) { - if (!_hasDom) return null; - if (ns && ns !== NIL) return document.createElementNS(ns, tag); - return document.createElement(tag); - } - - function createTextNode(s) { - return _hasDom ? document.createTextNode(s) : null; - } - - function createComment(s) { - return _hasDom ? document.createComment(s || "") : null; - } - - function createFragment() { - return _hasDom ? document.createDocumentFragment() : null; - } - - function domAppend(parent, child) { - if (parent && child) parent.appendChild(child); - } - - function domPrepend(parent, child) { - if (parent && child) parent.insertBefore(child, parent.firstChild); - } - - function domSetAttr(el, name, val) { - if (el && el.setAttribute) el.setAttribute(name, val); - } - - function domGetAttr(el, name) { - if (!el || !el.getAttribute) return NIL; - var v = el.getAttribute(name); - return v === null ? NIL : v; - } - - function domRemoveAttr(el, name) { - if (el && el.removeAttribute) el.removeAttribute(name); - } - - function domHasAttr(el, name) { - return !!(el && el.hasAttribute && el.hasAttribute(name)); - } - - function domParseHtml(html) { - if (!_hasDom) return null; - var tpl = document.createElement("template"); - tpl.innerHTML = html; - return tpl.content; - } - - function domClone(node) { - return node && node.cloneNode ? node.cloneNode(true) : node; - } - - function domParent(el) { return el ? el.parentNode : null; } - function domId(el) { return el && el.id ? el.id : NIL; } - function domNodeType(el) { return el ? el.nodeType : 0; } - function domNodeName(el) { return el ? el.nodeName : ""; } - function domTextContent(el) { return el ? el.textContent || el.nodeValue || "" : ""; } - function domSetTextContent(el, s) { if (el) { if (el.nodeType === 3 || el.nodeType === 8) el.nodeValue = s; else el.textContent = s; } } - function domIsFragment(el) { return el ? el.nodeType === 11 : false; } - function domIsChildOf(child, parent) { return !!(parent && child && child.parentNode === parent); } - function domIsActiveElement(el) { return _hasDom && el === document.activeElement; } - function domIsInputElement(el) { - if (!el || !el.tagName) return false; - var t = el.tagName; - return t === "INPUT" || t === "TEXTAREA" || t === "SELECT"; - } - function domFirstChild(el) { return el ? el.firstChild : null; } - function domNextSibling(el) { return el ? el.nextSibling : null; } - - function domChildList(el) { - if (!el || !el.childNodes) return []; - return Array.prototype.slice.call(el.childNodes); - } - - function domAttrList(el) { - if (!el || !el.attributes) return []; - var r = []; - for (var i = 0; i < el.attributes.length; i++) { - r.push([el.attributes[i].name, el.attributes[i].value]); - } - return r; - } - - function domInsertBefore(parent, node, ref) { - if (parent && node) parent.insertBefore(node, ref || null); - } - - function domInsertAfter(ref, node) { - if (ref && ref.parentNode && node) { - ref.parentNode.insertBefore(node, ref.nextSibling); - } - } - - function domRemoveChild(parent, child) { - if (parent && child && child.parentNode === parent) parent.removeChild(child); - } - - function domReplaceChild(parent, newChild, oldChild) { - if (parent && newChild && oldChild) parent.replaceChild(newChild, oldChild); - } - - function domSetInnerHtml(el, html) { - if (el) el.innerHTML = html; - } - - function domInsertAdjacentHtml(el, pos, html) { - if (el && el.insertAdjacentHTML) el.insertAdjacentHTML(pos, html); - } - - function domGetStyle(el, prop) { - return el && el.style ? el.style[prop] || "" : ""; - } - - function domSetStyle(el, prop, val) { - if (el && el.style) el.style[prop] = val; - } - - function domGetProp(el, name) { return el ? el[name] : NIL; } - function domSetProp(el, name, val) { if (el) el[name] = val; } - - function domAddClass(el, cls) { - if (el && el.classList) el.classList.add(cls); - } - - function domRemoveClass(el, cls) { - if (el && el.classList) el.classList.remove(cls); - } - - function domDispatch(el, name, detail) { - if (!_hasDom || !el) return false; - var evt = new CustomEvent(name, { bubbles: true, cancelable: true, detail: detail || {} }); - return el.dispatchEvent(evt); - } - - function domListen(el, name, handler) { - if (!_hasDom || !el) return function() {}; - // Wrap SX lambdas from runtime-evaluated island code into native fns - var wrapped = isLambda(handler) - ? function(e) { invoke(handler, e); } - : handler; - el.addEventListener(name, wrapped); - return function() { el.removeEventListener(name, wrapped); }; - } - - function eventDetail(e) { - return (e && e.detail != null) ? e.detail : nil; - } - - function domQuery(sel) { - return _hasDom ? document.querySelector(sel) : null; - } - - function domQueryAll(root, sel) { - if (!root || !root.querySelectorAll) return []; - return Array.prototype.slice.call(root.querySelectorAll(sel)); - } - - function domTagName(el) { return el && el.tagName ? el.tagName : ""; } - - // Island DOM helpers - function domRemove(node) { - if (node && node.parentNode) node.parentNode.removeChild(node); - } - function domChildNodes(el) { - if (!el || !el.childNodes) return []; - return Array.prototype.slice.call(el.childNodes); - } - function domRemoveChildrenAfter(marker) { - if (!marker || !marker.parentNode) return; - var parent = marker.parentNode; - while (marker.nextSibling) parent.removeChild(marker.nextSibling); - } - function domSetData(el, key, val) { - if (el) { if (!el._sxData) el._sxData = {}; el._sxData[key] = val; } - } - function domGetData(el, key) { - return (el && el._sxData) ? (el._sxData[key] != null ? el._sxData[key] : nil) : nil; - } - function jsonParse(s) { - try { return JSON.parse(s); } catch(e) { return {}; } - } - - // renderDomComponent and renderDomElement are transpiled from - // adapter-dom.sx — no imperative overrides needed. - - - // ========================================================================= - // Platform interface — Engine pure logic (browser + node compatible) - // ========================================================================= - - function browserLocationHref() { - return typeof location !== "undefined" ? location.href : ""; - } - - function browserSameOrigin(url) { - try { return new URL(url, location.href).origin === location.origin; } - catch (e) { return true; } - } - - function browserPushState(url) { - if (typeof history !== "undefined") { - try { history.pushState({ sxUrl: url, scrollY: typeof window !== "undefined" ? window.scrollY : 0 }, "", url); } - catch (e) {} - } - } - - function browserReplaceState(url) { - if (typeof history !== "undefined") { - try { history.replaceState({ sxUrl: url, scrollY: typeof window !== "undefined" ? window.scrollY : 0 }, "", url); } - catch (e) {} - } - } - - function nowMs() { return Date.now(); } - - function parseHeaderValue(s) { - if (!s) return null; - try { - if (s.charAt(0) === "{" && s.charAt(1) === ":") return parse(s); - return JSON.parse(s); - } catch (e) { return null; } - } - - - // ========================================================================= - // Platform interface — Orchestration (browser-only) - // ========================================================================= - - // --- Browser/Network --- - - function browserNavigate(url) { - if (typeof location !== "undefined") location.assign(url); - } - - function browserReload() { - if (typeof location !== "undefined") location.reload(); - } - - function browserScrollTo(x, y) { - if (typeof window !== "undefined") window.scrollTo(x, y); - } - - function browserMediaMatches(query) { - if (typeof window === "undefined") return false; - return window.matchMedia(query).matches; - } - - function browserConfirm(msg) { - if (typeof window === "undefined") return false; - return window.confirm(msg); - } - - function browserPrompt(msg) { - if (typeof window === "undefined") return NIL; - var r = window.prompt(msg); - return r === null ? NIL : r; - } - - function csrfToken() { - if (!_hasDom) return NIL; - var m = document.querySelector('meta[name="csrf-token"]'); - return m ? m.getAttribute("content") : NIL; - } - - function isCrossOrigin(url) { - try { - var h = new URL(url, location.href).hostname; - return h !== location.hostname && - (h.indexOf(".rose-ash.com") >= 0 || h.indexOf(".localhost") >= 0); - } catch (e) { return false; } - } - - // --- Promises --- - - function promiseResolve(val) { return Promise.resolve(val); } - - function promiseThen(p, onResolve, onReject) { - if (!p || !p.then) return p; - return onReject ? p.then(onResolve, onReject) : p.then(onResolve); - } - - function promiseCatch(p, fn) { return p && p.catch ? p.catch(fn) : p; } - - // --- Abort controllers --- - - var _controllers = typeof WeakMap !== "undefined" ? new WeakMap() : null; - - function abortPrevious(el) { - if (_controllers) { - var prev = _controllers.get(el); - if (prev) prev.abort(); - } - } - - function trackController(el, ctrl) { - if (_controllers) _controllers.set(el, ctrl); - } - - function newAbortController() { - return typeof AbortController !== "undefined" ? new AbortController() : { signal: null, abort: function() {} }; - } - - function controllerSignal(ctrl) { return ctrl ? ctrl.signal : null; } - - function isAbortError(err) { return err && err.name === "AbortError"; } - - // --- Timers --- - - function _wrapSxFn(fn) { - if (fn && fn._lambda) { - return function() { return trampoline(callLambda(fn, [], lambdaClosure(fn))); }; - } - return fn; - } - function setTimeout_(fn, ms) { return setTimeout(_wrapSxFn(fn), ms || 0); } - function setInterval_(fn, ms) { return setInterval(_wrapSxFn(fn), ms || 1000); } - function clearTimeout_(id) { clearTimeout(id); } - function clearInterval_(id) { clearInterval(id); } - function requestAnimationFrame_(fn) { - if (typeof requestAnimationFrame !== "undefined") requestAnimationFrame(fn); - else setTimeout(fn, 16); - } - - // --- Fetch --- - - function fetchRequest(config, successFn, errorFn) { - var opts = { method: config.method, headers: config.headers }; - if (config.signal) opts.signal = config.signal; - if (config.body && config.method !== "GET") opts.body = config.body; - if (config["cross-origin"]) opts.credentials = "include"; - - var p = (config.preloaded && config.preloaded !== NIL) - ? Promise.resolve({ - ok: true, status: 200, - headers: new Headers({ "Content-Type": config.preloaded["content-type"] || "" }), - text: function() { return Promise.resolve(config.preloaded.text); } - }) - : fetch(config.url, opts); - - return p.then(function(resp) { - return resp.text().then(function(text) { - var getHeader = function(name) { - var v = resp.headers.get(name); - return v === null ? NIL : v; - }; - return successFn(resp.ok, resp.status, getHeader, text); - }); - }).catch(function(err) { - return errorFn(err); - }); - } - - function fetchLocation(headerVal) { - if (!_hasDom) return; - var locUrl = headerVal; - try { var obj = JSON.parse(headerVal); locUrl = obj.path || obj; } catch (e) {} - fetch(locUrl, { headers: { "SX-Request": "true" } }).then(function(r) { - return r.text().then(function(t) { - var main = document.getElementById("main-panel"); - if (main) { - main.innerHTML = t; - postSwap(main); - try { history.pushState({ sxUrl: locUrl }, "", locUrl); } catch (e) {} - } - }); - }); - } - - function fetchAndRestore(main, url, headers, scrollY) { - var opts = { headers: headers }; - try { - var h = new URL(url, location.href).hostname; - if (h !== location.hostname && - (h.indexOf(".rose-ash.com") >= 0 || h.indexOf(".localhost") >= 0)) { - opts.credentials = "include"; - } - } catch (e) {} - - fetch(url, opts).then(function(resp) { - return resp.text().then(function(text) { - text = stripComponentScripts(text); - text = extractResponseCss(text); - text = text.trim(); - if (text.charAt(0) === "(") { - try { - var dom = sxRender(text); - var container = document.createElement("div"); - container.appendChild(dom); - processOobSwaps(container, function(t, oob, s) { - swapDomNodes(t, oob, s); - sxHydrate(t); - processElements(t); - }); - var newMain = container.querySelector("#main-panel"); - morphChildren(main, newMain || container); - postSwap(main); - if (typeof window !== "undefined") window.scrollTo(0, scrollY || 0); - } catch (err) { - console.error("sx-ref popstate error:", err); - location.reload(); - } - } else { - var parser = new DOMParser(); - var doc = parser.parseFromString(text, "text/html"); - var newMain = doc.getElementById("main-panel"); - if (newMain) { - morphChildren(main, newMain); - postSwap(main); - if (typeof window !== "undefined") window.scrollTo(0, scrollY || 0); - } else { - location.reload(); - } - } - }); - }).catch(function() { location.reload(); }); - } - - function fetchStreaming(target, url, headers) { - // Streaming fetch for multi-stream pages. - // First chunk = OOB SX swap (shell with skeletons). - // Subsequent chunks = __sxResolve script tags filling suspense slots. - var opts = { headers: headers }; - try { - var h = new URL(url, location.href).hostname; - if (h !== location.hostname && - (h.indexOf(".rose-ash.com") >= 0 || h.indexOf(".localhost") >= 0)) { - opts.credentials = "include"; - } - } catch (e) {} - - fetch(url, opts).then(function(resp) { - if (!resp.ok || !resp.body) { - // Fallback: non-streaming - return resp.text().then(function(text) { - text = stripComponentScripts(text); - text = extractResponseCss(text); - text = text.trim(); - if (text.charAt(0) === "(") { - var dom = sxRender(text); - var container = document.createElement("div"); - container.appendChild(dom); - processOobSwaps(container, function(t, oob, s) { - swapDomNodes(t, oob, s); - sxHydrate(t); - processElements(t); - }); - var newMain = container.querySelector("#main-panel"); - morphChildren(target, newMain || container); - postSwap(target); - } - }); - } - - var reader = resp.body.getReader(); - var decoder = new TextDecoder(); - var buffer = ""; - var initialSwapDone = false; - // Regex to match __sxResolve script tags - var RESOLVE_START = ""; - - function processResolveScripts() { - // Strip and load any extra component defs before resolve scripts - buffer = stripSxScripts(buffer); - var idx; - while ((idx = buffer.indexOf(RESOLVE_START)) >= 0) { - var endIdx = buffer.indexOf(RESOLVE_END, idx); - if (endIdx < 0) break; // incomplete, wait for more data - var argsStr = buffer.substring(idx + RESOLVE_START.length, endIdx); - buffer = buffer.substring(endIdx + RESOLVE_END.length); - // argsStr is: "stream-id","sx source" - var commaIdx = argsStr.indexOf(","); - if (commaIdx >= 0) { - try { - var id = JSON.parse(argsStr.substring(0, commaIdx)); - var sx = JSON.parse(argsStr.substring(commaIdx + 1)); - if (typeof Sx !== "undefined" && Sx.resolveSuspense) { - Sx.resolveSuspense(id, sx); - } - } catch (e) { - console.error("[sx-ref] resolve parse error:", e); - } - } - } - } - - function pump() { - return reader.read().then(function(result) { - buffer += decoder.decode(result.value || new Uint8Array(), { stream: !result.done }); - - if (!initialSwapDone) { - // Look for the first resolve script — everything before it is OOB content - var scriptIdx = buffer.indexOf(" (without data-components). - // These contain extra component defs from streaming resolve chunks. - var SxObj = typeof Sx !== "undefined" ? Sx : null; - return text.replace(/]*type="text\/sx"[^>]*>([\s\S]*?)<\/script>/gi, - function(_, defs) { if (SxObj && SxObj.loadComponents) SxObj.loadComponents(defs); return ""; }); - } - - function extractResponseCss(text) { - if (!_hasDom) return text; - var target = document.getElementById("sx-css"); - if (!target) return text; - return text.replace(/]*data-sx-css[^>]*>([\s\S]*?)<\/style>/gi, - function(_, css) { target.textContent += css; return ""; }); - } - - function selectFromContainer(container, sel) { - var frag = document.createDocumentFragment(); - sel.split(",").forEach(function(s) { - container.querySelectorAll(s.trim()).forEach(function(m) { frag.appendChild(m); }); - }); - return frag; - } - - function childrenToFragment(container) { - var frag = document.createDocumentFragment(); - while (container.firstChild) frag.appendChild(container.firstChild); - return frag; - } - - function selectHtmlFromDoc(doc, sel) { - var parts = sel.split(",").map(function(s) { return s.trim(); }); - var frags = []; - parts.forEach(function(s) { - doc.querySelectorAll(s).forEach(function(m) { frags.push(m.outerHTML); }); - }); - return frags.join(""); - } - - // --- Parsing --- - - function tryParseJson(s) { - if (!s) return NIL; - try { return JSON.parse(s); } catch (e) { return NIL; } - } - - - // ========================================================================= - // Platform interface — Boot (mount, hydrate, scripts, cookies) - // ========================================================================= - - function resolveMountTarget(target) { - if (typeof target === "string") return _hasDom ? document.querySelector(target) : null; - return target; - } - - function sxRenderWithEnv(source, extraEnv) { - var env = extraEnv ? merge(componentEnv, extraEnv) : componentEnv; - var exprs = parse(source); - if (!_hasDom) return null; - var frag = document.createDocumentFragment(); - for (var i = 0; i < exprs.length; i++) { - var node = renderToDom(exprs[i], env, null); - if (node) frag.appendChild(node); - } - return frag; - } - - function getRenderEnv(extraEnv) { - return extraEnv ? merge(componentEnv, extraEnv) : componentEnv; - } - - function mergeEnvs(base, newEnv) { - return newEnv ? merge(componentEnv, base, newEnv) : merge(componentEnv, base); - } - - function sxLoadComponents(text) { - try { - var exprs = parse(text); - for (var i = 0; i < exprs.length; i++) trampoline(evalExpr(exprs[i], componentEnv)); - } catch (err) { - logParseError("loadComponents", text, err); - throw err; - } - } - - function setDocumentTitle(s) { - if (_hasDom) document.title = s || ""; - } - - function removeHeadElement(sel) { - if (!_hasDom) return; - var old = document.head.querySelector(sel); - if (old) old.parentNode.removeChild(old); - } - - function querySxScripts(root) { - if (!_hasDom) return []; - var r = (root && root !== NIL) ? root : document; - return Array.prototype.slice.call( - r.querySelectorAll('script[type="text/sx"]')); - } - - function queryPageScripts() { - if (!_hasDom) return []; - return Array.prototype.slice.call( - document.querySelectorAll('script[type="text/sx-pages"]')); - } - - // --- localStorage --- - - function localStorageGet(key) { - try { var v = localStorage.getItem(key); return v === null ? NIL : v; } - catch (e) { return NIL; } - } - - function localStorageSet(key, val) { - try { localStorage.setItem(key, val); } catch (e) {} - } - - function localStorageRemove(key) { - try { localStorage.removeItem(key); } catch (e) {} - } - - // --- Cookies --- - - function setSxCompCookie(hash) { - if (_hasDom) document.cookie = "sx-comp-hash=" + hash + ";path=/;max-age=31536000;SameSite=Lax"; - } - - function clearSxCompCookie() { - if (_hasDom) document.cookie = "sx-comp-hash=;path=/;max-age=0;SameSite=Lax"; - } - - // --- Env helpers --- - - function parseEnvAttr(el) { - var attr = el && el.getAttribute ? el.getAttribute("data-sx-env") : null; - if (!attr) return {}; - try { return JSON.parse(attr); } catch (e) { return {}; } - } - - function storeEnvAttr(el, base, newEnv) { - var merged = merge(base, newEnv); - if (el && el.setAttribute) el.setAttribute("data-sx-env", JSON.stringify(merged)); - } - - function toKebab(s) { return s.replace(/_/g, "-"); } - - // --- Logging --- - - function logInfo(msg) { - if (typeof console !== "undefined") console.log("[sx-ref] " + msg); - } - - function logWarn(msg) { - if (typeof console !== "undefined") console.warn("[sx-ref] " + msg); - } - - function logParseError(label, text, err) { - if (typeof console === "undefined") return; - var msg = err && err.message ? err.message : String(err); - var colMatch = msg.match(/col (\d+)/); - var lineMatch = msg.match(/line (\d+)/); - if (colMatch && text) { - var errLine = lineMatch ? parseInt(lineMatch[1]) : 1; - var errCol = parseInt(colMatch[1]); - var lines = text.split("\n"); - var pos = 0; - for (var i = 0; i < errLine - 1 && i < lines.length; i++) pos += lines[i].length + 1; - pos += errCol; - var ws = 80; - var start = Math.max(0, pos - ws); - var end = Math.min(text.length, pos + ws); - console.error("[sx-ref] " + label + ":", msg, - "\n around error (pos ~" + pos + "):", - "\n \u00ab" + text.substring(start, pos) + "\u26d4" + text.substring(pos, end) + "\u00bb"); - } else { - console.error("[sx-ref] " + label + ":", msg); - } - } - + var _hasDom = false; // ========================================================================= @@ -4364,682 +1347,12 @@ return (isSxTruthy((_batchDepth == 0)) ? (function() { if (typeof renderToHtml === "function") PRIMITIVES["render-to-html"] = renderToHtml; if (typeof renderToSx === "function") PRIMITIVES["render-to-sx"] = renderToSx; if (typeof aser === "function") PRIMITIVES["aser"] = aser; - if (typeof renderToDom === "function") PRIMITIVES["render-to-dom"] = renderToDom; - // Expose signal functions as primitives so runtime-evaluated SX code - // (e.g. island bodies from .sx files) can call them - PRIMITIVES["signal"] = signal; - PRIMITIVES["signal?"] = isSignal; - PRIMITIVES["deref"] = deref; - PRIMITIVES["reset!"] = reset_b; - PRIMITIVES["swap!"] = swap_b; - PRIMITIVES["computed"] = computed; - PRIMITIVES["effect"] = effect; - PRIMITIVES["batch"] = batch; - // Timer primitives for island code - PRIMITIVES["set-interval"] = setInterval_; - PRIMITIVES["clear-interval"] = clearInterval_; - // Reactive DOM helpers for island code - PRIMITIVES["reactive-text"] = reactiveText; - PRIMITIVES["create-text-node"] = createTextNode; - PRIMITIVES["dom-set-text-content"] = domSetTextContent; - PRIMITIVES["dom-listen"] = domListen; - PRIMITIVES["dom-dispatch"] = domDispatch; - PRIMITIVES["event-detail"] = eventDetail; - PRIMITIVES["def-store"] = defStore; - PRIMITIVES["use-store"] = useStore; - PRIMITIVES["emit-event"] = emitEvent; - PRIMITIVES["on-event"] = onEvent; - PRIMITIVES["bridge-event"] = bridgeEvent; - - // ========================================================================= - // Async IO: Promise-aware rendering for client-side IO primitives - // ========================================================================= - // - // IO primitives (query, current-user, etc.) return Promises on the client. - // asyncRenderToDom walks the component tree; when it encounters an IO - // primitive, it awaits the Promise and continues rendering. - // - // The sync evaluator/renderer is untouched. This is a separate async path - // used only when a page's component tree contains IO references. - - var IO_PRIMITIVES = {}; - - function registerIoPrimitive(name, fn) { - IO_PRIMITIVES[name] = fn; + // Minimal fallback parser (no parser adapter) + function parse(text) { + throw new Error("Parser adapter not included — cannot parse SX source at runtime"); } - function isPromise(x) { - return x != null && typeof x === "object" && typeof x.then === "function"; - } - - // Async trampoline: resolves thunks, awaits Promises - function asyncTrampoline(val) { - if (isPromise(val)) return val.then(asyncTrampoline); - if (isThunk(val)) return asyncTrampoline(evalExpr(thunkExpr(val), thunkEnv(val))); - return val; - } - - // Async eval: like trampoline(evalExpr(...)) but handles IO primitives - function asyncEval(expr, env) { - // Intercept IO primitive calls at the AST level - if (Array.isArray(expr) && expr.length > 0) { - var head = expr[0]; - if (head && head._sym) { - var name = head.name; - if (IO_PRIMITIVES[name]) { - // Evaluate args, then call the IO primitive - return asyncEvalIoCall(name, expr.slice(1), env); - } - } - } - // Non-IO: use sync eval, but result might be a thunk - var result = evalExpr(expr, env); - return asyncTrampoline(result); - } - - function asyncEvalIoCall(name, rawArgs, env) { - // Parse keyword args and positional args, evaluating each (may be async) - var kwargs = {}; - var args = []; - var promises = []; - var i = 0; - while (i < rawArgs.length) { - var arg = rawArgs[i]; - if (arg && arg._kw && (i + 1) < rawArgs.length) { - var kName = arg.name; - var kVal = asyncEval(rawArgs[i + 1], env); - if (isPromise(kVal)) { - (function(k) { promises.push(kVal.then(function(v) { kwargs[k] = v; })); })(kName); - } else { - kwargs[kName] = kVal; - } - i += 2; - } else { - var aVal = asyncEval(arg, env); - if (isPromise(aVal)) { - (function(idx) { promises.push(aVal.then(function(v) { args[idx] = v; })); })(args.length); - args.push(null); // placeholder - } else { - args.push(aVal); - } - i++; - } - } - var ioFn = IO_PRIMITIVES[name]; - if (promises.length > 0) { - return Promise.all(promises).then(function() { return ioFn(args, kwargs); }); - } - return ioFn(args, kwargs); - } - - // Async render-to-dom: returns Promise or Node - function asyncRenderToDom(expr, env, ns) { - // Literals - if (expr === NIL || expr === null || expr === undefined) return null; - if (expr === true || expr === false) return null; - if (typeof expr === "string") return document.createTextNode(expr); - if (typeof expr === "number") return document.createTextNode(String(expr)); - - // Symbol -> async eval then render - if (expr && expr._sym) { - var val = asyncEval(expr, env); - if (isPromise(val)) return val.then(function(v) { return asyncRenderToDom(v, env, ns); }); - return asyncRenderToDom(val, env, ns); - } - - // Keyword - if (expr && expr._kw) return document.createTextNode(expr.name); - - // DocumentFragment / DOM nodes pass through - if (expr instanceof DocumentFragment || (expr && expr.nodeType)) return expr; - - // Dict -> skip - if (expr && typeof expr === "object" && !Array.isArray(expr)) return null; - - // List - if (!Array.isArray(expr) || expr.length === 0) return null; - - var head = expr[0]; - if (!head) return null; - - // Symbol head - if (head._sym) { - var hname = head.name; - - // IO primitive - if (IO_PRIMITIVES[hname]) { - var ioResult = asyncEval(expr, env); - if (isPromise(ioResult)) return ioResult.then(function(v) { return asyncRenderToDom(v, env, ns); }); - return asyncRenderToDom(ioResult, env, ns); - } - - // Fragment - if (hname === "<>") return asyncRenderChildren(expr.slice(1), env, ns); - - // raw! - if (hname === "raw!") { - return asyncEvalRaw(expr.slice(1), env); - } - - // Special forms that need async handling - if (hname === "if") return asyncRenderIf(expr, env, ns); - if (hname === "when") return asyncRenderWhen(expr, env, ns); - if (hname === "cond") return asyncRenderCond(expr, env, ns); - if (hname === "case") return asyncRenderCase(expr, env, ns); - if (hname === "let" || hname === "let*") return asyncRenderLet(expr, env, ns); - if (hname === "begin" || hname === "do") return asyncRenderChildren(expr.slice(1), env, ns); - if (hname === "map") return asyncRenderMap(expr, env, ns); - if (hname === "map-indexed") return asyncRenderMapIndexed(expr, env, ns); - if (hname === "for-each") return asyncRenderMap(expr, env, ns); - - // define/defcomp/defmacro — eval for side effects - if (hname === "define" || hname === "defcomp" || hname === "defmacro" || - hname === "defstyle" || hname === "defhandler") { - trampoline(evalExpr(expr, env)); - return null; - } - - // quote - if (hname === "quote") return null; - - // lambda/fn - if (hname === "lambda" || hname === "fn") { - trampoline(evalExpr(expr, env)); - return null; - } - - // and/or — eval and render result - if (hname === "and" || hname === "or" || hname === "->") { - var aoResult = asyncEval(expr, env); - if (isPromise(aoResult)) return aoResult.then(function(v) { return asyncRenderToDom(v, env, ns); }); - return asyncRenderToDom(aoResult, env, ns); - } - - // set! - if (hname === "set!") { - asyncEval(expr, env); - return null; - } - - // Component or Island - if (hname.charAt(0) === "~") { - var comp = env[hname]; - if (comp && comp._island) return renderDomIsland(comp, expr.slice(1), env, ns); - if (comp && comp._component) return asyncRenderComponent(comp, expr.slice(1), env, ns); - if (comp && comp._macro) { - var expanded = trampoline(expandMacro(comp, expr.slice(1), env)); - return asyncRenderToDom(expanded, env, ns); - } - } - - // Macro - if (env[hname] && env[hname]._macro) { - var mac = env[hname]; - var expanded = trampoline(expandMacro(mac, expr.slice(1), env)); - return asyncRenderToDom(expanded, env, ns); - } - - // HTML tag - if (typeof renderDomElement === "function" && contains(HTML_TAGS, hname)) { - return asyncRenderElement(hname, expr.slice(1), env, ns); - } - - // html: prefix - if (hname.indexOf("html:") === 0) { - return asyncRenderElement(hname.slice(5), expr.slice(1), env, ns); - } - - // Custom element - if (hname.indexOf("-") >= 0 && expr.length > 1 && expr[1] && expr[1]._kw) { - return asyncRenderElement(hname, expr.slice(1), env, ns); - } - - // SVG context - if (ns) return asyncRenderElement(hname, expr.slice(1), env, ns); - - // Fallback: eval and render - var fResult = asyncEval(expr, env); - if (isPromise(fResult)) return fResult.then(function(v) { return asyncRenderToDom(v, env, ns); }); - return asyncRenderToDom(fResult, env, ns); - } - - // Non-symbol head: eval call - var cResult = asyncEval(expr, env); - if (isPromise(cResult)) return cResult.then(function(v) { return asyncRenderToDom(v, env, ns); }); - return asyncRenderToDom(cResult, env, ns); - } - - function asyncRenderChildren(exprs, env, ns) { - var frag = document.createDocumentFragment(); - var pending = []; - for (var i = 0; i < exprs.length; i++) { - var result = asyncRenderToDom(exprs[i], env, ns); - if (isPromise(result)) { - // Insert placeholder, replace when resolved - var placeholder = document.createComment("async"); - frag.appendChild(placeholder); - (function(ph) { - pending.push(result.then(function(node) { - if (node) ph.parentNode.replaceChild(node, ph); - else ph.parentNode.removeChild(ph); - })); - })(placeholder); - } else if (result) { - frag.appendChild(result); - } - } - if (pending.length > 0) { - return Promise.all(pending).then(function() { return frag; }); - } - return frag; - } - - function asyncRenderElement(tag, args, env, ns) { - var newNs = tag === "svg" ? SVG_NS : tag === "math" ? MATH_NS : ns; - var el = domCreateElement(tag, newNs); - var pending = []; - var isVoid = contains(VOID_ELEMENTS, tag); - for (var i = 0; i < args.length; i++) { - var arg = args[i]; - if (arg && arg._kw && (i + 1) < args.length) { - var attrName = arg.name; - var attrVal = asyncEval(args[i + 1], env); - i++; - if (isPromise(attrVal)) { - (function(an, av) { - pending.push(av.then(function(v) { - if (!isNil(v) && v !== false) { - if (contains(BOOLEAN_ATTRS, an)) { if (isSxTruthy(v)) el.setAttribute(an, ""); } - else if (v === true) el.setAttribute(an, ""); - else el.setAttribute(an, String(v)); - } - })); - })(attrName, attrVal); - } else { - if (!isNil(attrVal) && attrVal !== false) { - if (contains(BOOLEAN_ATTRS, attrName)) { - if (isSxTruthy(attrVal)) el.setAttribute(attrName, ""); - } else if (attrVal === true) { - el.setAttribute(attrName, ""); - } else { - el.setAttribute(attrName, String(attrVal)); - } - } - } - } else if (!isVoid) { - var child = asyncRenderToDom(arg, env, newNs); - if (isPromise(child)) { - var placeholder = document.createComment("async"); - el.appendChild(placeholder); - (function(ph) { - pending.push(child.then(function(node) { - if (node) ph.parentNode.replaceChild(node, ph); - else ph.parentNode.removeChild(ph); - })); - })(placeholder); - } else if (child) { - el.appendChild(child); - } - } - } - if (pending.length > 0) return Promise.all(pending).then(function() { return el; }); - return el; - } - - function asyncRenderComponent(comp, args, env, ns) { - var kwargs = {}; - var children = []; - var pending = []; - for (var i = 0; i < args.length; i++) { - var arg = args[i]; - if (arg && arg._kw && (i + 1) < args.length) { - var kName = arg.name; - var kVal = asyncEval(args[i + 1], env); - if (isPromise(kVal)) { - (function(k) { pending.push(kVal.then(function(v) { kwargs[k] = v; })); })(kName); - } else { - kwargs[kName] = kVal; - } - i++; - } else { - children.push(arg); - } - } - - function doRender() { - var local = Object.create(componentClosure(comp)); - for (var k in env) if (env.hasOwnProperty(k)) local[k] = env[k]; - var params = componentParams(comp); - for (var j = 0; j < params.length; j++) { - local[params[j]] = params[j] in kwargs ? kwargs[params[j]] : NIL; - } - if (componentHasChildren(comp)) { - var childResult = asyncRenderChildren(children, env, ns); - if (isPromise(childResult)) { - return childResult.then(function(childFrag) { - local["children"] = childFrag; - return asyncRenderToDom(componentBody(comp), local, ns); - }); - } - local["children"] = childResult; - } - return asyncRenderToDom(componentBody(comp), local, ns); - } - - if (pending.length > 0) return Promise.all(pending).then(doRender); - return doRender(); - } - - function asyncRenderIf(expr, env, ns) { - var cond = asyncEval(expr[1], env); - if (isPromise(cond)) { - return cond.then(function(v) { - return isSxTruthy(v) - ? asyncRenderToDom(expr[2], env, ns) - : (expr.length > 3 ? asyncRenderToDom(expr[3], env, ns) : null); - }); - } - return isSxTruthy(cond) - ? asyncRenderToDom(expr[2], env, ns) - : (expr.length > 3 ? asyncRenderToDom(expr[3], env, ns) : null); - } - - function asyncRenderWhen(expr, env, ns) { - var cond = asyncEval(expr[1], env); - if (isPromise(cond)) { - return cond.then(function(v) { - return isSxTruthy(v) ? asyncRenderChildren(expr.slice(2), env, ns) : null; - }); - } - return isSxTruthy(cond) ? asyncRenderChildren(expr.slice(2), env, ns) : null; - } - - function asyncRenderCond(expr, env, ns) { - var clauses = expr.slice(1); - function step(idx) { - if (idx >= clauses.length) return null; - var clause = clauses[idx]; - if (!Array.isArray(clause) || clause.length < 2) return step(idx + 1); - var test = clause[0]; - if ((test && test._sym && (test.name === "else" || test.name === ":else")) || - (test && test._kw && test.name === "else")) { - return asyncRenderToDom(clause[1], env, ns); - } - var v = asyncEval(test, env); - if (isPromise(v)) return v.then(function(r) { return isSxTruthy(r) ? asyncRenderToDom(clause[1], env, ns) : step(idx + 1); }); - return isSxTruthy(v) ? asyncRenderToDom(clause[1], env, ns) : step(idx + 1); - } - return step(0); - } - - function asyncRenderCase(expr, env, ns) { - var matchVal = asyncEval(expr[1], env); - function doCase(mv) { - var clauses = expr.slice(2); - for (var i = 0; i < clauses.length - 1; i += 2) { - var test = clauses[i]; - if ((test && test._kw && test.name === "else") || - (test && test._sym && (test.name === "else" || test.name === ":else"))) { - return asyncRenderToDom(clauses[i + 1], env, ns); - } - var tv = trampoline(evalExpr(test, env)); - if (mv === tv || (typeof mv === "string" && typeof tv === "string" && mv === tv)) { - return asyncRenderToDom(clauses[i + 1], env, ns); - } - } - return null; - } - if (isPromise(matchVal)) return matchVal.then(doCase); - return doCase(matchVal); - } - - function asyncRenderLet(expr, env, ns) { - var bindings = expr[1]; - var local = Object.create(env); - for (var k in env) if (env.hasOwnProperty(k)) local[k] = env[k]; - function bindStep(idx) { - if (!Array.isArray(bindings)) return asyncRenderChildren(expr.slice(2), local, ns); - // Nested pairs: ((a 1) (b 2)) - if (bindings.length > 0 && Array.isArray(bindings[0])) { - if (idx >= bindings.length) return asyncRenderChildren(expr.slice(2), local, ns); - var b = bindings[idx]; - var vname = b[0]._sym ? b[0].name : String(b[0]); - var val = asyncEval(b[1], local); - if (isPromise(val)) return val.then(function(v) { local[vname] = v; return bindStep(idx + 1); }); - local[vname] = val; - return bindStep(idx + 1); - } - // Flat pairs: (a 1 b 2) - if (idx >= bindings.length) return asyncRenderChildren(expr.slice(2), local, ns); - var vn = bindings[idx]._sym ? bindings[idx].name : String(bindings[idx]); - var vv = asyncEval(bindings[idx + 1], local); - if (isPromise(vv)) return vv.then(function(v) { local[vn] = v; return bindStep(idx + 2); }); - local[vn] = vv; - return bindStep(idx + 2); - } - return bindStep(0); - } - - function asyncRenderMap(expr, env, ns) { - var fn = asyncEval(expr[1], env); - var coll = asyncEval(expr[2], env); - function doMap(f, c) { - if (!Array.isArray(c)) return null; - var frag = document.createDocumentFragment(); - var pending = []; - for (var i = 0; i < c.length; i++) { - var item = c[i]; - var result; - if (f && f._lambda) { - var lenv = Object.create(f.closure || env); - for (var k in env) if (env.hasOwnProperty(k)) lenv[k] = env[k]; - lenv[f.params[0]] = item; - result = asyncRenderToDom(f.body, lenv, null); - } else if (typeof f === "function") { - var r = f(item); - result = isPromise(r) ? r.then(function(v) { return asyncRenderToDom(v, env, null); }) : asyncRenderToDom(r, env, null); - } else { - result = asyncRenderToDom(item, env, null); - } - if (isPromise(result)) { - var ph = document.createComment("async"); - frag.appendChild(ph); - (function(p) { pending.push(result.then(function(n) { if (n) p.parentNode.replaceChild(n, p); else p.parentNode.removeChild(p); })); })(ph); - } else if (result) { - frag.appendChild(result); - } - } - if (pending.length) return Promise.all(pending).then(function() { return frag; }); - return frag; - } - if (isPromise(fn) || isPromise(coll)) { - return Promise.all([isPromise(fn) ? fn : Promise.resolve(fn), isPromise(coll) ? coll : Promise.resolve(coll)]) - .then(function(r) { return doMap(r[0], r[1]); }); - } - return doMap(fn, coll); - } - - function asyncRenderMapIndexed(expr, env, ns) { - var fn = asyncEval(expr[1], env); - var coll = asyncEval(expr[2], env); - function doMap(f, c) { - if (!Array.isArray(c)) return null; - var frag = document.createDocumentFragment(); - var pending = []; - for (var i = 0; i < c.length; i++) { - var item = c[i]; - var result; - if (f && f._lambda) { - var lenv = Object.create(f.closure || env); - for (var k in env) if (env.hasOwnProperty(k)) lenv[k] = env[k]; - lenv[f.params[0]] = i; - lenv[f.params[1]] = item; - result = asyncRenderToDom(f.body, lenv, null); - } else if (typeof f === "function") { - var r = f(i, item); - result = isPromise(r) ? r.then(function(v) { return asyncRenderToDom(v, env, null); }) : asyncRenderToDom(r, env, null); - } else { - result = asyncRenderToDom(item, env, null); - } - if (isPromise(result)) { - var ph = document.createComment("async"); - frag.appendChild(ph); - (function(p) { pending.push(result.then(function(n) { if (n) p.parentNode.replaceChild(n, p); else p.parentNode.removeChild(p); })); })(ph); - } else if (result) { - frag.appendChild(result); - } - } - if (pending.length) return Promise.all(pending).then(function() { return frag; }); - return frag; - } - if (isPromise(fn) || isPromise(coll)) { - return Promise.all([isPromise(fn) ? fn : Promise.resolve(fn), isPromise(coll) ? coll : Promise.resolve(coll)]) - .then(function(r) { return doMap(r[0], r[1]); }); - } - return doMap(fn, coll); - } - - function asyncEvalRaw(args, env) { - var parts = []; - var pending = []; - for (var i = 0; i < args.length; i++) { - var val = asyncEval(args[i], env); - if (isPromise(val)) { - (function(idx) { - pending.push(val.then(function(v) { parts[idx] = v; })); - })(parts.length); - parts.push(null); - } else { - parts.push(val); - } - } - function assemble() { - var html = ""; - for (var j = 0; j < parts.length; j++) { - var p = parts[j]; - if (p && p._rawHtml) html += p.html; - else if (typeof p === "string") html += p; - else if (p != null && !isNil(p)) html += String(p); - } - var el = document.createElement("span"); - el.innerHTML = html; - var frag = document.createDocumentFragment(); - while (el.firstChild) frag.appendChild(el.firstChild); - return frag; - } - if (pending.length) return Promise.all(pending).then(assemble); - return assemble(); - } - - // Async version of sxRenderWithEnv — returns Promise - function asyncSxRenderWithEnv(source, extraEnv) { - var env = extraEnv ? merge(componentEnv, extraEnv) : componentEnv; - var exprs = parse(source); - if (!_hasDom) return Promise.resolve(null); - return asyncRenderChildren(exprs, env, null); - } - - // IO proxy cache: key → { value, expires } - var _ioCache = {}; - var IO_CACHE_TTL = 300000; // 5 minutes - - // Register a server-proxied IO primitive: fetches from /sx/io/ - // Uses GET for short args, POST for long payloads (URL length safety). - // Results are cached client-side by (name + args) with a TTL. - function registerProxiedIo(name) { - registerIoPrimitive(name, function(args, kwargs) { - // Cache key: name + serialized args - var cacheKey = name; - for (var ci = 0; ci < args.length; ci++) cacheKey += "" + String(args[ci]); - for (var ck in kwargs) { - if (kwargs.hasOwnProperty(ck)) cacheKey += "" + ck + "=" + String(kwargs[ck]); - } - var cached = _ioCache[cacheKey]; - if (cached && cached.expires > Date.now()) return cached.value; - - var url = "/sx/io/" + encodeURIComponent(name); - var qs = []; - for (var i = 0; i < args.length; i++) { - qs.push("_arg" + i + "=" + encodeURIComponent(String(args[i]))); - } - for (var k in kwargs) { - if (kwargs.hasOwnProperty(k)) { - qs.push(encodeURIComponent(k) + "=" + encodeURIComponent(String(kwargs[k]))); - } - } - var queryStr = qs.join("&"); - var fetchOpts; - if (queryStr.length > 1500) { - // POST with JSON body for long payloads - var sArgs = []; - for (var j = 0; j < args.length; j++) sArgs.push(String(args[j])); - var sKwargs = {}; - for (var kk in kwargs) { - if (kwargs.hasOwnProperty(kk)) sKwargs[kk] = String(kwargs[kk]); - } - var postHeaders = { "SX-Request": "true", "Content-Type": "application/json" }; - var csrf = csrfToken(); - if (csrf && csrf !== NIL) postHeaders["X-CSRFToken"] = csrf; - fetchOpts = { - method: "POST", - headers: postHeaders, - body: JSON.stringify({ args: sArgs, kwargs: sKwargs }) - }; - } else { - if (queryStr) url += "?" + queryStr; - fetchOpts = { headers: { "SX-Request": "true" } }; - } - var result = fetch(url, fetchOpts) - .then(function(resp) { - if (!resp.ok) { - logWarn("sx:io " + name + " failed " + resp.status); - return NIL; - } - return resp.text(); - }) - .then(function(text) { - if (!text || text === "nil") return NIL; - try { - var exprs = parse(text); - var val = exprs.length === 1 ? exprs[0] : exprs; - _ioCache[cacheKey] = { value: val, expires: Date.now() + IO_CACHE_TTL }; - return val; - } catch (e) { - logWarn("sx:io " + name + " parse error: " + (e && e.message ? e.message : e)); - return NIL; - } - }) - .catch(function(e) { - logWarn("sx:io " + name + " network error: " + (e && e.message ? e.message : e)); - return NIL; - }); - // Cache the in-flight promise too (dedup concurrent calls for same args) - _ioCache[cacheKey] = { value: result, expires: Date.now() + IO_CACHE_TTL }; - return result; - }); - } - - // Register IO deps as proxied primitives (idempotent, called per-page) - function registerIoDeps(names) { - if (!names || !names.length) return; - var registered = 0; - for (var i = 0; i < names.length; i++) { - var name = names[i]; - if (!IO_PRIMITIVES[name]) { - registerProxiedIo(name); - registered++; - } - } - if (registered > 0) { - logInfo("sx:io registered " + registered + " proxied primitives: " + names.join(", ")); - } - } - - - // Parser — compiled from parser.sx (see PLATFORM_PARSER_JS for ident char classes) - var parse = sxParse; - // ========================================================================= // Public API // ========================================================================= @@ -5054,16 +1367,10 @@ return (isSxTruthy((_batchDepth == 0)) ? (function() { } function render(source) { - if (!_hasDom) { - var exprs = parse(source); - var parts = []; - for (var i = 0; i < exprs.length; i++) parts.push(renderToHtml(exprs[i], merge(componentEnv))); - return parts.join(""); - } var exprs = parse(source); - var frag = document.createDocumentFragment(); - for (var i = 0; i < exprs.length; i++) frag.appendChild(renderToDom(exprs[i], merge(componentEnv), null)); - return frag; + var parts = []; + for (var i = 0; i < exprs.length; i++) parts.push(renderToHtml(exprs[i], merge(componentEnv))); + return parts.join(""); } function renderToString(source) { @@ -5090,92 +1397,9 @@ return (isSxTruthy((_batchDepth == 0)) ? (function() { componentEnv: componentEnv, renderToHtml: function(expr, env) { return renderToHtml(expr, env || merge(componentEnv)); }, renderToSx: function(expr, env) { return renderToSx(expr, env || merge(componentEnv)); }, - renderToDom: _hasDom ? function(expr, env, ns) { return renderToDom(expr, env || merge(componentEnv), ns || null); } : null, - parseTriggerSpec: typeof parseTriggerSpec === "function" ? parseTriggerSpec : null, - parseTime: typeof parseTime === "function" ? parseTime : null, - defaultTrigger: typeof defaultTrigger === "function" ? defaultTrigger : null, - parseSwapSpec: typeof parseSwapSpec === "function" ? parseSwapSpec : null, - parseRetrySpec: typeof parseRetrySpec === "function" ? parseRetrySpec : null, - nextRetryMs: typeof nextRetryMs === "function" ? nextRetryMs : null, - filterParams: typeof filterParams === "function" ? filterParams : null, - morphNode: typeof morphNode === "function" ? morphNode : null, - morphChildren: typeof morphChildren === "function" ? morphChildren : null, - swapDomNodes: typeof swapDomNodes === "function" ? swapDomNodes : null, - process: typeof processElements === "function" ? processElements : null, - executeRequest: typeof executeRequest === "function" ? executeRequest : null, - postSwap: typeof postSwap === "function" ? postSwap : null, - processScripts: typeof processSxScripts === "function" ? processSxScripts : null, - mount: typeof sxMount === "function" ? sxMount : null, - hydrate: typeof sxHydrateElements === "function" ? sxHydrateElements : null, - update: typeof sxUpdateElement === "function" ? sxUpdateElement : null, - renderComponent: typeof sxRenderComponent === "function" ? sxRenderComponent : null, - getEnv: function() { return componentEnv; }, - resolveSuspense: typeof resolveSuspense === "function" ? resolveSuspense : null, - hydrateIslands: typeof sxHydrateIslands === "function" ? sxHydrateIslands : null, - disposeIsland: typeof disposeIsland === "function" ? disposeIsland : null, - init: typeof bootInit === "function" ? bootInit : null, - splitPathSegments: splitPathSegments, - parseRoutePattern: parseRoutePattern, - matchRoute: matchRoute, - findMatchingRoute: findMatchingRoute, - registerIo: typeof registerIoPrimitive === "function" ? registerIoPrimitive : null, - registerIoDeps: typeof registerIoDeps === "function" ? registerIoDeps : null, - asyncRender: typeof asyncSxRenderWithEnv === "function" ? asyncSxRenderWithEnv : null, - asyncRenderToDom: typeof asyncRenderToDom === "function" ? asyncRenderToDom : null, - signal: signal, - deref: deref, - reset: reset_b, - swap: swap_b, - computed: computed, - effect: effect, - batch: batch, - isSignal: isSignal, - makeSignal: makeSignal, - defStore: defStore, - useStore: useStore, - clearStores: clearStores, - emitEvent: emitEvent, - onEvent: onEvent, - bridgeEvent: bridgeEvent, - _version: "ref-2.0 (boot+dom+engine+html+orchestration+parser+sx, bootstrap-compiled)" + _version: "ref-2.0 (html+sx, bootstrap-compiled)" }; - - // --- Popstate listener --- - if (typeof window !== "undefined") { - window.addEventListener("popstate", function(e) { - handlePopstate(e && e.state ? e.state.scrollY || 0 : 0); - }); - } - - // --- Auto-init --- - if (typeof document !== "undefined") { - var _sxInit = function() { - bootInit(); - // Process any suspense resolutions that arrived before init - if (global.__sxPending) { - for (var pi = 0; pi < global.__sxPending.length; pi++) { - resolveSuspense(global.__sxPending[pi].id, global.__sxPending[pi].sx); - } - global.__sxPending = null; - } - // Set up direct resolution for future chunks - global.__sxResolve = function(id, sx) { resolveSuspense(id, sx); }; - // Register service worker for offline data caching - if ("serviceWorker" in navigator) { - navigator.serviceWorker.register("/sx-sw.js", { scope: "/" }).then(function(reg) { - logInfo("sx:sw registered (scope: " + reg.scope + ")"); - }).catch(function(err) { - logWarn("sx:sw registration failed: " + (err && err.message ? err.message : err)); - }); - } - }; - if (document.readyState === "loading") { - document.addEventListener("DOMContentLoaded", _sxInit); - } else { - _sxInit(); - } - } if (typeof module !== "undefined" && module.exports) module.exports = Sx; else global.Sx = Sx; diff --git a/shared/sx/helpers.py b/shared/sx/helpers.py index f3b2044..374b840 100644 --- a/shared/sx/helpers.py +++ b/shared/sx/helpers.py @@ -313,7 +313,7 @@ async def full_page_sx(ctx: dict, *, header_rows: str, # Wrap body + meta in a fragment so sx.js renders both; # auto-hoist moves meta/title/link elements to . body_sx = _sx_fragment(meta, body_sx) - return sx_page(ctx, body_sx, meta_html=meta_html) + return await sx_page(ctx, body_sx, meta_html=meta_html) def _build_component_ast(__name: str, **kwargs: Any) -> list: @@ -620,51 +620,8 @@ def sx_response(source: str, status: int = 200, # --------------------------------------------------------------------------- # Sx wire-format full page shell # --------------------------------------------------------------------------- - -_SX_PAGE_TEMPLATE = """\ - - - - - - - -{title} -{meta_html} - - - - - - - - - - - - - - - - - - - -
- -""" +# The page shell is defined as ~sx-page-shell in shared/sx/templates/shell.sx +# and rendered via render_to_html. No HTML string templates in Python. def _build_pages_sx(service: str) -> str: @@ -794,13 +751,16 @@ def _sx_literal(v: object) -> str: -def sx_page(ctx: dict, page_sx: str, *, +async def sx_page(ctx: dict, page_sx: str, *, meta_html: str = "") -> str: """Return a minimal HTML shell that boots the page from sx source. The browser loads component definitions and page sx, then sx.js renders everything client-side. CSS rules are scanned from the sx source and component defs, then injected as a