/** * sx-ref.js — Generated from reference SX evaluator specification. * * Bootstrap-compiled from shared/sx/ref/{eval,render,primitives}.sx * Compare against hand-written sx.js for correctness verification. * * DO NOT EDIT — regenerate with: python bootstrap_js.py */ ;(function(global) { "use strict"; // ========================================================================= // Types // ========================================================================= var NIL = Object.freeze({ _nil: true, toString: function() { return "nil"; } }); var SX_VERSION = "2026-03-13T05:11:12Z"; function isNil(x) { return x === NIL || x === null || x === undefined; } function isSxTruthy(x) { return x !== false && !isNil(x); } function Symbol(name) { this.name = name; } Symbol.prototype.toString = function() { return this.name; }; Symbol.prototype._sym = true; function Keyword(name) { this.name = name; } Keyword.prototype.toString = function() { return ":" + this.name; }; Keyword.prototype._kw = true; function Lambda(params, body, closure, name) { this.params = params; this.body = body; this.closure = closure || {}; this.name = name || null; } Lambda.prototype._lambda = true; function Component(name, params, hasChildren, body, closure, affinity) { this.name = name; this.params = params; this.hasChildren = hasChildren; this.body = body; this.closure = closure || {}; this.affinity = affinity || "auto"; } Component.prototype._component = true; function Island(name, params, hasChildren, body, closure) { this.name = name; this.params = params; this.hasChildren = hasChildren; this.body = body; this.closure = closure || {}; } Island.prototype._island = true; function SxSignal(value) { this.value = value; this.subscribers = []; this.deps = []; } SxSignal.prototype._signal = true; function TrackingCtx(notifyFn) { this.notifyFn = notifyFn; this.deps = []; } var _trackingContext = null; function Macro(params, restParam, body, closure, name) { this.params = params; this.restParam = restParam; this.body = body; this.closure = closure || {}; this.name = name || null; } Macro.prototype._macro = true; function Thunk(expr, env) { this.expr = expr; this.env = env; } Thunk.prototype._thunk = true; function RawHTML(html) { this.html = html; } RawHTML.prototype._raw = true; function SxSpread(attrs) { this.attrs = attrs || {}; } SxSpread.prototype._spread = true; var _collectBuckets = {}; var _provideStacks = {}; function isSym(x) { return x != null && x._sym === true; } function isKw(x) { return x != null && x._kw === true; } function merge() { var out = {}; for (var i = 0; i < arguments.length; i++) { var d = arguments[i]; if (d) for (var k in d) out[k] = d[k]; } return out; } function sxOr() { for (var i = 0; i < arguments.length; i++) { if (isSxTruthy(arguments[i])) return arguments[i]; } return arguments.length ? arguments[arguments.length - 1] : false; } // ========================================================================= // Platform interface — JS implementation // ========================================================================= function typeOf(x) { if (isNil(x)) return "nil"; if (typeof x === "number") return "number"; if (typeof x === "string") return "string"; if (typeof x === "boolean") return "boolean"; if (x._sym) return "symbol"; if (x._kw) return "keyword"; if (x._thunk) return "thunk"; if (x._lambda) return "lambda"; if (x._component) return "component"; if (x._island) return "island"; if (x._signal) return "signal"; if (x._spread) return "spread"; if (x._macro) return "macro"; if (x._raw) return "raw-html"; if (typeof Node !== "undefined" && x instanceof Node) return "dom-node"; if (Array.isArray(x)) return "list"; if (typeof x === "object") return "dict"; return "unknown"; } function symbolName(s) { return s.name; } function keywordName(k) { return k.name; } function makeSymbol(n) { return new Symbol(n); } function makeKeyword(n) { return new Keyword(n); } function makeLambda(params, body, env) { return new Lambda(params, body, merge(env)); } function makeComponent(name, params, hasChildren, body, env, affinity) { return new Component(name, params, hasChildren, body, merge(env), affinity); } function makeMacro(params, restParam, body, env, name) { return new Macro(params, restParam, body, merge(env), name); } function makeThunk(expr, env) { return new Thunk(expr, env); } function makeSpread(attrs) { return new SxSpread(attrs || {}); } function isSpread(x) { return x != null && x._spread === true; } function spreadAttrs(s) { return s && s._spread ? s.attrs : {}; } function sxCollect(bucket, value) { if (!_collectBuckets[bucket]) _collectBuckets[bucket] = []; var items = _collectBuckets[bucket]; if (items.indexOf(value) === -1) items.push(value); } function sxCollected(bucket) { return _collectBuckets[bucket] ? _collectBuckets[bucket].slice() : []; } function sxClearCollected(bucket) { if (_collectBuckets[bucket]) _collectBuckets[bucket] = []; } function providePush(name, value) { if (!_provideStacks[name]) _provideStacks[name] = []; _provideStacks[name].push({value: value !== undefined ? value : NIL, emitted: []}); } function providePop(name) { if (_provideStacks[name] && _provideStacks[name].length) _provideStacks[name].pop(); } function sxContext(name) { if (_provideStacks[name] && _provideStacks[name].length) { return _provideStacks[name][_provideStacks[name].length - 1].value; } if (arguments.length > 1) return arguments[1]; throw new Error("No provider for: " + name); } function sxEmit(name, value) { if (_provideStacks[name] && _provideStacks[name].length) { _provideStacks[name][_provideStacks[name].length - 1].emitted.push(value); } else { throw new Error("No provider for emit!: " + name); } return NIL; } function sxEmitted(name) { if (_provideStacks[name] && _provideStacks[name].length) { return _provideStacks[name][_provideStacks[name].length - 1].emitted.slice(); } return []; } function lambdaParams(f) { return f.params; } function lambdaBody(f) { return f.body; } function lambdaClosure(f) { return f.closure; } function lambdaName(f) { return f.name; } function setLambdaName(f, n) { f.name = n; } function componentParams(c) { return c.params; } function componentBody(c) { return c.body; } function componentClosure(c) { return c.closure; } function componentHasChildren(c) { return c.hasChildren; } function componentName(c) { return c.name; } function componentAffinity(c) { return c.affinity || "auto"; } function macroParams(m) { return m.params; } function macroRestParam(m) { return m.restParam; } function macroBody(m) { return m.body; } function macroClosure(m) { return m.closure; } function isThunk(x) { return x != null && x._thunk === true; } function thunkExpr(t) { return t.expr; } function thunkEnv(t) { return t.env; } function isCallable(x) { return typeof x === "function" || (x != null && x._lambda === true); } function isLambda(x) { return x != null && x._lambda === true; } function isComponent(x) { return x != null && x._component === true; } function isIsland(x) { return x != null && x._island === true; } function isMacro(x) { return x != null && x._macro === true; } function isIdentical(a, b) { return a === b; } // Island platform function makeIsland(name, params, hasChildren, body, env) { return new Island(name, params, hasChildren, body, merge(env)); } // Signal platform function makeSignal(value) { return new SxSignal(value); } function isSignal(x) { return x != null && x._signal === true; } function signalValue(s) { return s.value; } function signalSetValue(s, v) { s.value = v; } function signalSubscribers(s) { return s.subscribers.slice(); } function signalAddSub(s, fn) { if (s.subscribers.indexOf(fn) < 0) s.subscribers.push(fn); } function signalRemoveSub(s, fn) { var i = s.subscribers.indexOf(fn); if (i >= 0) s.subscribers.splice(i, 1); } function signalDeps(s) { return s.deps.slice(); } function signalSetDeps(s, deps) { s.deps = Array.isArray(deps) ? deps.slice() : []; } function setTrackingContext(ctx) { _trackingContext = ctx; } function getTrackingContext() { return _trackingContext || NIL; } function makeTrackingContext(notifyFn) { return new TrackingCtx(notifyFn); } function trackingContextDeps(ctx) { return ctx ? ctx.deps : []; } function trackingContextAddDep(ctx, s) { if (ctx && ctx.deps.indexOf(s) < 0) ctx.deps.push(s); } function trackingContextNotifyFn(ctx) { return ctx ? ctx.notifyFn : NIL; } // invoke — call any callable (native fn or SX lambda) with args. // Transpiled code emits direct calls f(args) which fail on SX lambdas // from runtime-evaluated island bodies. invoke dispatches correctly. function invoke() { var f = arguments[0]; var args = Array.prototype.slice.call(arguments, 1); if (isLambda(f)) return trampoline(callLambda(f, args, lambdaClosure(f))); if (typeof f === 'function') return f.apply(null, args); return NIL; } // JSON / dict helpers for island state serialization function jsonSerialize(obj) { return JSON.stringify(obj); } function isEmptyDict(d) { if (!d || typeof d !== "object") return true; for (var k in d) if (d.hasOwnProperty(k)) return false; return true; } function envHas(env, name) { return name in env; } function envGet(env, name) { return env[name]; } function envSet(env, name, val) { // Walk prototype chain to find where the variable is defined (for set!) var obj = env; while (obj !== null && obj !== Object.prototype) { if (obj.hasOwnProperty(name)) { obj[name] = val; return; } obj = Object.getPrototypeOf(obj); } // Not found in any parent scope — set on the immediate env env[name] = val; } function envExtend(env) { return Object.create(env); } function envMerge(base, overlay) { // Same env or overlay is descendant of base — just extend, no copy. // This prevents set! inside lambdas from modifying shadow copies. if (base === overlay) return Object.create(base); var p = overlay; for (var d = 0; p && p !== Object.prototype && d < 100; d++) { if (p === base) return Object.create(base); p = Object.getPrototypeOf(p); } // General case: extend base, copy ONLY overlay properties that don't // exist in the base chain (avoids shadowing closure bindings). var child = Object.create(base); if (overlay) { for (var k in overlay) { if (overlay.hasOwnProperty(k) && !(k in base)) child[k] = overlay[k]; } } return child; } function dictSet(d, k, v) { d[k] = v; return v; } function dictGet(d, k) { var v = d[k]; return v !== undefined ? v : NIL; } // Render-expression detection — lets the evaluator delegate to the active adapter. // Matches HTML tags, SVG tags, <>, raw!, ~components, html: prefix, custom elements. // Placeholder — overridden by transpiled version from render.sx function isRenderExpr(expr) { return false; } // Render dispatch — call the active adapter's render function. // Set by each adapter when loaded; defaults to identity (no rendering). var _renderExprFn = null; // Render mode flag — set by render-to-html/aser, checked by eval-list. // When false, render expressions fall through to evalCall. var _renderMode = false; function renderActiveP() { return _renderMode; } function setRenderActiveB(val) { _renderMode = !!val; } function renderExpr(expr, env) { if (_renderExprFn) return _renderExprFn(expr, env); // No adapter loaded — fall through to evalCall return evalCall(first(expr), rest(expr), env); } function stripPrefix(s, prefix) { return s.indexOf(prefix) === 0 ? s.slice(prefix.length) : s; } function error(msg) { throw new Error(msg); } function inspect(x) { return JSON.stringify(x); } function debugLog() { console.error.apply(console, ["[sx-debug]"].concat(Array.prototype.slice.call(arguments))); } // ========================================================================= // Primitives // ========================================================================= var PRIMITIVES = {}; // core.arithmetic PRIMITIVES["+"] = function() { var s = 0; for (var i = 0; i < arguments.length; i++) s += arguments[i]; return s; }; PRIMITIVES["-"] = function(a, b) { return arguments.length === 1 ? -a : a - b; }; PRIMITIVES["*"] = function() { var s = 1; for (var i = 0; i < arguments.length; i++) s *= arguments[i]; return s; }; PRIMITIVES["/"] = function(a, b) { return a / b; }; PRIMITIVES["mod"] = function(a, b) { return a % b; }; PRIMITIVES["inc"] = function(n) { return n + 1; }; PRIMITIVES["dec"] = function(n) { return n - 1; }; PRIMITIVES["abs"] = Math.abs; PRIMITIVES["floor"] = Math.floor; PRIMITIVES["ceil"] = Math.ceil; PRIMITIVES["round"] = function(x, n) { if (n === undefined || n === 0) return Math.round(x); var f = Math.pow(10, n); return Math.round(x * f) / f; }; PRIMITIVES["min"] = Math.min; PRIMITIVES["max"] = Math.max; PRIMITIVES["sqrt"] = Math.sqrt; PRIMITIVES["pow"] = Math.pow; PRIMITIVES["clamp"] = function(x, lo, hi) { return Math.max(lo, Math.min(hi, x)); }; // core.comparison PRIMITIVES["="] = function(a, b) { return a === b; }; PRIMITIVES["!="] = function(a, b) { return a !== b; }; PRIMITIVES["<"] = function(a, b) { return a < b; }; PRIMITIVES[">"] = function(a, b) { return a > b; }; PRIMITIVES["<="] = function(a, b) { return a <= b; }; PRIMITIVES[">="] = function(a, b) { return a >= b; }; // core.logic PRIMITIVES["not"] = function(x) { return !isSxTruthy(x); }; // core.predicates PRIMITIVES["nil?"] = isNil; PRIMITIVES["number?"] = function(x) { return typeof x === "number"; }; PRIMITIVES["string?"] = function(x) { return typeof x === "string"; }; PRIMITIVES["list?"] = Array.isArray; PRIMITIVES["dict?"] = function(x) { return x !== null && typeof x === "object" && !Array.isArray(x) && !x._sym && !x._kw; }; PRIMITIVES["empty?"] = function(c) { return isNil(c) || (Array.isArray(c) ? c.length === 0 : typeof c === "string" ? c.length === 0 : Object.keys(c).length === 0); }; PRIMITIVES["contains?"] = function(c, k) { if (typeof c === "string") return c.indexOf(String(k)) !== -1; if (Array.isArray(c)) return c.indexOf(k) !== -1; return k in c; }; 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; }; PRIMITIVES["component-affinity"] = componentAffinity; // core.strings PRIMITIVES["str"] = function() { var p = []; for (var i = 0; i < arguments.length; i++) { var v = arguments[i]; if (isNil(v)) continue; p.push(String(v)); } return p.join(""); }; PRIMITIVES["upper"] = function(s) { return String(s).toUpperCase(); }; PRIMITIVES["lower"] = function(s) { return String(s).toLowerCase(); }; PRIMITIVES["trim"] = function(s) { return String(s).trim(); }; PRIMITIVES["split"] = function(s, sep) { return String(s).split(sep || " "); }; PRIMITIVES["join"] = function(sep, coll) { return coll.join(sep); }; PRIMITIVES["replace"] = function(s, old, nw) { return s.split(old).join(nw); }; PRIMITIVES["index-of"] = function(s, needle, from) { return String(s).indexOf(needle, from || 0); }; PRIMITIVES["starts-with?"] = function(s, p) { return String(s).indexOf(p) === 0; }; PRIMITIVES["ends-with?"] = function(s, p) { var str = String(s); return str.indexOf(p, str.length - p.length) !== -1; }; PRIMITIVES["slice"] = function(c, a, b) { if (!c || typeof c.slice !== "function") { console.error("[sx-debug] slice called on non-sliceable:", typeof c, c, "a=", a, "b=", b, new Error().stack); return []; } 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]); return out; }; // core.collections PRIMITIVES["list"] = function() { return Array.prototype.slice.call(arguments); }; PRIMITIVES["dict"] = function() { var d = {}; for (var i = 0; i < arguments.length - 1; i += 2) d[arguments[i]] = arguments[i + 1]; return d; }; PRIMITIVES["range"] = function(a, b, step) { var r = []; step = step || 1; for (var i = a; step > 0 ? i < b : i > b; i += step) r.push(i); return r; }; PRIMITIVES["get"] = function(c, k, def) { var v = (c && c[k]); return v !== undefined ? v : (def !== undefined ? def : NIL); }; PRIMITIVES["len"] = function(c) { return Array.isArray(c) ? c.length : typeof c === "string" ? c.length : Object.keys(c).length; }; PRIMITIVES["first"] = function(c) { return c && c.length > 0 ? c[0] : NIL; }; PRIMITIVES["last"] = function(c) { return c && c.length > 0 ? c[c.length - 1] : NIL; }; PRIMITIVES["rest"] = function(c) { if (c && typeof c.slice !== "function") { console.error("[sx-debug] rest called on non-sliceable:", typeof c, c, new Error().stack); return []; } return c ? c.slice(1) : []; }; PRIMITIVES["nth"] = function(c, n) { return c && n >= 0 && n < c.length ? c[n] : NIL; }; PRIMITIVES["cons"] = function(x, c) { return [x].concat(c || []); }; PRIMITIVES["append"] = function(c, x) { return (c || []).concat([x]); }; PRIMITIVES["append!"] = function(arr, x) { arr.push(x); return arr; }; PRIMITIVES["chunk-every"] = function(c, n) { var r = []; for (var i = 0; i < c.length; i += n) r.push(c.slice(i, i + n)); return r; }; 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 PRIMITIVES["keys"] = function(d) { return Object.keys(d || {}); }; PRIMITIVES["vals"] = function(d) { var r = []; for (var k in d) r.push(d[k]); return r; }; PRIMITIVES["merge"] = function() { var out = {}; for (var i = 0; i < arguments.length; i++) { var d = arguments[i]; if (d && !isNil(d)) for (var k in d) out[k] = d[k]; } return out; }; PRIMITIVES["assoc"] = function(d) { var out = {}; if (d && !isNil(d)) for (var k in d) out[k] = d[k]; for (var i = 1; i < arguments.length - 1; i += 2) out[arguments[i]] = arguments[i + 1]; return out; }; PRIMITIVES["dissoc"] = function(d) { var out = {}; for (var k in d) out[k] = d[k]; for (var i = 1; i < arguments.length; i++) delete out[arguments[i]]; 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]; } return r; }; // stdlib.format PRIMITIVES["format-decimal"] = function(v, p) { return Number(v).toFixed(p || 2); }; PRIMITIVES["parse-int"] = function(v, d) { var n = parseInt(v, 10); return isNaN(n) ? (d || 0) : n; }; PRIMITIVES["format-date"] = function(s, fmt) { if (!s) return ""; try { var d = new Date(s); if (isNaN(d.getTime())) return String(s); var months = ["January","February","March","April","May","June","July","August","September","October","November","December"]; var short_months = ["Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec"]; return fmt.replace(/%-d/g, d.getDate()).replace(/%d/g, ("0"+d.getDate()).slice(-2)) .replace(/%B/g, months[d.getMonth()]).replace(/%b/g, short_months[d.getMonth()]) .replace(/%Y/g, d.getFullYear()).replace(/%m/g, ("0"+(d.getMonth()+1)).slice(-2)) .replace(/%H/g, ("0"+d.getHours()).slice(-2)).replace(/%M/g, ("0"+d.getMinutes()).slice(-2)); } catch (e) { return String(s); } }; PRIMITIVES["parse-datetime"] = function(s) { return s ? String(s) : NIL; }; // stdlib.text PRIMITIVES["pluralize"] = function(n, s, p) { if (s || (p && p !== "s")) return n == 1 ? (s || "") : (p || "s"); return n == 1 ? "" : "s"; }; PRIMITIVES["escape"] = function(s) { return String(s).replace(/&/g,"&").replace(//g,">").replace(/"/g,""").replace(/'/g,"'"); }; PRIMITIVES["strip-tags"] = function(s) { return String(s).replace(/<[^>]+>/g, ""); }; // stdlib.debug PRIMITIVES["assert"] = function(cond, msg) { if (!isSxTruthy(cond)) throw new Error("Assertion error: " + (msg || "Assertion failed")); return true; }; // stdlib.spread — spread + collect primitives PRIMITIVES["make-spread"] = makeSpread; PRIMITIVES["spread?"] = isSpread; PRIMITIVES["spread-attrs"] = spreadAttrs; PRIMITIVES["collect!"] = sxCollect; PRIMITIVES["collected"] = sxCollected; PRIMITIVES["clear-collected!"] = sxClearCollected; // provide/context/emit! — render-time dynamic scope PRIMITIVES["provide-push!"] = providePush; PRIMITIVES["provide-pop!"] = providePop; PRIMITIVES["context"] = sxContext; PRIMITIVES["emit!"] = sxEmit; PRIMITIVES["emitted"] = sxEmitted; function isPrimitive(name) { return name in PRIMITIVES; } function getPrimitive(name) { return PRIMITIVES[name]; } // Higher-order helpers used by the transpiled code function map(fn, coll) { return coll.map(fn); } function mapIndexed(fn, coll) { return coll.map(function(item, i) { return fn(i, item); }); } function filter(fn, coll) { return coll.filter(function(x) { return isSxTruthy(fn(x)); }); } function reduce(fn, init, coll) { var acc = init; for (var i = 0; i < coll.length; i++) acc = fn(acc, coll[i]); return acc; } function some(fn, coll) { for (var i = 0; i < coll.length; i++) { var r = fn(coll[i]); if (isSxTruthy(r)) return r; } return NIL; } function forEach(fn, coll) { for (var i = 0; i < coll.length; i++) fn(coll[i]); return NIL; } function isEvery(fn, coll) { for (var i = 0; i < coll.length; i++) { if (!isSxTruthy(fn(coll[i]))) return false; } return true; } function mapDict(fn, d) { var r = {}; for (var k in d) r[k] = fn(k, d[k]); return r; } // List primitives used directly by transpiled code var len = PRIMITIVES["len"]; var first = PRIMITIVES["first"]; var last = PRIMITIVES["last"]; var rest = PRIMITIVES["rest"]; var nth = PRIMITIVES["nth"]; var cons = PRIMITIVES["cons"]; var append = PRIMITIVES["append"]; var isEmpty = PRIMITIVES["empty?"]; var contains = PRIMITIVES["contains?"]; var startsWith = PRIMITIVES["starts-with?"]; var slice = PRIMITIVES["slice"]; var concat = PRIMITIVES["concat"]; var str = PRIMITIVES["str"]; var join = PRIMITIVES["join"]; var keys = PRIMITIVES["keys"]; var get = PRIMITIVES["get"]; var assoc = PRIMITIVES["assoc"]; var range = PRIMITIVES["range"]; function zip(a, b) { var r = []; for (var i = 0; i < Math.min(a.length, b.length); i++) r.push([a[i], b[i]]); return r; } function append_b(arr, x) { arr.push(x); return arr; } var apply = function(f, args) { if (isLambda(f)) return trampoline(callLambda(f, args, lambdaClosure(f))); return f.apply(null, args); }; // Additional primitive aliases used by adapter/engine transpiled code var split = PRIMITIVES["split"]; var trim = PRIMITIVES["trim"]; var upper = PRIMITIVES["upper"]; var lower = PRIMITIVES["lower"]; var replace_ = function(s, old, nw) { return s.split(old).join(nw); }; var endsWith = PRIMITIVES["ends-with?"]; var parseInt_ = PRIMITIVES["parse-int"]; var dict_fn = PRIMITIVES["dict"]; // HTML rendering helpers function escapeHtml(s) { return String(s).replace(/&/g,"&").replace(//g,">").replace(/"/g,"""); } function escapeAttr(s) { return escapeHtml(s); } function rawHtmlContent(r) { return r.html; } function makeRawHtml(s) { return { _raw: true, html: s }; } function sxExprSource(x) { return x && x.source ? x.source : String(x); } // Placeholders — overridden by transpiled spec from parser.sx / adapter-sx.sx function serialize(val) { return String(val); } function isSpecialForm(n) { return false; } function isHoForm(n) { return false; } // processBindings and evalCond — now specced in render.sx, bootstrapped above function isDefinitionForm(name) { return name === "define" || name === "defcomp" || name === "defmacro" || name === "defstyle" || name === "defhandler"; } function indexOf_(s, ch) { return typeof s === "string" ? s.indexOf(ch) : -1; } function dictHas(d, k) { return d != null && k in d; } function dictDelete(d, k) { delete d[k]; } function forEachIndexed(fn, coll) { for (var i = 0; i < coll.length; i++) fn(i, coll[i]); return NIL; } // ========================================================================= // Performance overrides — evaluator hot path // ========================================================================= // Override parseKeywordArgs: imperative loop instead of reduce+assoc parseKeywordArgs = function(rawArgs, env) { var kwargs = {}; var children = []; for (var i = 0; i < rawArgs.length; i++) { var arg = rawArgs[i]; if (arg && arg._kw && (i + 1) < rawArgs.length) { kwargs[arg.name] = trampoline(evalExpr(rawArgs[i + 1], env)); i++; } else { children.push(trampoline(evalExpr(arg, env))); } } return [kwargs, children]; }; // Override callComponent: use prototype chain env, imperative kwarg binding callComponent = function(comp, rawArgs, env) { var kwargs = {}; var children = []; for (var i = 0; i < rawArgs.length; i++) { var arg = rawArgs[i]; if (arg && arg._kw && (i + 1) < rawArgs.length) { kwargs[arg.name] = trampoline(evalExpr(rawArgs[i + 1], env)); i++; } else { children.push(trampoline(evalExpr(arg, env))); } } 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++) { var p = params[j]; local[p] = p in kwargs ? kwargs[p] : NIL; } if (componentHasChildren(comp)) { local["children"] = children; } return makeThunk(componentBody(comp), local); }; // ========================================================================= // Platform: deps module — component dependency analysis // ========================================================================= function componentDeps(c) { return c.deps ? c.deps.slice() : []; } function componentSetDeps(c, deps) { c.deps = deps; } function componentCssClasses(c) { return c.cssClasses ? c.cssClasses.slice() : []; } function envComponents(env) { var names = []; for (var k in env) { var v = env[k]; if (v && (v._component || v._macro)) names.push(k); } return names; } function regexFindAll(pattern, source) { var re = new RegExp(pattern, "g"); var results = []; var m; while ((m = re.exec(source)) !== null) { if (m[1] !== undefined) results.push(m[1]); else results.push(m[0]); } return results; } function scanCssClasses(source) { var classes = {}; var result = []; var m; var re1 = /:class\s+"([^"]*)"/g; while ((m = re1.exec(source)) !== null) { var parts = m[1].split(/\s+/); for (var i = 0; i < parts.length; i++) { if (parts[i] && !classes[parts[i]]) { classes[parts[i]] = true; result.push(parts[i]); } } } var re2 = /:class\s+\(str\s+((?:"[^"]*"\s*)+)\)/g; while ((m = re2.exec(source)) !== null) { var re3 = /"([^"]*)"/g; var m2; while ((m2 = re3.exec(m[1])) !== null) { var parts2 = m2[1].split(/\s+/); for (var j = 0; j < parts2.length; j++) { if (parts2[j] && !classes[parts2[j]]) { classes[parts2[j]] = true; result.push(parts2[j]); } } } } var re4 = /;;\s*@css\s+(.+)/g; while ((m = re4.exec(source)) !== null) { var parts3 = m[1].split(/\s+/); for (var k = 0; k < parts3.length; k++) { if (parts3[k] && !classes[parts3[k]]) { classes[parts3[k]] = true; result.push(parts3[k]); } } } return result; } function componentIoRefs(c) { return c.ioRefs ? c.ioRefs.slice() : []; } function componentSetIoRefs(c, refs) { c.ioRefs = refs; } // ========================================================================= // 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 var trampoline = function(val) { return (function() { var result = val; return (isSxTruthy(isThunk(result)) ? trampoline(evalExpr(thunkExpr(result), thunkEnv(result))) : result); })(); }; // eval-expr var evalExpr = function(expr, env) { return (function() { var _m = typeOf(expr); if (_m == "number") return expr; if (_m == "string") return expr; if (_m == "boolean") return expr; if (_m == "nil") return NIL; if (_m == "symbol") return (function() { var name = symbolName(expr); return (isSxTruthy(envHas(env, name)) ? envGet(env, name) : (isSxTruthy(isPrimitive(name)) ? getPrimitive(name) : (isSxTruthy((name == "true")) ? true : (isSxTruthy((name == "false")) ? false : (isSxTruthy((name == "nil")) ? NIL : (debugLog("Undefined symbol:", name, "primitive?:", isPrimitive(name)), error((String("Undefined symbol: ") + String(name))))))))); })(); if (_m == "keyword") return keywordName(expr); if (_m == "dict") return mapDict(function(k, v) { return trampoline(evalExpr(v, env)); }, expr); if (_m == "list") return (isSxTruthy(isEmpty(expr)) ? [] : evalList(expr, env)); return expr; })(); }; // eval-list var evalList = function(expr, env) { return (function() { var head = first(expr); var args = rest(expr); return (isSxTruthy(!isSxTruthy(sxOr((typeOf(head) == "symbol"), (typeOf(head) == "lambda"), (typeOf(head) == "list")))) ? map(function(x) { return trampoline(evalExpr(x, env)); }, expr) : (isSxTruthy((typeOf(head) == "symbol")) ? (function() { var name = symbolName(head); return (isSxTruthy((name == "if")) ? sfIf(args, env) : (isSxTruthy((name == "when")) ? sfWhen(args, env) : (isSxTruthy((name == "cond")) ? sfCond(args, env) : (isSxTruthy((name == "case")) ? sfCase(args, env) : (isSxTruthy((name == "and")) ? sfAnd(args, env) : (isSxTruthy((name == "or")) ? sfOr(args, env) : (isSxTruthy((name == "let")) ? sfLet(args, env) : (isSxTruthy((name == "let*")) ? sfLet(args, env) : (isSxTruthy((name == "letrec")) ? sfLetrec(args, env) : (isSxTruthy((name == "lambda")) ? sfLambda(args, env) : (isSxTruthy((name == "fn")) ? sfLambda(args, env) : (isSxTruthy((name == "define")) ? sfDefine(args, env) : (isSxTruthy((name == "defcomp")) ? sfDefcomp(args, env) : (isSxTruthy((name == "defisland")) ? sfDefisland(args, env) : (isSxTruthy((name == "defmacro")) ? sfDefmacro(args, env) : (isSxTruthy((name == "defstyle")) ? sfDefstyle(args, env) : (isSxTruthy((name == "defhandler")) ? sfDefhandler(args, env) : (isSxTruthy((name == "defpage")) ? sfDefpage(args, env) : (isSxTruthy((name == "defquery")) ? sfDefquery(args, env) : (isSxTruthy((name == "defaction")) ? sfDefaction(args, env) : (isSxTruthy((name == "deftype")) ? sfDeftype(args, env) : (isSxTruthy((name == "defeffect")) ? sfDefeffect(args, env) : (isSxTruthy((name == "begin")) ? sfBegin(args, env) : (isSxTruthy((name == "do")) ? sfBegin(args, env) : (isSxTruthy((name == "quote")) ? sfQuote(args, env) : (isSxTruthy((name == "quasiquote")) ? sfQuasiquote(args, env) : (isSxTruthy((name == "->")) ? sfThreadFirst(args, env) : (isSxTruthy((name == "set!")) ? sfSetBang(args, env) : (isSxTruthy((name == "reset")) ? sfReset(args, env) : (isSxTruthy((name == "shift")) ? sfShift(args, env) : (isSxTruthy((name == "dynamic-wind")) ? sfDynamicWind(args, env) : (isSxTruthy((name == "provide")) ? sfProvide(args, env) : (isSxTruthy((name == "map")) ? hoMap(args, env) : (isSxTruthy((name == "map-indexed")) ? hoMapIndexed(args, env) : (isSxTruthy((name == "filter")) ? hoFilter(args, env) : (isSxTruthy((name == "reduce")) ? hoReduce(args, env) : (isSxTruthy((name == "some")) ? hoSome(args, env) : (isSxTruthy((name == "every?")) ? hoEvery(args, env) : (isSxTruthy((name == "for-each")) ? hoForEach(args, env) : (isSxTruthy((isSxTruthy(envHas(env, name)) && isMacro(envGet(env, name)))) ? (function() { var mac = envGet(env, name); return makeThunk(expandMacro(mac, args, env), env); })() : (isSxTruthy((isSxTruthy(renderActiveP()) && isRenderExpr(expr))) ? renderExpr(expr, env) : evalCall(head, args, env)))))))))))))))))))))))))))))))))))))))))); })() : evalCall(head, args, env))); })(); }; // eval-call var evalCall = function(head, args, env) { return (function() { var f = trampoline(evalExpr(head, env)); var evaluatedArgs = map(function(a) { return trampoline(evalExpr(a, env)); }, args); return (isSxTruthy((isSxTruthy(isCallable(f)) && isSxTruthy(!isSxTruthy(isLambda(f))) && isSxTruthy(!isSxTruthy(isComponent(f))) && !isSxTruthy(isIsland(f)))) ? apply(f, evaluatedArgs) : (isSxTruthy(isLambda(f)) ? callLambda(f, evaluatedArgs, env) : (isSxTruthy(isComponent(f)) ? callComponent(f, args, env) : (isSxTruthy(isIsland(f)) ? callComponent(f, args, env) : error((String("Not callable: ") + String(inspect(f)))))))); })(); }; // call-lambda var callLambda = function(f, args, callerEnv) { return (function() { var params = lambdaParams(f); var local = envMerge(lambdaClosure(f), callerEnv); return (isSxTruthy((len(args) > len(params))) ? error((String(sxOr(lambdaName(f), "lambda")) + String(" expects ") + String(len(params)) + String(" args, got ") + String(len(args)))) : (forEach(function(pair) { return envSet(local, first(pair), nth(pair, 1)); }, zip(params, args)), forEach(function(p) { return envSet(local, p, NIL); }, slice(params, len(args))), makeThunk(lambdaBody(f), local))); })(); }; // call-component var callComponent = function(comp, rawArgs, env) { return (function() { var parsed = parseKeywordArgs(rawArgs, env); var kwargs = first(parsed); var children = nth(parsed, 1); var local = envMerge(componentClosure(comp), env); { var _c = componentParams(comp); for (var _i = 0; _i < _c.length; _i++) { var p = _c[_i]; envSet(local, p, sxOr(dictGet(kwargs, p), NIL)); } } if (isSxTruthy(componentHasChildren(comp))) { envSet(local, "children", children); } return makeThunk(componentBody(comp), local); })(); }; // parse-keyword-args var parseKeywordArgs = function(rawArgs, env) { return (function() { var kwargs = {}; var children = []; var i = 0; reduce(function(state, arg) { return (function() { var idx = get(state, "i"); var skip = get(state, "skip"); return (isSxTruthy(skip) ? assoc(state, "skip", false, "i", (idx + 1)) : (isSxTruthy((isSxTruthy((typeOf(arg) == "keyword")) && ((idx + 1) < len(rawArgs)))) ? (dictSet(kwargs, keywordName(arg), trampoline(evalExpr(nth(rawArgs, (idx + 1)), env))), assoc(state, "skip", true, "i", (idx + 1))) : (append_b(children, trampoline(evalExpr(arg, env))), assoc(state, "i", (idx + 1))))); })(); }, {["i"]: 0, ["skip"]: false}, rawArgs); return [kwargs, children]; })(); }; // sf-if var sfIf = function(args, env) { return (function() { var condition = trampoline(evalExpr(first(args), env)); return (isSxTruthy((isSxTruthy(condition) && !isSxTruthy(isNil(condition)))) ? makeThunk(nth(args, 1), env) : (isSxTruthy((len(args) > 2)) ? makeThunk(nth(args, 2), env) : NIL)); })(); }; // sf-when var sfWhen = function(args, env) { return (function() { var condition = trampoline(evalExpr(first(args), env)); return (isSxTruthy((isSxTruthy(condition) && !isSxTruthy(isNil(condition)))) ? (forEach(function(e) { return trampoline(evalExpr(e, env)); }, slice(args, 1, (len(args) - 1))), makeThunk(last(args), env)) : NIL); })(); }; // cond-scheme? var condScheme_p = function(clauses) { return isEvery(function(c) { return (isSxTruthy((typeOf(c) == "list")) && (len(c) == 2)); }, clauses); }; // sf-cond var sfCond = function(args, env) { return (isSxTruthy(condScheme_p(args)) ? sfCondScheme(args, env) : sfCondClojure(args, env)); }; // sf-cond-scheme var sfCondScheme = function(clauses, env) { return (isSxTruthy(isEmpty(clauses)) ? NIL : (function() { var clause = first(clauses); var test = first(clause); var body = nth(clause, 1); return (isSxTruthy(sxOr((isSxTruthy((typeOf(test) == "symbol")) && sxOr((symbolName(test) == "else"), (symbolName(test) == ":else"))), (isSxTruthy((typeOf(test) == "keyword")) && (keywordName(test) == "else")))) ? makeThunk(body, env) : (isSxTruthy(trampoline(evalExpr(test, env))) ? makeThunk(body, env) : sfCondScheme(rest(clauses), env))); })()); }; // sf-cond-clojure var sfCondClojure = function(clauses, env) { return (isSxTruthy((len(clauses) < 2)) ? NIL : (function() { var test = first(clauses); var body = nth(clauses, 1); return (isSxTruthy(sxOr((isSxTruthy((typeOf(test) == "keyword")) && (keywordName(test) == "else")), (isSxTruthy((typeOf(test) == "symbol")) && sxOr((symbolName(test) == "else"), (symbolName(test) == ":else"))))) ? makeThunk(body, env) : (isSxTruthy(trampoline(evalExpr(test, env))) ? makeThunk(body, env) : sfCondClojure(slice(clauses, 2), env))); })()); }; // sf-case var sfCase = function(args, env) { return (function() { var matchVal = trampoline(evalExpr(first(args), env)); var clauses = rest(args); return sfCaseLoop(matchVal, clauses, env); })(); }; // sf-case-loop var sfCaseLoop = function(matchVal, clauses, env) { return (isSxTruthy((len(clauses) < 2)) ? NIL : (function() { var test = first(clauses); var body = nth(clauses, 1); return (isSxTruthy(sxOr((isSxTruthy((typeOf(test) == "keyword")) && (keywordName(test) == "else")), (isSxTruthy((typeOf(test) == "symbol")) && sxOr((symbolName(test) == "else"), (symbolName(test) == ":else"))))) ? makeThunk(body, env) : (isSxTruthy((matchVal == trampoline(evalExpr(test, env)))) ? makeThunk(body, env) : sfCaseLoop(matchVal, slice(clauses, 2), env))); })()); }; // sf-and var sfAnd = function(args, env) { return (isSxTruthy(isEmpty(args)) ? true : (function() { var val = trampoline(evalExpr(first(args), env)); return (isSxTruthy(!isSxTruthy(val)) ? val : (isSxTruthy((len(args) == 1)) ? val : sfAnd(rest(args), env))); })()); }; // sf-or var sfOr = function(args, env) { return (isSxTruthy(isEmpty(args)) ? false : (function() { var val = trampoline(evalExpr(first(args), env)); return (isSxTruthy(val) ? val : sfOr(rest(args), env)); })()); }; // sf-let var sfLet = function(args, env) { return (isSxTruthy((typeOf(first(args)) == "symbol")) ? sfNamedLet(args, env) : (function() { var bindings = first(args); var body = rest(args); var local = envExtend(env); (isSxTruthy((isSxTruthy((typeOf(first(bindings)) == "list")) && (len(first(bindings)) == 2))) ? forEach(function(binding) { return (function() { var vname = (isSxTruthy((typeOf(first(binding)) == "symbol")) ? symbolName(first(binding)) : first(binding)); return envSet(local, vname, trampoline(evalExpr(nth(binding, 1), local))); })(); }, bindings) : (function() { var i = 0; return reduce(function(acc, pairIdx) { return (function() { var vname = (isSxTruthy((typeOf(nth(bindings, (pairIdx * 2))) == "symbol")) ? symbolName(nth(bindings, (pairIdx * 2))) : nth(bindings, (pairIdx * 2))); var valExpr = nth(bindings, ((pairIdx * 2) + 1)); return envSet(local, vname, trampoline(evalExpr(valExpr, local))); })(); }, NIL, range(0, (len(bindings) / 2))); })()); { var _c = slice(body, 0, (len(body) - 1)); for (var _i = 0; _i < _c.length; _i++) { var e = _c[_i]; trampoline(evalExpr(e, local)); } } return makeThunk(last(body), local); })()); }; // sf-named-let var sfNamedLet = function(args, env) { return (function() { var loopName = symbolName(first(args)); var bindings = nth(args, 1); var body = slice(args, 2); var params = []; var inits = []; (isSxTruthy((isSxTruthy((typeOf(first(bindings)) == "list")) && (len(first(bindings)) == 2))) ? forEach(function(binding) { params.push((isSxTruthy((typeOf(first(binding)) == "symbol")) ? symbolName(first(binding)) : first(binding))); return append_b(inits, nth(binding, 1)); }, bindings) : reduce(function(acc, pairIdx) { return (append_b(params, (isSxTruthy((typeOf(nth(bindings, (pairIdx * 2))) == "symbol")) ? symbolName(nth(bindings, (pairIdx * 2))) : nth(bindings, (pairIdx * 2)))), append_b(inits, nth(bindings, ((pairIdx * 2) + 1)))); }, NIL, range(0, (len(bindings) / 2)))); return (function() { var loopBody = (isSxTruthy((len(body) == 1)) ? first(body) : cons(makeSymbol("begin"), body)); var loopFn = makeLambda(params, loopBody, env); loopFn.name = loopName; envSet(lambdaClosure(loopFn), loopName, loopFn); return (function() { var initVals = map(function(e) { return trampoline(evalExpr(e, env)); }, inits); return callLambda(loopFn, initVals, env); })(); })(); })(); }; // sf-lambda var sfLambda = function(args, env) { return (function() { var paramsExpr = first(args); 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) : (isSxTruthy((isSxTruthy((typeOf(p) == "list")) && isSxTruthy((len(p) == 3)) && isSxTruthy((typeOf(nth(p, 1)) == "keyword")) && (keywordName(nth(p, 1)) == "as"))) ? symbolName(first(p)) : p)); }, paramsExpr); return makeLambda(paramNames, body, env); })(); }; // sf-define var sfDefine = function(args, env) { return (function() { var nameSym = first(args); var hasEffects = (isSxTruthy((len(args) >= 4)) && isSxTruthy((typeOf(nth(args, 1)) == "keyword")) && (keywordName(nth(args, 1)) == "effects")); var valIdx = (isSxTruthy((isSxTruthy((len(args) >= 4)) && isSxTruthy((typeOf(nth(args, 1)) == "keyword")) && (keywordName(nth(args, 1)) == "effects"))) ? 3 : 1); var value = trampoline(evalExpr(nth(args, valIdx), env)); if (isSxTruthy((isSxTruthy(isLambda(value)) && isNil(lambdaName(value))))) { value.name = symbolName(nameSym); } envSet(env, symbolName(nameSym), value); if (isSxTruthy(hasEffects)) { (function() { var effectsRaw = nth(args, 2); var effectList = (isSxTruthy((typeOf(effectsRaw) == "list")) ? map(function(e) { return (isSxTruthy((typeOf(e) == "symbol")) ? symbolName(e) : (String(e))); }, effectsRaw) : [(String(effectsRaw))]); var effectAnns = (isSxTruthy(envHas(env, "*effect-annotations*")) ? envGet(env, "*effect-annotations*") : {}); effectAnns[symbolName(nameSym)] = effectList; return envSet(env, "*effect-annotations*", effectAnns); })(); } return value; })(); }; // sf-defcomp var sfDefcomp = function(args, env) { return (function() { var nameSym = first(args); var paramsRaw = nth(args, 1); var body = last(args); var compName = stripPrefix(symbolName(nameSym), "~"); var parsed = parseCompParams(paramsRaw); var params = first(parsed); var hasChildren = nth(parsed, 1); var paramTypes = nth(parsed, 2); var affinity = defcompKwarg(args, "affinity", "auto"); return (function() { var comp = makeComponent(compName, params, hasChildren, body, env, affinity); var effects = defcompKwarg(args, "effects", NIL); if (isSxTruthy((isSxTruthy(!isSxTruthy(isNil(paramTypes))) && !isSxTruthy(isEmpty(keys(paramTypes)))))) { componentSetParamTypes_b(comp, paramTypes); } if (isSxTruthy(!isSxTruthy(isNil(effects)))) { (function() { var effectList = (isSxTruthy((typeOf(effects) == "list")) ? map(function(e) { return (isSxTruthy((typeOf(e) == "symbol")) ? symbolName(e) : (String(e))); }, effects) : [(String(effects))]); var effectAnns = (isSxTruthy(envHas(env, "*effect-annotations*")) ? envGet(env, "*effect-annotations*") : {}); effectAnns[symbolName(nameSym)] = effectList; return envSet(env, "*effect-annotations*", effectAnns); })(); } envSet(env, symbolName(nameSym), comp); return comp; })(); })(); }; // defcomp-kwarg var defcompKwarg = function(args, key, default_) { return (function() { var end = (len(args) - 1); var result = default_; { var _c = range(2, end, 1); for (var _i = 0; _i < _c.length; _i++) { var i = _c[_i]; if (isSxTruthy((isSxTruthy((typeOf(nth(args, i)) == "keyword")) && isSxTruthy((keywordName(nth(args, i)) == key)) && ((i + 1) < end)))) { (function() { var val = nth(args, (i + 1)); return (result = (isSxTruthy((typeOf(val) == "keyword")) ? keywordName(val) : val)); })(); } } } return result; })(); }; // parse-comp-params var parseCompParams = function(paramsExpr) { return (function() { var params = []; var paramTypes = {}; var hasChildren = false; var inKey = false; { var _c = paramsExpr; for (var _i = 0; _i < _c.length; _i++) { var p = _c[_i]; (isSxTruthy((isSxTruthy((typeOf(p) == "list")) && isSxTruthy((len(p) == 3)) && isSxTruthy((typeOf(first(p)) == "symbol")) && isSxTruthy((typeOf(nth(p, 1)) == "keyword")) && (keywordName(nth(p, 1)) == "as"))) ? (function() { var name = symbolName(first(p)); var ptype = nth(p, 2); return (function() { var typeVal = (isSxTruthy((typeOf(ptype) == "symbol")) ? symbolName(ptype) : ptype); return (isSxTruthy(!isSxTruthy(hasChildren)) ? (append_b(params, name), dictSet(paramTypes, name, typeVal)) : NIL); })(); })() : (isSxTruthy((typeOf(p) == "symbol")) ? (function() { var name = symbolName(p); return (isSxTruthy((name == "&key")) ? (inKey = true) : (isSxTruthy((name == "&rest")) ? (hasChildren = true) : (isSxTruthy((name == "&children")) ? (hasChildren = true) : (isSxTruthy(hasChildren) ? NIL : (isSxTruthy(inKey) ? append_b(params, name) : append_b(params, name)))))); })() : NIL)); } } return [params, hasChildren, paramTypes]; })(); }; // sf-defisland var sfDefisland = function(args, env) { return (function() { var nameSym = first(args); var paramsRaw = nth(args, 1); var body = last(args); var compName = stripPrefix(symbolName(nameSym), "~"); var parsed = parseCompParams(paramsRaw); var params = first(parsed); var hasChildren = nth(parsed, 1); return (function() { var island = makeIsland(compName, params, hasChildren, body, env); envSet(env, symbolName(nameSym), island); return island; })(); })(); }; // sf-defmacro var sfDefmacro = function(args, env) { return (function() { var nameSym = first(args); var paramsRaw = nth(args, 1); var body = nth(args, 2); var parsed = parseMacroParams(paramsRaw); var params = first(parsed); var restParam = nth(parsed, 1); return (function() { var mac = makeMacro(params, restParam, body, env, symbolName(nameSym)); envSet(env, symbolName(nameSym), mac); return mac; })(); })(); }; // parse-macro-params var parseMacroParams = function(paramsExpr) { return (function() { var params = []; var restParam = NIL; reduce(function(state, p) { return (isSxTruthy((isSxTruthy((typeOf(p) == "symbol")) && (symbolName(p) == "&rest"))) ? assoc(state, "in-rest", true) : (isSxTruthy(get(state, "in-rest")) ? ((restParam = (isSxTruthy((typeOf(p) == "symbol")) ? symbolName(p) : p)), state) : (append_b(params, (isSxTruthy((typeOf(p) == "symbol")) ? symbolName(p) : p)), state))); }, {["in-rest"]: false}, paramsExpr); return [params, restParam]; })(); }; // sf-defstyle var sfDefstyle = function(args, env) { return (function() { var nameSym = first(args); var value = trampoline(evalExpr(nth(args, 1), env)); envSet(env, symbolName(nameSym), value); return value; })(); }; // make-type-def var makeTypeDef = function(name, params, body) { return {"name": name, "params": params, "body": body}; }; // normalize-type-body var normalizeTypeBody = function(body) { return (isSxTruthy(isNil(body)) ? "nil" : (isSxTruthy((typeOf(body) == "symbol")) ? symbolName(body) : (isSxTruthy((typeOf(body) == "string")) ? body : (isSxTruthy((typeOf(body) == "keyword")) ? keywordName(body) : (isSxTruthy((typeOf(body) == "dict")) ? mapDict(function(k, v) { return normalizeTypeBody(v); }, body) : (isSxTruthy((typeOf(body) == "list")) ? (isSxTruthy(isEmpty(body)) ? "any" : (function() { var head = first(body); return (function() { var headName = (isSxTruthy((typeOf(head) == "symbol")) ? symbolName(head) : (String(head))); return (isSxTruthy((headName == "union")) ? cons("or", map(normalizeTypeBody, rest(body))) : cons(headName, map(normalizeTypeBody, rest(body)))); })(); })()) : (String(body)))))))); }; // sf-deftype var sfDeftype = function(args, env) { return (function() { var nameOrForm = first(args); var bodyExpr = nth(args, 1); var typeName = NIL; var typeParams = []; (isSxTruthy((typeOf(nameOrForm) == "symbol")) ? (typeName = symbolName(nameOrForm)) : (isSxTruthy((typeOf(nameOrForm) == "list")) ? ((typeName = symbolName(first(nameOrForm))), (typeParams = map(function(p) { return (isSxTruthy((typeOf(p) == "symbol")) ? symbolName(p) : (String(p))); }, rest(nameOrForm)))) : NIL)); return (function() { var body = normalizeTypeBody(bodyExpr); var registry = (isSxTruthy(envHas(env, "*type-registry*")) ? envGet(env, "*type-registry*") : {}); registry[typeName] = makeTypeDef(typeName, typeParams, body); envSet(env, "*type-registry*", registry); return NIL; })(); })(); }; // sf-defeffect var sfDefeffect = function(args, env) { return (function() { var effectName = (isSxTruthy((typeOf(first(args)) == "symbol")) ? symbolName(first(args)) : (String(first(args)))); var registry = (isSxTruthy(envHas(env, "*effect-registry*")) ? envGet(env, "*effect-registry*") : []); if (isSxTruthy(!isSxTruthy(contains(registry, effectName)))) { registry.push(effectName); } envSet(env, "*effect-registry*", registry); return NIL; })(); }; // sf-begin var sfBegin = function(args, env) { return (isSxTruthy(isEmpty(args)) ? NIL : (forEach(function(e) { return trampoline(evalExpr(e, env)); }, slice(args, 0, (len(args) - 1))), makeThunk(last(args), env))); }; // sf-quote var sfQuote = function(args, env) { return (isSxTruthy(isEmpty(args)) ? NIL : first(args)); }; // sf-quasiquote var sfQuasiquote = function(args, env) { return qqExpand(first(args), env); }; // qq-expand var qqExpand = function(template, env) { return (isSxTruthy(!isSxTruthy((typeOf(template) == "list"))) ? template : (isSxTruthy(isEmpty(template)) ? [] : (function() { var head = first(template); return (isSxTruthy((isSxTruthy((typeOf(head) == "symbol")) && (symbolName(head) == "unquote"))) ? trampoline(evalExpr(nth(template, 1), env)) : reduce(function(result, item) { return (isSxTruthy((isSxTruthy((typeOf(item) == "list")) && isSxTruthy((len(item) == 2)) && isSxTruthy((typeOf(first(item)) == "symbol")) && (symbolName(first(item)) == "splice-unquote"))) ? (function() { var spliced = trampoline(evalExpr(nth(item, 1), env)); return (isSxTruthy((typeOf(spliced) == "list")) ? concat(result, spliced) : (isSxTruthy(isNil(spliced)) ? result : concat(result, [spliced]))); })() : concat(result, [qqExpand(item, env)])); }, [], template)); })())); }; // sf-thread-first var sfThreadFirst = function(args, env) { return (function() { var val = trampoline(evalExpr(first(args), env)); return reduce(function(result, form) { return (isSxTruthy((typeOf(form) == "list")) ? (function() { var f = trampoline(evalExpr(first(form), env)); var restArgs = map(function(a) { return trampoline(evalExpr(a, env)); }, rest(form)); var allArgs = cons(result, restArgs); return (isSxTruthy((isSxTruthy(isCallable(f)) && !isSxTruthy(isLambda(f)))) ? apply(f, allArgs) : (isSxTruthy(isLambda(f)) ? trampoline(callLambda(f, allArgs, env)) : error((String("-> form not callable: ") + String(inspect(f)))))); })() : (function() { var f = trampoline(evalExpr(form, env)); return (isSxTruthy((isSxTruthy(isCallable(f)) && !isSxTruthy(isLambda(f)))) ? f(result) : (isSxTruthy(isLambda(f)) ? trampoline(callLambda(f, [result], env)) : error((String("-> form not callable: ") + String(inspect(f)))))); })()); }, val, rest(args)); })(); }; // sf-set! var sfSetBang = function(args, env) { return (function() { var name = symbolName(first(args)); var value = trampoline(evalExpr(nth(args, 1), env)); envSet(env, name, value); return value; })(); }; // sf-letrec var sfLetrec = function(args, env) { return (function() { var bindings = first(args); var body = rest(args); var local = envExtend(env); var names = []; var valExprs = []; (isSxTruthy((isSxTruthy((typeOf(first(bindings)) == "list")) && (len(first(bindings)) == 2))) ? forEach(function(binding) { return (function() { var vname = (isSxTruthy((typeOf(first(binding)) == "symbol")) ? symbolName(first(binding)) : first(binding)); names.push(vname); valExprs.push(nth(binding, 1)); return envSet(local, vname, NIL); })(); }, bindings) : reduce(function(acc, pairIdx) { return (function() { var vname = (isSxTruthy((typeOf(nth(bindings, (pairIdx * 2))) == "symbol")) ? symbolName(nth(bindings, (pairIdx * 2))) : nth(bindings, (pairIdx * 2))); var valExpr = nth(bindings, ((pairIdx * 2) + 1)); names.push(vname); valExprs.push(valExpr); return envSet(local, vname, NIL); })(); }, NIL, range(0, (len(bindings) / 2)))); (function() { var values = map(function(e) { return trampoline(evalExpr(e, local)); }, valExprs); { var _c = zip(names, values); for (var _i = 0; _i < _c.length; _i++) { var pair = _c[_i]; envSet(local, first(pair), nth(pair, 1)); } } return forEach(function(val) { return (isSxTruthy(isLambda(val)) ? forEach(function(n) { return envSet(lambdaClosure(val), n, envGet(local, n)); }, names) : NIL); }, values); })(); { var _c = slice(body, 0, (len(body) - 1)); for (var _i = 0; _i < _c.length; _i++) { var e = _c[_i]; trampoline(evalExpr(e, local)); } } return makeThunk(last(body), local); })(); }; // sf-dynamic-wind var sfDynamicWind = function(args, env) { return (function() { var before = trampoline(evalExpr(first(args), env)); var body = trampoline(evalExpr(nth(args, 1), env)); var after = trampoline(evalExpr(nth(args, 2), env)); callThunk(before, env); pushWind(before, after); return (function() { var result = callThunk(body, env); popWind(); callThunk(after, env); return result; })(); })(); }; // sf-provide var sfProvide = function(args, env) { return (function() { var name = trampoline(evalExpr(first(args), env)); var val = trampoline(evalExpr(nth(args, 1), env)); var bodyExprs = slice(args, 2); var result = NIL; providePush(name, val); { var _c = bodyExprs; for (var _i = 0; _i < _c.length; _i++) { var e = _c[_i]; result = trampoline(evalExpr(e, env)); } } providePop(name); return result; })(); }; // expand-macro var expandMacro = function(mac, rawArgs, env) { return (function() { var local = envMerge(macroClosure(mac), env); { var _c = mapIndexed(function(i, p) { return [p, i]; }, macroParams(mac)); for (var _i = 0; _i < _c.length; _i++) { var pair = _c[_i]; envSet(local, first(pair), (isSxTruthy((nth(pair, 1) < len(rawArgs))) ? nth(rawArgs, nth(pair, 1)) : NIL)); } } if (isSxTruthy(macroRestParam(mac))) { envSet(local, macroRestParam(mac), slice(rawArgs, len(macroParams(mac)))); } return trampoline(evalExpr(macroBody(mac), local)); })(); }; // call-fn var callFn = function(f, args, env) { return (isSxTruthy(isLambda(f)) ? trampoline(callLambda(f, args, env)) : (isSxTruthy(isCallable(f)) ? apply(f, args) : error((String("Not callable in HO form: ") + String(inspect(f)))))); }; // ho-map var hoMap = function(args, env) { return (function() { var f = trampoline(evalExpr(first(args), env)); var coll = trampoline(evalExpr(nth(args, 1), env)); return map(function(item) { return callFn(f, [item], env); }, coll); })(); }; // ho-map-indexed var hoMapIndexed = function(args, env) { return (function() { var f = trampoline(evalExpr(first(args), env)); var coll = trampoline(evalExpr(nth(args, 1), env)); return mapIndexed(function(i, item) { return callFn(f, [i, item], env); }, coll); })(); }; // ho-filter var hoFilter = function(args, env) { return (function() { var f = trampoline(evalExpr(first(args), env)); var coll = trampoline(evalExpr(nth(args, 1), env)); return filter(function(item) { return callFn(f, [item], env); }, coll); })(); }; // ho-reduce var hoReduce = function(args, env) { return (function() { var f = trampoline(evalExpr(first(args), env)); var init = trampoline(evalExpr(nth(args, 1), env)); var coll = trampoline(evalExpr(nth(args, 2), env)); return reduce(function(acc, item) { return callFn(f, [acc, item], env); }, init, coll); })(); }; // ho-some var hoSome = function(args, env) { return (function() { var f = trampoline(evalExpr(first(args), env)); var coll = trampoline(evalExpr(nth(args, 1), env)); return some(function(item) { return callFn(f, [item], env); }, coll); })(); }; // ho-every var hoEvery = function(args, env) { return (function() { var f = trampoline(evalExpr(first(args), env)); var coll = trampoline(evalExpr(nth(args, 1), env)); return isEvery(function(item) { return callFn(f, [item], env); }, coll); })(); }; // ho-for-each var hoForEach = function(args, env) { return (function() { var f = trampoline(evalExpr(first(args), env)); var coll = trampoline(evalExpr(nth(args, 1), env)); return forEach(function(item) { return callFn(f, [item], env); }, coll); })(); }; // === Transpiled from render (core) === // HTML_TAGS var HTML_TAGS = ["html", "head", "body", "title", "meta", "link", "script", "style", "noscript", "header", "nav", "main", "section", "article", "aside", "footer", "h1", "h2", "h3", "h4", "h5", "h6", "hgroup", "div", "p", "blockquote", "pre", "figure", "figcaption", "address", "details", "summary", "a", "span", "em", "strong", "small", "b", "i", "u", "s", "mark", "sub", "sup", "abbr", "cite", "code", "time", "br", "wbr", "hr", "ul", "ol", "li", "dl", "dt", "dd", "table", "thead", "tbody", "tfoot", "tr", "th", "td", "caption", "colgroup", "col", "form", "input", "textarea", "select", "option", "optgroup", "button", "label", "fieldset", "legend", "output", "datalist", "img", "video", "audio", "source", "picture", "canvas", "iframe", "svg", "math", "path", "circle", "ellipse", "rect", "line", "polyline", "polygon", "text", "tspan", "g", "defs", "use", "clipPath", "mask", "pattern", "linearGradient", "radialGradient", "stop", "filter", "feGaussianBlur", "feOffset", "feBlend", "feColorMatrix", "feComposite", "feMerge", "feMergeNode", "feTurbulence", "feComponentTransfer", "feFuncR", "feFuncG", "feFuncB", "feFuncA", "feDisplacementMap", "feFlood", "feImage", "feMorphology", "feSpecularLighting", "feDiffuseLighting", "fePointLight", "feSpotLight", "feDistantLight", "animate", "animateTransform", "foreignObject", "template", "slot", "dialog", "menu"]; // VOID_ELEMENTS var VOID_ELEMENTS = ["area", "base", "br", "col", "embed", "hr", "img", "input", "link", "meta", "param", "source", "track", "wbr"]; // BOOLEAN_ATTRS var BOOLEAN_ATTRS = ["async", "autofocus", "autoplay", "checked", "controls", "default", "defer", "disabled", "formnovalidate", "hidden", "inert", "ismap", "loop", "multiple", "muted", "nomodule", "novalidate", "open", "playsinline", "readonly", "required", "reversed", "selected"]; // definition-form? var isDefinitionForm = function(name) { return sxOr((name == "define"), (name == "defcomp"), (name == "defisland"), (name == "defmacro"), (name == "defstyle"), (name == "defhandler"), (name == "deftype"), (name == "defeffect")); }; // parse-element-args var parseElementArgs = function(args, env) { return (function() { var attrs = {}; 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)); attrs[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 [attrs, children]; })(); }; // render-attrs var renderAttrs = function(attrs) { return join("", map(function(key) { return (function() { var val = dictGet(attrs, key); return (isSxTruthy((isSxTruthy(contains(BOOLEAN_ATTRS, key)) && val)) ? (String(" ") + String(key)) : (isSxTruthy((isSxTruthy(contains(BOOLEAN_ATTRS, key)) && !isSxTruthy(val))) ? "" : (isSxTruthy(isNil(val)) ? "" : (String(" ") + String(key) + String("=\"") + String(escapeAttr((String(val)))) + String("\""))))); })(); }, keys(attrs))); }; // eval-cond var evalCond = function(clauses, env) { return (isSxTruthy(condScheme_p(clauses)) ? evalCondScheme(clauses, env) : evalCondClojure(clauses, env)); }; // eval-cond-scheme var evalCondScheme = function(clauses, env) { return (isSxTruthy(isEmpty(clauses)) ? NIL : (function() { var clause = first(clauses); var test = first(clause); var body = nth(clause, 1); return (isSxTruthy(sxOr((isSxTruthy((typeOf(test) == "symbol")) && sxOr((symbolName(test) == "else"), (symbolName(test) == ":else"))), (isSxTruthy((typeOf(test) == "keyword")) && (keywordName(test) == "else")))) ? body : (isSxTruthy(trampoline(evalExpr(test, env))) ? body : evalCondScheme(rest(clauses), env))); })()); }; // eval-cond-clojure var evalCondClojure = function(clauses, env) { return (isSxTruthy((len(clauses) < 2)) ? NIL : (function() { var test = first(clauses); var body = nth(clauses, 1); return (isSxTruthy(sxOr((isSxTruthy((typeOf(test) == "keyword")) && (keywordName(test) == "else")), (isSxTruthy((typeOf(test) == "symbol")) && sxOr((symbolName(test) == "else"), (symbolName(test) == ":else"))))) ? body : (isSxTruthy(trampoline(evalExpr(test, env))) ? body : evalCondClojure(slice(clauses, 2), env))); })()); }; // process-bindings var processBindings = function(bindings, env) { return (function() { var local = envExtend(env); { var _c = bindings; for (var _i = 0; _i < _c.length; _i++) { var pair = _c[_i]; if (isSxTruthy((isSxTruthy((typeOf(pair) == "list")) && (len(pair) >= 2)))) { (function() { var name = (isSxTruthy((typeOf(first(pair)) == "symbol")) ? symbolName(first(pair)) : (String(first(pair)))); return envSet(local, name, trampoline(evalExpr(nth(pair, 1), local))); })(); } } } return local; })(); }; // is-render-expr? var isRenderExpr = function(expr) { return (isSxTruthy(sxOr(!isSxTruthy((typeOf(expr) == "list")), isEmpty(expr))) ? false : (function() { var h = first(expr); return (isSxTruthy(!isSxTruthy((typeOf(h) == "symbol"))) ? false : (function() { var n = symbolName(h); return sxOr((n == "<>"), (n == "raw!"), startsWith(n, "~"), startsWith(n, "html:"), contains(HTML_TAGS, n), (isSxTruthy((indexOf_(n, "-") > 0)) && isSxTruthy((len(expr) > 1)) && (typeOf(nth(expr, 1)) == "keyword"))); })()); })()); }; // merge-spread-attrs var mergeSpreadAttrs = function(target, spreadDict) { return forEach(function(key) { return (function() { var val = dictGet(spreadDict, key); return (isSxTruthy((key == "class")) ? (function() { var existing = dictGet(target, "class"); return dictSet(target, "class", (isSxTruthy((isSxTruthy(existing) && !isSxTruthy((existing == "")))) ? (String(existing) + String(" ") + String(val)) : val)); })() : (isSxTruthy((key == "style")) ? (function() { var existing = dictGet(target, "style"); return dictSet(target, "style", (isSxTruthy((isSxTruthy(existing) && !isSxTruthy((existing == "")))) ? (String(existing) + String(";") + String(val)) : val)); })() : dictSet(target, key, val))); })(); }, keys(spreadDict)); }; // === 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 readRawString = function() { return (function() { var buf = ""; var rawLoop = function() { while(true) { if (isSxTruthy((pos >= lenSrc))) { return error("Unterminated raw string"); } else { { var ch = nth(source, pos); if (isSxTruthy((ch == "|"))) { pos = (pos + 1); return NIL; } else { buf = (String(buf) + String(ch)); pos = (pos + 1); continue; } } } } }; rawLoop(); return buf; })(); }; var readExpr = function() { while(true) { skipWs(); if (isSxTruthy((pos >= lenSrc))) { return error("Unexpected end of input"); } else { { var ch = nth(source, pos); if (isSxTruthy((ch == "("))) { pos = (pos + 1); return readList(")"); } else if (isSxTruthy((ch == "["))) { pos = (pos + 1); return readList("]"); } else if (isSxTruthy((ch == "{"))) { pos = (pos + 1); return readMap(); } else if (isSxTruthy((ch == "\""))) { return readString(); } else if (isSxTruthy((ch == ":"))) { return readKeyword(); } else if (isSxTruthy((ch == "`"))) { pos = (pos + 1); return [makeSymbol("quasiquote"), readExpr()]; } else if (isSxTruthy((ch == ","))) { pos = (pos + 1); if (isSxTruthy((isSxTruthy((pos < lenSrc)) && (nth(source, pos) == "@")))) { pos = (pos + 1); return [makeSymbol("splice-unquote"), readExpr()]; } else { return [makeSymbol("unquote"), readExpr()]; } } else if (isSxTruthy((ch == "#"))) { pos = (pos + 1); if (isSxTruthy((pos >= lenSrc))) { return error("Unexpected end of input after #"); } else { { var dispatchCh = nth(source, pos); if (isSxTruthy((dispatchCh == ";"))) { pos = (pos + 1); readExpr(); continue; } else if (isSxTruthy((dispatchCh == "|"))) { pos = (pos + 1); return readRawString(); } else if (isSxTruthy((dispatchCh == "'"))) { pos = (pos + 1); return [makeSymbol("quote"), readExpr()]; } else if (isSxTruthy(isIdentStart(dispatchCh))) { { var macroName = readIdent(); { var handler = readerMacroGet(macroName); if (isSxTruthy(handler)) { return handler(readExpr()); } else { return error((String("Unknown reader macro: #") + String(macroName))); } } } } else { return error((String("Unknown reader macro: #") + String(dispatchCh))); } } } } else if (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")); })())))) { return readNumber(); } else if (isSxTruthy((isSxTruthy((ch == ".")) && isSxTruthy(((pos + 2) < lenSrc)) && isSxTruthy((nth(source, (pos + 1)) == ".")) && (nth(source, (pos + 2)) == ".")))) { pos = (pos + 3); return makeSymbol("..."); } else if (isSxTruthy(isIdentStart(ch))) { return readSymbol(); } else { return 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 var renderToHtml = function(expr, env) { setRenderActiveB(true); return (function() { var _m = typeOf(expr); if (_m == "nil") return ""; if (_m == "string") return escapeHtml(expr); if (_m == "number") return (String(expr)); if (_m == "boolean") return (isSxTruthy(expr) ? "true" : "false"); if (_m == "list") return (isSxTruthy(isEmpty(expr)) ? "" : renderListToHtml(expr, env)); if (_m == "symbol") return renderValueToHtml(trampoline(evalExpr(expr, env)), env); if (_m == "keyword") return escapeHtml(keywordName(expr)); if (_m == "raw-html") return rawHtmlContent(expr); if (_m == "spread") return expr; return renderValueToHtml(trampoline(evalExpr(expr, env)), env); })(); }; // render-value-to-html var renderValueToHtml = function(val, env) { return (function() { var _m = typeOf(val); if (_m == "nil") return ""; if (_m == "string") return escapeHtml(val); if (_m == "number") return (String(val)); if (_m == "boolean") return (isSxTruthy(val) ? "true" : "false"); if (_m == "list") return renderListToHtml(val, env); if (_m == "raw-html") return rawHtmlContent(val); if (_m == "spread") return val; return escapeHtml((String(val))); })(); }; // RENDER_HTML_FORMS var RENDER_HTML_FORMS = ["if", "when", "cond", "case", "let", "let*", "begin", "do", "define", "defcomp", "defisland", "defmacro", "defstyle", "defhandler", "deftype", "defeffect", "map", "map-indexed", "filter", "for-each", "provide"]; // render-html-form? var isRenderHtmlForm = function(name) { return contains(RENDER_HTML_FORMS, name); }; // render-list-to-html var renderListToHtml = function(expr, env) { return (isSxTruthy(isEmpty(expr)) ? "" : (function() { var head = first(expr); return (isSxTruthy(!isSxTruthy((typeOf(head) == "symbol"))) ? join("", filter(function(x) { return !isSxTruthy(isSpread(x)); }, map(function(x) { return renderValueToHtml(x, env); }, expr))) : (function() { var name = symbolName(head); var args = rest(expr); return (isSxTruthy((name == "<>")) ? join("", filter(function(x) { return !isSxTruthy(isSpread(x)); }, map(function(x) { return renderToHtml(x, env); }, args))) : (isSxTruthy((name == "raw!")) ? join("", map(function(x) { return (String(trampoline(evalExpr(x, env)))); }, args)) : (isSxTruthy((name == "lake")) ? renderHtmlLake(args, env) : (isSxTruthy((name == "marsh")) ? renderHtmlMarsh(args, env) : (isSxTruthy(contains(HTML_TAGS, name)) ? renderHtmlElement(name, args, env) : (isSxTruthy((isSxTruthy(startsWith(name, "~")) && isSxTruthy(envHas(env, name)) && isIsland(envGet(env, name)))) ? renderHtmlIsland(envGet(env, name), args, env) : (isSxTruthy(startsWith(name, "~")) ? (function() { var val = envGet(env, name); return (isSxTruthy(isComponent(val)) ? renderHtmlComponent(val, args, env) : (isSxTruthy(isMacro(val)) ? renderToHtml(expandMacro(val, args, env), env) : error((String("Unknown component: ") + String(name))))); })() : (isSxTruthy(isRenderHtmlForm(name)) ? dispatchHtmlForm(name, expr, env) : (isSxTruthy((isSxTruthy(envHas(env, name)) && isMacro(envGet(env, name)))) ? renderToHtml(expandMacro(envGet(env, name), args, env), env) : renderValueToHtml(trampoline(evalExpr(expr, env)), env)))))))))); })()); })()); }; // dispatch-html-form var dispatchHtmlForm = function(name, expr, env) { return (isSxTruthy((name == "if")) ? (function() { var condVal = trampoline(evalExpr(nth(expr, 1), env)); return (isSxTruthy(condVal) ? renderToHtml(nth(expr, 2), env) : (isSxTruthy((len(expr) > 3)) ? renderToHtml(nth(expr, 3), env) : "")); })() : (isSxTruthy((name == "when")) ? (isSxTruthy(!isSxTruthy(trampoline(evalExpr(nth(expr, 1), env)))) ? "" : (isSxTruthy((len(expr) == 3)) ? renderToHtml(nth(expr, 2), env) : (function() { var results = map(function(i) { return renderToHtml(nth(expr, i), env); }, range(2, len(expr))); return join("", filter(function(r) { return !isSxTruthy(isSpread(r)); }, results)); })())) : (isSxTruthy((name == "cond")) ? (function() { var branch = evalCond(rest(expr), env); return (isSxTruthy(branch) ? renderToHtml(branch, env) : ""); })() : (isSxTruthy((name == "case")) ? renderToHtml(trampoline(evalExpr(expr, env)), env) : (isSxTruthy(sxOr((name == "let"), (name == "let*"))) ? (function() { var local = processBindings(nth(expr, 1), env); return (isSxTruthy((len(expr) == 3)) ? renderToHtml(nth(expr, 2), local) : (function() { var results = map(function(i) { return renderToHtml(nth(expr, i), local); }, range(2, len(expr))); return join("", filter(function(r) { return !isSxTruthy(isSpread(r)); }, results)); })()); })() : (isSxTruthy(sxOr((name == "begin"), (name == "do"))) ? (isSxTruthy((len(expr) == 2)) ? renderToHtml(nth(expr, 1), env) : (function() { var results = map(function(i) { return renderToHtml(nth(expr, i), env); }, range(1, len(expr))); return join("", filter(function(r) { return !isSxTruthy(isSpread(r)); }, results)); })()) : (isSxTruthy(isDefinitionForm(name)) ? (trampoline(evalExpr(expr, env)), "") : (isSxTruthy((name == "map")) ? (function() { var f = trampoline(evalExpr(nth(expr, 1), env)); var coll = trampoline(evalExpr(nth(expr, 2), env)); return join("", filter(function(r) { return !isSxTruthy(isSpread(r)); }, map(function(item) { return (isSxTruthy(isLambda(f)) ? renderLambdaHtml(f, [item], env) : renderToHtml(apply(f, [item]), env)); }, coll))); })() : (isSxTruthy((name == "map-indexed")) ? (function() { var f = trampoline(evalExpr(nth(expr, 1), env)); var coll = trampoline(evalExpr(nth(expr, 2), env)); return join("", filter(function(r) { return !isSxTruthy(isSpread(r)); }, mapIndexed(function(i, item) { return (isSxTruthy(isLambda(f)) ? renderLambdaHtml(f, [i, item], env) : renderToHtml(apply(f, [i, item]), env)); }, coll))); })() : (isSxTruthy((name == "filter")) ? renderToHtml(trampoline(evalExpr(expr, env)), env) : (isSxTruthy((name == "for-each")) ? (function() { var f = trampoline(evalExpr(nth(expr, 1), env)); var coll = trampoline(evalExpr(nth(expr, 2), env)); return join("", filter(function(r) { return !isSxTruthy(isSpread(r)); }, map(function(item) { return (isSxTruthy(isLambda(f)) ? renderLambdaHtml(f, [item], env) : renderToHtml(apply(f, [item]), env)); }, coll))); })() : (isSxTruthy((name == "provide")) ? (function() { var provName = trampoline(evalExpr(nth(expr, 1), env)); var provVal = trampoline(evalExpr(nth(expr, 2), env)); var bodyStart = 3; var bodyCount = (len(expr) - 3); providePush(provName, provVal); return (function() { var result = (isSxTruthy((bodyCount == 1)) ? renderToHtml(nth(expr, bodyStart), env) : join("", filter(function(r) { return !isSxTruthy(isSpread(r)); }, map(function(i) { return renderToHtml(nth(expr, i), env); }, range(bodyStart, (bodyStart + bodyCount)))))); providePop(provName); return result; })(); })() : renderValueToHtml(trampoline(evalExpr(expr, env)), env))))))))))))); }; // render-lambda-html var renderLambdaHtml = function(f, args, env) { return (function() { var local = envMerge(lambdaClosure(f), env); forEachIndexed(function(i, p) { return envSet(local, p, nth(args, i)); }, lambdaParams(f)); return renderToHtml(lambdaBody(f), local); })(); }; // render-html-component var renderHtmlComponent = function(comp, args, env) { 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]; envSet(local, p, (isSxTruthy(dictHas(kwargs, p)) ? dictGet(kwargs, p) : NIL)); } } if (isSxTruthy(componentHasChildren(comp))) { (function() { var parts = []; { var _c = children; for (var _i = 0; _i < _c.length; _i++) { var c = _c[_i]; (function() { var r = renderToHtml(c, env); return (isSxTruthy(!isSxTruthy(isSpread(r))) ? append_b(parts, r) : NIL); })(); } } return envSet(local, "children", makeRawHtml(join("", parts))); })(); } return renderToHtml(componentBody(comp), local); })(); })(); }; // render-html-element var renderHtmlElement = function(tag, args, env) { return (function() { var parsed = parseElementArgs(args, env); var attrs = first(parsed); var children = nth(parsed, 1); var isVoid = contains(VOID_ELEMENTS, tag); return (isSxTruthy(isVoid) ? (String("<") + String(tag) + String(renderAttrs(attrs)) + String(" />")) : (function() { var contentParts = []; { var _c = children; for (var _i = 0; _i < _c.length; _i++) { var c = _c[_i]; (function() { var result = renderToHtml(c, env); return (isSxTruthy(isSpread(result)) ? mergeSpreadAttrs(attrs, spreadAttrs(result)) : append_b(contentParts, result)); })(); } } return (String("<") + String(tag) + String(renderAttrs(attrs)) + String(">") + String(join("", contentParts)) + String("")); })()); })(); }; // render-html-lake var renderHtmlLake = function(args, env) { return (function() { var lakeId = NIL; var lakeTag = "div"; 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 kname = keywordName(arg); var kval = trampoline(evalExpr(nth(args, (get(state, "i") + 1)), env)); (isSxTruthy((kname == "id")) ? (lakeId = kval) : (isSxTruthy((kname == "tag")) ? (lakeTag = kval) : NIL)); 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 lakeAttrs = {["data-sx-lake"]: sxOr(lakeId, "")}; var contentParts = []; { var _c = children; for (var _i = 0; _i < _c.length; _i++) { var c = _c[_i]; (function() { var result = renderToHtml(c, env); return (isSxTruthy(isSpread(result)) ? mergeSpreadAttrs(lakeAttrs, spreadAttrs(result)) : append_b(contentParts, result)); })(); } } return (String("<") + String(lakeTag) + String(renderAttrs(lakeAttrs)) + String(">") + String(join("", contentParts)) + String("")); })(); })(); }; // render-html-marsh var renderHtmlMarsh = function(args, env) { return (function() { var marshId = NIL; var marshTag = "div"; 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 kname = keywordName(arg); var kval = trampoline(evalExpr(nth(args, (get(state, "i") + 1)), env)); (isSxTruthy((kname == "id")) ? (marshId = kval) : (isSxTruthy((kname == "tag")) ? (marshTag = kval) : (isSxTruthy((kname == "transform")) ? NIL : NIL))); 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 marshAttrs = {["data-sx-marsh"]: sxOr(marshId, "")}; var contentParts = []; { var _c = children; for (var _i = 0; _i < _c.length; _i++) { var c = _c[_i]; (function() { var result = renderToHtml(c, env); return (isSxTruthy(isSpread(result)) ? mergeSpreadAttrs(marshAttrs, spreadAttrs(result)) : append_b(contentParts, result)); })(); } } return (String("<") + String(marshTag) + String(renderAttrs(marshAttrs)) + String(">") + String(join("", contentParts)) + String("")); })(); })(); }; // render-html-island var renderHtmlIsland = function(island, args, env) { 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]; envSet(local, p, (isSxTruthy(dictHas(kwargs, p)) ? dictGet(kwargs, p) : NIL)); } } if (isSxTruthy(componentHasChildren(island))) { (function() { var parts = []; { var _c = children; for (var _i = 0; _i < _c.length; _i++) { var c = _c[_i]; (function() { var r = renderToHtml(c, env); return (isSxTruthy(!isSxTruthy(isSpread(r))) ? append_b(parts, r) : NIL); })(); } } return envSet(local, "children", makeRawHtml(join("", parts))); })(); } return (function() { var bodyHtml = renderToHtml(componentBody(island), local); var stateSx = serializeIslandState(kwargs); return (String("") + String(bodyHtml) + String("")); })(); })(); })(); }; // serialize-island-state var serializeIslandState = function(kwargs) { return (isSxTruthy(isEmptyDict(kwargs)) ? NIL : sxSerialize(kwargs)); }; // === Transpiled from adapter-sx === // render-to-sx var renderToSx = function(expr, env) { return (function() { var result = aser(expr, env); return (isSxTruthy((typeOf(result) == "string")) ? result : serialize(result)); })(); }; // aser var aser = function(expr, env) { setRenderActiveB(true); return (function() { var _m = typeOf(expr); if (_m == "number") return expr; if (_m == "string") return expr; if (_m == "boolean") return expr; if (_m == "nil") return NIL; if (_m == "symbol") return (function() { var name = symbolName(expr); return (isSxTruthy(envHas(env, name)) ? envGet(env, name) : (isSxTruthy(isPrimitive(name)) ? getPrimitive(name) : (isSxTruthy((name == "true")) ? true : (isSxTruthy((name == "false")) ? false : (isSxTruthy((name == "nil")) ? NIL : error((String("Undefined symbol: ") + String(name)))))))); })(); if (_m == "keyword") return keywordName(expr); if (_m == "list") return (isSxTruthy(isEmpty(expr)) ? [] : aserList(expr, env)); if (_m == "spread") return expr; return expr; })(); }; // aser-list var aserList = function(expr, env) { return (function() { var head = first(expr); var args = rest(expr); return (isSxTruthy(!isSxTruthy((typeOf(head) == "symbol"))) ? map(function(x) { return aser(x, env); }, expr) : (function() { var name = symbolName(head); return (isSxTruthy((name == "<>")) ? aserFragment(args, env) : (isSxTruthy(startsWith(name, "~")) ? aserCall(name, args, env) : (isSxTruthy((name == "lake")) ? aserCall(name, args, env) : (isSxTruthy((name == "marsh")) ? aserCall(name, args, env) : (isSxTruthy(contains(HTML_TAGS, name)) ? aserCall(name, args, env) : (isSxTruthy(sxOr(isSpecialForm(name), isHoForm(name))) ? aserSpecial(name, expr, env) : (isSxTruthy((isSxTruthy(envHas(env, name)) && isMacro(envGet(env, name)))) ? aser(expandMacro(envGet(env, name), args, env), env) : (function() { var f = trampoline(evalExpr(head, env)); var evaledArgs = map(function(a) { return trampoline(evalExpr(a, env)); }, args); return (isSxTruthy((isSxTruthy(isCallable(f)) && isSxTruthy(!isSxTruthy(isLambda(f))) && isSxTruthy(!isSxTruthy(isComponent(f))) && !isSxTruthy(isIsland(f)))) ? apply(f, evaledArgs) : (isSxTruthy(isLambda(f)) ? trampoline(callLambda(f, evaledArgs, env)) : (isSxTruthy(isComponent(f)) ? aserCall((String("~") + String(componentName(f))), args, env) : (isSxTruthy(isIsland(f)) ? aserCall((String("~") + String(componentName(f))), args, env) : error((String("Not callable: ") + String(inspect(f)))))))); })()))))))); })()); })(); }; // aser-fragment var aserFragment = function(children, env) { return (function() { var parts = []; { var _c = children; for (var _i = 0; _i < _c.length; _i++) { var c = _c[_i]; (function() { var result = aser(c, env); return (isSxTruthy((typeOf(result) == "list")) ? forEach(function(item) { return (isSxTruthy(!isSxTruthy(isNil(item))) ? append_b(parts, serialize(item)) : NIL); }, result) : (isSxTruthy(!isSxTruthy(isNil(result))) ? append_b(parts, serialize(result)) : NIL)); })(); } } return (isSxTruthy(isEmpty(parts)) ? "" : (String("(<> ") + String(join(" ", parts)) + String(")"))); })(); }; // aser-call var aserCall = function(name, args, env) { return (function() { var parts = [name]; var skip = false; var i = 0; { var _c = args; for (var _i = 0; _i < _c.length; _i++) { var arg = _c[_i]; (isSxTruthy(skip) ? ((skip = false), (i = (i + 1))) : (isSxTruthy((isSxTruthy((typeOf(arg) == "keyword")) && ((i + 1) < len(args)))) ? (function() { var val = aser(nth(args, (i + 1)), env); if (isSxTruthy(!isSxTruthy(isNil(val)))) { parts.push((String(":") + String(keywordName(arg)))); parts.push(serialize(val)); } skip = true; return (i = (i + 1)); })() : (function() { var val = aser(arg, env); if (isSxTruthy(!isSxTruthy(isNil(val)))) { (isSxTruthy((typeOf(val) == "list")) ? forEach(function(item) { return (isSxTruthy(!isSxTruthy(isNil(item))) ? append_b(parts, serialize(item)) : NIL); }, val) : append_b(parts, serialize(val))); } return (i = (i + 1)); })())); } } return (String("(") + String(join(" ", parts)) + String(")")); })(); }; // SPECIAL_FORM_NAMES var SPECIAL_FORM_NAMES = ["if", "when", "cond", "case", "and", "or", "let", "let*", "lambda", "fn", "define", "defcomp", "defmacro", "defstyle", "defhandler", "defpage", "defquery", "defaction", "defrelation", "begin", "do", "quote", "quasiquote", "->", "set!", "letrec", "dynamic-wind", "defisland", "deftype", "defeffect", "provide"]; // HO_FORM_NAMES var HO_FORM_NAMES = ["map", "map-indexed", "filter", "reduce", "some", "every?", "for-each"]; // special-form? var isSpecialForm = function(name) { return contains(SPECIAL_FORM_NAMES, name); }; // ho-form? var isHoForm = function(name) { return contains(HO_FORM_NAMES, name); }; // aser-special var aserSpecial = function(name, expr, env) { return (function() { var args = rest(expr); return (isSxTruthy((name == "if")) ? (isSxTruthy(trampoline(evalExpr(first(args), env))) ? aser(nth(args, 1), env) : (isSxTruthy((len(args) > 2)) ? aser(nth(args, 2), env) : NIL)) : (isSxTruthy((name == "when")) ? (isSxTruthy(!isSxTruthy(trampoline(evalExpr(first(args), env)))) ? NIL : (function() { var result = NIL; { var _c = rest(args); for (var _i = 0; _i < _c.length; _i++) { var body = _c[_i]; result = aser(body, env); } } return result; })()) : (isSxTruthy((name == "cond")) ? (function() { var branch = evalCond(args, env); return (isSxTruthy(branch) ? aser(branch, env) : NIL); })() : (isSxTruthy((name == "case")) ? (function() { var matchVal = trampoline(evalExpr(first(args), env)); var clauses = rest(args); return evalCaseAser(matchVal, clauses, env); })() : (isSxTruthy(sxOr((name == "let"), (name == "let*"))) ? (function() { var local = processBindings(first(args), env); var result = NIL; { var _c = rest(args); for (var _i = 0; _i < _c.length; _i++) { var body = _c[_i]; result = aser(body, local); } } return result; })() : (isSxTruthy(sxOr((name == "begin"), (name == "do"))) ? (function() { var result = NIL; { var _c = args; for (var _i = 0; _i < _c.length; _i++) { var body = _c[_i]; result = aser(body, env); } } return result; })() : (isSxTruthy((name == "and")) ? (function() { var result = true; some(function(arg) { result = trampoline(evalExpr(arg, env)); return !isSxTruthy(result); }, args); return result; })() : (isSxTruthy((name == "or")) ? (function() { var result = false; some(function(arg) { result = trampoline(evalExpr(arg, env)); return result; }, args); return result; })() : (isSxTruthy((name == "map")) ? (function() { var f = trampoline(evalExpr(first(args), env)); var coll = trampoline(evalExpr(nth(args, 1), env)); return map(function(item) { return (isSxTruthy(isLambda(f)) ? (function() { var local = envMerge(lambdaClosure(f), env); envSet(local, first(lambdaParams(f)), item); return aser(lambdaBody(f), local); })() : invoke(f, item)); }, coll); })() : (isSxTruthy((name == "map-indexed")) ? (function() { var f = trampoline(evalExpr(first(args), env)); var coll = trampoline(evalExpr(nth(args, 1), env)); return mapIndexed(function(i, item) { return (isSxTruthy(isLambda(f)) ? (function() { var local = envMerge(lambdaClosure(f), env); envSet(local, first(lambdaParams(f)), i); envSet(local, nth(lambdaParams(f), 1), item); return aser(lambdaBody(f), local); })() : invoke(f, i, item)); }, coll); })() : (isSxTruthy((name == "for-each")) ? (function() { var f = trampoline(evalExpr(first(args), env)); var coll = trampoline(evalExpr(nth(args, 1), env)); var results = []; { var _c = coll; for (var _i = 0; _i < _c.length; _i++) { var item = _c[_i]; (isSxTruthy(isLambda(f)) ? (function() { var local = envMerge(lambdaClosure(f), env); envSet(local, first(lambdaParams(f)), item); return append_b(results, aser(lambdaBody(f), local)); })() : invoke(f, item)); } } return (isSxTruthy(isEmpty(results)) ? NIL : results); })() : (isSxTruthy((name == "defisland")) ? (trampoline(evalExpr(expr, env)), serialize(expr)) : (isSxTruthy(sxOr((name == "define"), (name == "defcomp"), (name == "defmacro"), (name == "defstyle"), (name == "defhandler"), (name == "defpage"), (name == "defquery"), (name == "defaction"), (name == "defrelation"), (name == "deftype"), (name == "defeffect"))) ? (trampoline(evalExpr(expr, env)), NIL) : (isSxTruthy((name == "provide")) ? (function() { var provName = trampoline(evalExpr(first(args), env)); var provVal = trampoline(evalExpr(nth(args, 1), env)); var result = NIL; providePush(provName, provVal); { var _c = slice(args, 2); for (var _i = 0; _i < _c.length; _i++) { var body = _c[_i]; result = aser(body, env); } } providePop(provName); return result; })() : trampoline(evalExpr(expr, env)))))))))))))))); })(); }; // eval-case-aser var evalCaseAser = function(matchVal, clauses, env) { return (isSxTruthy((len(clauses) < 2)) ? NIL : (function() { var test = first(clauses); var body = nth(clauses, 1); return (isSxTruthy(sxOr((isSxTruthy((typeOf(test) == "keyword")) && (keywordName(test) == "else")), (isSxTruthy((typeOf(test) == "symbol")) && sxOr((symbolName(test) == ":else"), (symbolName(test) == "else"))))) ? aser(body, env) : (isSxTruthy((matchVal == trampoline(evalExpr(test, env)))) ? aser(body, env) : evalCaseAser(matchVal, slice(clauses, 2), env))); })()); }; // === 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) { setRenderActiveB(true); 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 == "spread") return expr; if (_m == "dict") return createFragment(); if (_m == "list") return (isSxTruthy(isEmpty(expr)) ? createFragment() : renderDomList(expr, env, ns)); return (isSxTruthy(isSignal(expr)) ? (isSxTruthy(_islandScope) ? reactiveText(expr) : createTextNode((String(deref(expr))))) : 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((name == "lake")) ? renderDomLake(args, env, ns) : (isSxTruthy((name == "marsh")) ? renderDomMarsh(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]; (function() { var result = renderToDom(x, env, ns); return (isSxTruthy(!isSxTruthy(isSpread(result))) ? domAppend(frag, result) : NIL); })(); } } 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 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))) ? (function() { var child = renderToDom(arg, env, newNs); return (isSxTruthy((isSxTruthy(isSpread(child)) && _islandScope)) ? reactiveSpread(el, function() { return renderToDom(arg, env, newNs); }) : (isSxTruthy(isSpread(child)) ? forEach(function(key) { return (function() { var val = dictGet(spreadAttrs(child), key); return (isSxTruthy((key == "class")) ? (function() { var existing = domGetAttr(el, "class"); return domSetAttr(el, "class", (isSxTruthy((isSxTruthy(existing) && !isSxTruthy((existing == "")))) ? (String(existing) + String(" ") + String(val)) : val)); })() : (isSxTruthy((key == "style")) ? (function() { var existing = domGetAttr(el, "style"); return domSetAttr(el, "style", (isSxTruthy((isSxTruthy(existing) && !isSxTruthy((existing == "")))) ? (String(existing) + String(";") + String(val)) : val)); })() : domSetAttr(el, key, (String(val))))); })(); }, keys(spreadAttrs(child))) : domAppend(el, child))); })() : 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]; envSet(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]; (function() { var result = renderToDom(c, env, ns); return (isSxTruthy(!isSxTruthy(isSpread(result))) ? domAppend(childFrag, result) : NIL); })(); } } 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]; (function() { var result = renderToDom(x, env, ns); return (isSxTruthy(!isSxTruthy(isSpread(result))) ? domAppend(frag, result) : NIL); })(); } } 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", "provide"]; // 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")) ? (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())); })(); return (isSxTruthy(domParent(marker)) ? (forEach(function(n) { return domRemove(n); }, currentNodes), (currentNodes = (isSxTruthy(domIsFragment(result)) ? domChildNodes(result) : [result])), domInsertAfter(marker, result)) : (initialResult = result)); })(); }); return (isSxTruthy(isSpread(initialResult)) ? initialResult : (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 (isSxTruthy(isSpread(initialResult)) ? initialResult : (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")) ? (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 (isSxTruthy(isSpread(initialResult)) ? initialResult : (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() { var local = processBindings(nth(expr, 1), env); return (isSxTruthy((len(expr) == 3)) ? renderToDom(nth(expr, 2), local, ns) : (function() { var frag = createFragment(); { var _c = range(2, len(expr)); for (var _i = 0; _i < _c.length; _i++) { var i = _c[_i]; (function() { var result = renderToDom(nth(expr, i), local, ns); return (isSxTruthy(!isSxTruthy(isSpread(result))) ? domAppend(frag, result) : NIL); })(); } } return frag; })()); })() : (isSxTruthy(sxOr((name == "begin"), (name == "do"))) ? (isSxTruthy((len(expr) == 2)) ? renderToDom(nth(expr, 1), env, ns) : (function() { var frag = createFragment(); { var _c = range(1, len(expr)); for (var _i = 0; _i < _c.length; _i++) { var i = _c[_i]; (function() { var result = renderToDom(nth(expr, i), env, ns); return (isSxTruthy(!isSxTruthy(isSpread(result))) ? domAppend(frag, result) : NIL); })(); } } 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)) && isSxTruthy((typeOf(first(collExpr)) == "symbol")) && (symbolName(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(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(); { 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 == "provide")) ? (function() { var provName = trampoline(evalExpr(nth(expr, 1), env)); var provVal = trampoline(evalExpr(nth(expr, 2), env)); var frag = createFragment(); providePush(provName, provVal); { var _c = range(3, len(expr)); for (var _i = 0; _i < _c.length; _i++) { var i = _c[_i]; domAppend(frag, renderToDom(nth(expr, i), env, ns)); } } providePop(provName); 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]; envSet(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("span", NIL); var disposers = []; domSetAttr(container, "data-sx-island", islandName); markProcessed(container, "island-hydrated"); 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; })(); })(); })(); })(); }; // render-dom-lake var renderDomLake = function(args, env, ns) { return (function() { var lakeId = NIL; var lakeTag = "div"; 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 kname = keywordName(arg); var kval = trampoline(evalExpr(nth(args, (get(state, "i") + 1)), env)); (isSxTruthy((kname == "id")) ? (lakeId = kval) : (isSxTruthy((kname == "tag")) ? (lakeTag = kval) : NIL)); 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 el = domCreateElement(lakeTag, NIL); domSetAttr(el, "data-sx-lake", sxOr(lakeId, "")); { var _c = children; for (var _i = 0; _i < _c.length; _i++) { var c = _c[_i]; domAppend(el, renderToDom(c, env, ns)); } } return el; })(); })(); }; // render-dom-marsh var renderDomMarsh = function(args, env, ns) { return (function() { var marshId = NIL; var marshTag = "div"; var marshTransform = NIL; 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 kname = keywordName(arg); var kval = trampoline(evalExpr(nth(args, (get(state, "i") + 1)), env)); (isSxTruthy((kname == "id")) ? (marshId = kval) : (isSxTruthy((kname == "tag")) ? (marshTag = kval) : (isSxTruthy((kname == "transform")) ? (marshTransform = kval) : NIL))); 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 el = domCreateElement(marshTag, NIL); domSetAttr(el, "data-sx-marsh", sxOr(marshId, "")); if (isSxTruthy(marshTransform)) { domSetData(el, "sx-marsh-transform", marshTransform); } domSetData(el, "sx-marsh-env", env); { var _c = children; for (var _i = 0; _i < _c.length; _i++) { var c = _c[_i]; domAppend(el, renderToDom(c, env, ns)); } } return el; })(); })(); }; // 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) { (function() { var existing = sxOr(domGetAttr(el, "data-sx-reactive-attrs"), ""); var updated = (isSxTruthy(isEmpty(existing)) ? attrName : (String(existing) + String(",") + String(attrName))); return domSetAttr(el, "data-sx-reactive-attrs", updated); })(); return effect(function() { return (function() { var raw = computeFn(); return (function() { var val = (isSxTruthy(isSignal(raw)) ? deref(raw) : raw); return (isSxTruthy(sxOr(isNil(val), (val == false))) ? domRemoveAttr(el, attrName) : (isSxTruthy((val == true)) ? domSetAttr(el, attrName, "") : domSetAttr(el, attrName, (String(val))))); })(); })(); }); }; // reactive-spread var reactiveSpread = function(el, renderFn) { return (function() { var prevClasses = []; var prevExtraKeys = []; (function() { var existing = sxOr(domGetAttr(el, "data-sx-reactive-attrs"), ""); return domSetAttr(el, "data-sx-reactive-attrs", (isSxTruthy(isEmpty(existing)) ? "_spread" : (String(existing) + String(",_spread")))); })(); return effect(function() { if (isSxTruthy(!isSxTruthy(isEmpty(prevClasses)))) { (function() { var current = sxOr(domGetAttr(el, "class"), ""); var tokens = filter(function(c) { return !isSxTruthy((c == "")); }, split(current, " ")); var kept = filter(function(c) { return !isSxTruthy(some(function(pc) { return (pc == c); }, prevClasses)); }, tokens); return (isSxTruthy(isEmpty(kept)) ? domRemoveAttr(el, "class") : domSetAttr(el, "class", join(" ", kept))); })(); } { var _c = prevExtraKeys; for (var _i = 0; _i < _c.length; _i++) { var k = _c[_i]; domRemoveAttr(el, k); } } return (function() { var result = renderFn(); return (isSxTruthy(isSpread(result)) ? (function() { var attrs = spreadAttrs(result); var clsStr = sxOr(dictGet(attrs, "class"), ""); var newClasses = filter(function(c) { return !isSxTruthy((c == "")); }, split(clsStr, " ")); var extraKeys = filter(function(k) { return !isSxTruthy((k == "class")); }, keys(attrs)); prevClasses = newClasses; prevExtraKeys = extraKeys; if (isSxTruthy(!isSxTruthy(isEmpty(newClasses)))) { (function() { var current = sxOr(domGetAttr(el, "class"), ""); return domSetAttr(el, "class", (isSxTruthy((isSxTruthy(current) && !isSxTruthy((current == "")))) ? (String(current) + String(" ") + String(clsStr)) : clsStr)); })(); } { var _c = extraKeys; for (var _i = 0; _i < _c.length; _i++) { var k = _c[_i]; domSetAttr(el, k, (String(dictGet(attrs, k)))); } } return flushCssxToDom(); })() : ((prevClasses = []), (prevExtraKeys = []))); })(); }); })(); }; // 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 items = deref(itemsSig); return (isSxTruthy(domParent(marker)) ? (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); })() : 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; })(); }; // 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 = 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)); } } (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 retryVersion = signal(0); domSetAttr(container, "data-sx-boundary", "true"); effect(function() { deref(retryVersion); domSetProp(container, "innerHTML", ""); 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); })(); return (_islandScope = savedScope); }, function(err) { _islandScope = savedScope; return (function() { var fallbackFn = trampoline(evalExpr(fallbackExpr, env)); 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); })(); })(); }); })(); }); 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((isSxTruthy(domHasAttr(oldNode, "data-sx-island")) && isSxTruthy(isProcessed(oldNode, "island-hydrated")) && isSxTruthy(domHasAttr(newNode, "data-sx-island")) && (domGetAttr(oldNode, "data-sx-island") == domGetAttr(newNode, "data-sx-island")))) ? morphIslandChildren(oldNode, newNode) : (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) { return (function() { var raStr = sxOr(domGetAttr(oldEl, "data-sx-reactive-attrs"), ""); var reactiveAttrs = (isSxTruthy(isEmpty(raStr)) ? [] : split(raStr, ",")); { 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(!isSxTruthy((domGetAttr(oldEl, name) == val))) && !isSxTruthy(contains(reactiveAttrs, name)))) ? domSetAttr(oldEl, name, val) : NIL); })(); } } return forEach(function(attr) { return (function() { var aname = first(attr); return (isSxTruthy((isSxTruthy(!isSxTruthy(domHasAttr(newEl, aname))) && isSxTruthy(!isSxTruthy(contains(reactiveAttrs, aname))) && !isSxTruthy((aname == "data-sx-reactive-attrs")))) ? domRemoveAttr(oldEl, aname) : 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))); })(); }; // morph-island-children var morphIslandChildren = function(oldIsland, newIsland) { return (function() { var oldLakes = domQueryAll(oldIsland, "[data-sx-lake]"); var newLakes = domQueryAll(newIsland, "[data-sx-lake]"); var oldMarshes = domQueryAll(oldIsland, "[data-sx-marsh]"); var newMarshes = domQueryAll(newIsland, "[data-sx-marsh]"); return (function() { var newLakeMap = {}; var newMarshMap = {}; { var _c = newLakes; for (var _i = 0; _i < _c.length; _i++) { var lake = _c[_i]; (function() { var id = domGetAttr(lake, "data-sx-lake"); return (isSxTruthy(id) ? dictSet(newLakeMap, id, lake) : NIL); })(); } } { var _c = newMarshes; for (var _i = 0; _i < _c.length; _i++) { var marsh = _c[_i]; (function() { var id = domGetAttr(marsh, "data-sx-marsh"); return (isSxTruthy(id) ? dictSet(newMarshMap, id, marsh) : NIL); })(); } } { var _c = oldLakes; for (var _i = 0; _i < _c.length; _i++) { var oldLake = _c[_i]; (function() { var id = domGetAttr(oldLake, "data-sx-lake"); return (function() { var newLake = dictGet(newLakeMap, id); return (isSxTruthy(newLake) ? (syncAttrs(oldLake, newLake), morphChildren(oldLake, newLake)) : NIL); })(); })(); } } { var _c = oldMarshes; for (var _i = 0; _i < _c.length; _i++) { var oldMarsh = _c[_i]; (function() { var id = domGetAttr(oldMarsh, "data-sx-marsh"); return (function() { var newMarsh = dictGet(newMarshMap, id); return (isSxTruthy(newMarsh) ? morphMarsh(oldMarsh, newMarsh, oldIsland) : NIL); })(); })(); } } return processSignalUpdates(newIsland); })(); })(); }; // morph-marsh var morphMarsh = function(oldMarsh, newMarsh, islandEl) { return (function() { var transform = domGetData(oldMarsh, "sx-marsh-transform"); var env = domGetData(oldMarsh, "sx-marsh-env"); var newHtml = domInnerHtml(newMarsh); return (isSxTruthy((isSxTruthy(env) && isSxTruthy(newHtml) && !isSxTruthy(isEmpty(newHtml)))) ? (function() { var parsed = parse(newHtml); return (function() { var sxContent = (isSxTruthy(transform) ? invoke(transform, parsed) : parsed); disposeMarshScope(oldMarsh); return withMarshScope(oldMarsh, function() { return (function() { var newDom = renderToDom(sxContent, env, NIL); domRemoveChildrenAfter(oldMarsh, NIL); return domAppend(oldMarsh, newDom); })(); }); })(); })() : (syncAttrs(oldMarsh, newMarsh), morphChildren(oldMarsh, newMarsh))); })(); }; // process-signal-updates var processSignalUpdates = function(root) { return (function() { var signalEls = domQueryAll(root, "[data-sx-signal]"); return forEach(function(el) { return (function() { var spec = domGetAttr(el, "data-sx-signal"); return (isSxTruthy(spec) ? (function() { var colonIdx = indexOf_(spec, ":"); return (isSxTruthy((colonIdx > 0)) ? (function() { var storeName = slice(spec, 0, colonIdx); var rawValue = slice(spec, (colonIdx + 1)); (function() { var parsed = jsonParse(rawValue); return reset_b(useStore(storeName), parsed); })(); return domRemoveAttr(el, "data-sx-signal"); })() : NIL); })() : NIL); })(); }, signalEls); })(); }; // 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 = ""; // 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); } (function() { var targetEl = resolveTarget(el); return (isSxTruthy((isSxTruthy(targetEl) && !isSxTruthy(isIdentical(el, targetEl)))) ? abortPreviousTarget(targetEl) : NIL); })(); return (function() { var ctrl = newAbortController(); trackController(el, ctrl); (function() { var targetEl = resolveTarget(el); return (isSxTruthy(targetEl) ? trackControllerTarget(targetEl, ctrl) : NIL); })(); 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}), (isSxTruthy((isSxTruthy(text) && (len(text) > 0))) ? handleFetchSuccess(el, finalUrl, verb, extraParams, getHeader, 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); setTimeout_(function() { if (isSxTruthy(get(respHeaders, "trigger-settle"))) { dispatchTriggerEvents(el, get(respHeaders, "trigger-settle")); } return processSettleHooks(el); }, 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); flushCssxToDom(); return processElements(root); }; // process-settle-hooks var processSettleHooks = function(el) { return (function() { var settleExpr = domGetAttr(el, "sx-on-settle"); return (isSxTruthy((isSxTruthy(settleExpr) && !isSxTruthy(isEmpty(settleExpr)))) ? (function() { var exprs = sxParse(settleExpr); return forEach(function(expr) { return evalExpr(expr, envExtend({})); }, exprs); })() : NIL); })(); }; // 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), flushCssxToDom(), 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 cache+async eval failed for ") + String(pathname) + String(" — server fallback"))), fetchAndRestore(target, pathname, buildRequestHeaders(target, loadedComponentNames(), _cssHash), 0)) : 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) + String(" — server fallback"))), fetchAndRestore(target, pathname, buildRequestHeaders(target, loadedComponentNames(), _cssHash), 0)) : swapRenderedContent(target, rendered, pathname)); }) : (function() { var rendered = tryEvalContent(contentSrc, env); return (isSxTruthy(isNil(rendered)) ? (logWarn((String("sx:route data eval failed for ") + String(pathname) + String(" — server fallback"))), fetchAndRestore(target, pathname, buildRequestHeaders(target, loadedComponentNames(), _cssHash), 0)) : 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) + String(" — server fallback"))), fetchAndRestore(target, pathname, buildRequestHeaders(target, loadedComponentNames(), _cssHash), 0)) : 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))), (function() { var exprs = sxParse(body); return domListen(el, eventName, function(e) { return (function() { var handlerEnv = envExtend({}); envSet(handlerEnv, "event", e); envSet(handlerEnv, "this", el); envSet(handlerEnv, "detail", eventDetail(e)); return forEach(function(expr) { return evalExpr(expr, handlerEnv); }, exprs); })(); }); })()) : NIL); })() : NIL); })(); }, domAttrList(el)); }, domQueryAll(sxOr(root, domBody()), "[sx-on\\:]")); }; // 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); sxHydrateIslands(el); return flushCssxToDom(); })() : 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); flushCssxToDom(); 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-init")) ? (function() { var exprs = sxParse(text); return forEach(function(expr) { return evalExpr(expr, envExtend({})); }, exprs); })() : (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 stateSx = 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 = sxOr(first(sxParse(stateSx)), {}); var disposers = []; var local = envMerge(componentClosure(comp), env); { var _c = componentParams(comp); for (var _i = 0; _i < _c.length; _i++) { var p = _c[_i]; envSet(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)))) ? (function() { var toDispose = filter(function(el) { return !isSxTruthy(isProcessed(el, "island-hydrated")); }, islands); return (isSxTruthy(!isSxTruthy(isEmpty(toDispose))) ? (logInfo((String("disposing ") + String(len(toDispose)) + String(" island(s)"))), forEach(disposeIsland, toDispose)) : NIL); })() : NIL); })() : NIL); }; // flush-cssx-to-dom var flushCssxToDom = function() { return (function() { var rules = sxCollected("cssx"); return (isSxTruthy(!isSxTruthy(isEmpty(rules))) ? ((function() { var style = sxOr(domQuery("#sx-cssx-live"), (function() { var s = domCreateElement("style", NIL); domSetAttr(s, "id", "sx-cssx-live"); domSetAttr(s, "data-cssx", ""); domAppendToHead(s); return s; })()); return domSetProp(style, "textContent", (String(sxOr(domGetProp(style, "textContent"), "")) + String(join("", rules)))); })(), sxClearCollected("cssx")) : NIL); })(); }; // boot-init var bootInit = function() { return (logInfo((String("sx-browser ") + String(SX_VERSION))), initCssTracking(), processPageScripts(), processSxScripts(NIL), sxHydrateElements(NIL), sxHydrateIslands(NIL), flushCssxToDom(), processElements(NIL)); }; // === Transpiled from deps (component dependency analysis) === // scan-refs var scanRefs = function(node) { return (function() { var refs = []; scanRefsWalk(node, refs); return refs; })(); }; // scan-refs-walk var scanRefsWalk = function(node, refs) { return (isSxTruthy((typeOf(node) == "symbol")) ? (function() { var name = symbolName(node); return (isSxTruthy(startsWith(name, "~")) ? (isSxTruthy(!isSxTruthy(contains(refs, name))) ? append_b(refs, name) : NIL) : NIL); })() : (isSxTruthy((typeOf(node) == "list")) ? forEach(function(item) { return scanRefsWalk(item, refs); }, node) : (isSxTruthy((typeOf(node) == "dict")) ? forEach(function(key) { return scanRefsWalk(dictGet(node, key), refs); }, keys(node)) : NIL))); }; // transitive-deps-walk var transitiveDepsWalk = function(n, seen, env) { return (isSxTruthy(!isSxTruthy(contains(seen, n))) ? (append_b(seen, n), (function() { var val = envGet(env, n); return (isSxTruthy(sxOr((typeOf(val) == "component"), (typeOf(val) == "island"))) ? forEach(function(ref) { return transitiveDepsWalk(ref, seen, env); }, scanRefs(componentBody(val))) : (isSxTruthy((typeOf(val) == "macro")) ? forEach(function(ref) { return transitiveDepsWalk(ref, seen, env); }, scanRefs(macroBody(val))) : NIL)); })()) : NIL); }; // transitive-deps var transitiveDeps = function(name, env) { return (function() { var seen = []; var key = (isSxTruthy(startsWith(name, "~")) ? name : (String("~") + String(name))); transitiveDepsWalk(key, seen, env); return filter(function(x) { return !isSxTruthy((x == key)); }, seen); })(); }; // compute-all-deps var computeAllDeps = function(env) { return forEach(function(name) { return (function() { var val = envGet(env, name); return (isSxTruthy(sxOr((typeOf(val) == "component"), (typeOf(val) == "island"))) ? componentSetDeps(val, transitiveDeps(name, env)) : NIL); })(); }, envComponents(env)); }; // scan-components-from-source var scanComponentsFromSource = function(source) { return (function() { var matches = regexFindAll("\\(~([a-zA-Z_][a-zA-Z0-9_\\-:/]*)", source); return map(function(m) { return (String("~") + String(m)); }, matches); })(); }; // components-needed var componentsNeeded = function(pageSource, env) { return (function() { var direct = scanComponentsFromSource(pageSource); var allNeeded = []; { var _c = direct; for (var _i = 0; _i < _c.length; _i++) { var name = _c[_i]; if (isSxTruthy(!isSxTruthy(contains(allNeeded, name)))) { allNeeded.push(name); } (function() { var val = envGet(env, name); return (function() { var deps = (isSxTruthy((isSxTruthy((typeOf(val) == "component")) && !isSxTruthy(isEmpty(componentDeps(val))))) ? componentDeps(val) : transitiveDeps(name, env)); return forEach(function(dep) { return (isSxTruthy(!isSxTruthy(contains(allNeeded, dep))) ? append_b(allNeeded, dep) : NIL); }, deps); })(); })(); } } return allNeeded; })(); }; // page-component-bundle var pageComponentBundle = function(pageSource, env) { return componentsNeeded(pageSource, env); }; // page-css-classes var pageCssClasses = function(pageSource, env) { return (function() { var needed = componentsNeeded(pageSource, env); var classes = []; { var _c = needed; for (var _i = 0; _i < _c.length; _i++) { var name = _c[_i]; (function() { var val = envGet(env, name); return (isSxTruthy((typeOf(val) == "component")) ? forEach(function(cls) { return (isSxTruthy(!isSxTruthy(contains(classes, cls))) ? append_b(classes, cls) : NIL); }, componentCssClasses(val)) : NIL); })(); } } { var _c = scanCssClasses(pageSource); for (var _i = 0; _i < _c.length; _i++) { var cls = _c[_i]; if (isSxTruthy(!isSxTruthy(contains(classes, cls)))) { classes.push(cls); } } } return classes; })(); }; // scan-io-refs-walk var scanIoRefsWalk = function(node, ioNames, refs) { return (isSxTruthy((typeOf(node) == "symbol")) ? (function() { var name = symbolName(node); return (isSxTruthy(contains(ioNames, name)) ? (isSxTruthy(!isSxTruthy(contains(refs, name))) ? append_b(refs, name) : NIL) : NIL); })() : (isSxTruthy((typeOf(node) == "list")) ? forEach(function(item) { return scanIoRefsWalk(item, ioNames, refs); }, node) : (isSxTruthy((typeOf(node) == "dict")) ? forEach(function(key) { return scanIoRefsWalk(dictGet(node, key), ioNames, refs); }, keys(node)) : NIL))); }; // scan-io-refs var scanIoRefs = function(node, ioNames) { return (function() { var refs = []; scanIoRefsWalk(node, ioNames, refs); return refs; })(); }; // transitive-io-refs-walk var transitiveIoRefsWalk = function(n, seen, allRefs, env, ioNames) { return (isSxTruthy(!isSxTruthy(contains(seen, n))) ? (append_b(seen, n), (function() { var val = envGet(env, n); return (isSxTruthy((typeOf(val) == "component")) ? (forEach(function(ref) { return (isSxTruthy(!isSxTruthy(contains(allRefs, ref))) ? append_b(allRefs, ref) : NIL); }, scanIoRefs(componentBody(val), ioNames)), forEach(function(dep) { return transitiveIoRefsWalk(dep, seen, allRefs, env, ioNames); }, scanRefs(componentBody(val)))) : (isSxTruthy((typeOf(val) == "macro")) ? (forEach(function(ref) { return (isSxTruthy(!isSxTruthy(contains(allRefs, ref))) ? append_b(allRefs, ref) : NIL); }, scanIoRefs(macroBody(val), ioNames)), forEach(function(dep) { return transitiveIoRefsWalk(dep, seen, allRefs, env, ioNames); }, scanRefs(macroBody(val)))) : NIL)); })()) : NIL); }; // transitive-io-refs var transitiveIoRefs = function(name, env, ioNames) { return (function() { var allRefs = []; var seen = []; var key = (isSxTruthy(startsWith(name, "~")) ? name : (String("~") + String(name))); transitiveIoRefsWalk(key, seen, allRefs, env, ioNames); return allRefs; })(); }; // compute-all-io-refs var computeAllIoRefs = function(env, ioNames) { return forEach(function(name) { return (function() { var val = envGet(env, name); return (isSxTruthy((typeOf(val) == "component")) ? componentSetIoRefs(val, transitiveIoRefs(name, env, ioNames)) : NIL); })(); }, envComponents(env)); }; // component-io-refs-cached var componentIoRefsCached = function(name, env, ioNames) { return (function() { var key = (isSxTruthy(startsWith(name, "~")) ? name : (String("~") + String(name))); return (function() { var val = envGet(env, key); return (isSxTruthy((isSxTruthy((typeOf(val) == "component")) && isSxTruthy(!isSxTruthy(isNil(componentIoRefs(val)))) && !isSxTruthy(isEmpty(componentIoRefs(val))))) ? componentIoRefs(val) : transitiveIoRefs(name, env, ioNames)); })(); })(); }; // component-pure? var componentPure_p = function(name, env, ioNames) { return (function() { var key = (isSxTruthy(startsWith(name, "~")) ? name : (String("~") + String(name))); return (function() { var val = envGet(env, key); return (isSxTruthy((isSxTruthy((typeOf(val) == "component")) && !isSxTruthy(isNil(componentIoRefs(val))))) ? isEmpty(componentIoRefs(val)) : isEmpty(transitiveIoRefs(name, env, ioNames))); })(); })(); }; // render-target var renderTarget = function(name, env, ioNames) { return (function() { var key = (isSxTruthy(startsWith(name, "~")) ? name : (String("~") + String(name))); return (function() { var val = envGet(env, key); return (isSxTruthy(!isSxTruthy((typeOf(val) == "component"))) ? "server" : (function() { var affinity = componentAffinity(val); return (isSxTruthy((affinity == "server")) ? "server" : (isSxTruthy((affinity == "client")) ? "client" : (isSxTruthy(!isSxTruthy(componentPure_p(name, env, ioNames))) ? "server" : "client"))); })()); })(); })(); }; // page-render-plan var pageRenderPlan = function(pageSource, env, ioNames) { return (function() { var needed = componentsNeeded(pageSource, env); var compTargets = {}; var serverList = []; var clientList = []; var ioDeps = []; { var _c = needed; for (var _i = 0; _i < _c.length; _i++) { var name = _c[_i]; (function() { var target = renderTarget(name, env, ioNames); compTargets[name] = target; return (isSxTruthy((target == "server")) ? (append_b(serverList, name), forEach(function(ioRef) { return (isSxTruthy(!isSxTruthy(contains(ioDeps, ioRef))) ? append_b(ioDeps, ioRef) : NIL); }, componentIoRefsCached(name, env, ioNames))) : append_b(clientList, name)); })(); } } return {"components": compTargets, "server": serverList, "client": clientList, "io-deps": ioDeps}; })(); }; // env-components var envComponents = function(env) { return filter(function(k) { return (function() { var v = envGet(env, k); return sxOr(isComponent(v), isMacro(v)); })(); }, keys(env)); }; // === Transpiled from page-helpers (pure data transformation helpers) === // special-form-category-map var specialFormCategoryMap = {"if": "Control Flow", "when": "Control Flow", "cond": "Control Flow", "case": "Control Flow", "and": "Control Flow", "or": "Control Flow", "let": "Binding", "let*": "Binding", "letrec": "Binding", "define": "Binding", "set!": "Binding", "lambda": "Functions & Components", "fn": "Functions & Components", "defcomp": "Functions & Components", "defmacro": "Functions & Components", "begin": "Sequencing & Threading", "do": "Sequencing & Threading", "->": "Sequencing & Threading", "quote": "Quoting", "quasiquote": "Quoting", "reset": "Continuations", "shift": "Continuations", "dynamic-wind": "Guards", "map": "Higher-Order Forms", "map-indexed": "Higher-Order Forms", "filter": "Higher-Order Forms", "reduce": "Higher-Order Forms", "some": "Higher-Order Forms", "every?": "Higher-Order Forms", "for-each": "Higher-Order Forms", "defstyle": "Domain Definitions", "defhandler": "Domain Definitions", "defpage": "Domain Definitions", "defquery": "Domain Definitions", "defaction": "Domain Definitions"}; // extract-define-kwargs var extractDefineKwargs = function(expr) { return (function() { var result = {}; var items = slice(expr, 2); var n = len(items); { var _c = range(0, n); for (var _i = 0; _i < _c.length; _i++) { var idx = _c[_i]; if (isSxTruthy((isSxTruthy(((idx + 1) < n)) && (typeOf(nth(items, idx)) == "keyword")))) { (function() { var key = keywordName(nth(items, idx)); var val = nth(items, (idx + 1)); return dictSet(result, key, (isSxTruthy((typeOf(val) == "list")) ? (String("(") + String(join(" ", map(serialize, val))) + String(")")) : (String(val)))); })(); } } } return result; })(); }; // categorize-special-forms var categorizeSpecialForms = function(parsedExprs) { return (function() { var categories = {}; { var _c = parsedExprs; for (var _i = 0; _i < _c.length; _i++) { var expr = _c[_i]; if (isSxTruthy((isSxTruthy((typeOf(expr) == "list")) && isSxTruthy((len(expr) >= 2)) && isSxTruthy((typeOf(first(expr)) == "symbol")) && (symbolName(first(expr)) == "define-special-form")))) { (function() { var name = nth(expr, 1); var kwargs = extractDefineKwargs(expr); var category = sxOr(get(specialFormCategoryMap, name), "Other"); if (isSxTruthy(!isSxTruthy(dictHas(categories, category)))) { categories[category] = []; } return append_b(get(categories, category), {"name": name, "syntax": sxOr(get(kwargs, "syntax"), ""), "doc": sxOr(get(kwargs, "doc"), ""), "tail-position": sxOr(get(kwargs, "tail-position"), ""), "example": sxOr(get(kwargs, "example"), "")}); })(); } } } return categories; })(); }; // build-ref-items-with-href var buildRefItemsWithHref = function(items, basePath, detailKeys, nFields) { return map(function(item) { return (isSxTruthy((nFields == 3)) ? (function() { var name = nth(item, 0); var field2 = nth(item, 1); var field3 = nth(item, 2); return {"name": name, "desc": field2, "exists": field3, "href": (isSxTruthy((isSxTruthy(field3) && some(function(k) { return (k == name); }, detailKeys))) ? (String(basePath) + String(name)) : NIL)}; })() : (function() { var name = nth(item, 0); var desc = nth(item, 1); return {"name": name, "desc": desc, "href": (isSxTruthy(some(function(k) { return (k == name); }, detailKeys)) ? (String(basePath) + String(name)) : NIL)}; })()); }, items); }; // build-reference-data var buildReferenceData = function(slug, rawData, detailKeys) { return (function() { var _m = slug; if (_m == "attributes") return {"req-attrs": buildRefItemsWithHref(get(rawData, "req-attrs"), "/geography/hypermedia/reference/attributes/", detailKeys, 3), "beh-attrs": buildRefItemsWithHref(get(rawData, "beh-attrs"), "/geography/hypermedia/reference/attributes/", detailKeys, 3), "uniq-attrs": buildRefItemsWithHref(get(rawData, "uniq-attrs"), "/geography/hypermedia/reference/attributes/", detailKeys, 3)}; if (_m == "headers") return {"req-headers": buildRefItemsWithHref(get(rawData, "req-headers"), "/geography/hypermedia/reference/headers/", detailKeys, 3), "resp-headers": buildRefItemsWithHref(get(rawData, "resp-headers"), "/geography/hypermedia/reference/headers/", detailKeys, 3)}; if (_m == "events") return {"events-list": buildRefItemsWithHref(get(rawData, "events-list"), "/geography/hypermedia/reference/events/", detailKeys, 2)}; if (_m == "js-api") return {"js-api-list": map(function(item) { return {"name": nth(item, 0), "desc": nth(item, 1)}; }, get(rawData, "js-api-list"))}; return {"req-attrs": buildRefItemsWithHref(get(rawData, "req-attrs"), "/geography/hypermedia/reference/attributes/", detailKeys, 3), "beh-attrs": buildRefItemsWithHref(get(rawData, "beh-attrs"), "/geography/hypermedia/reference/attributes/", detailKeys, 3), "uniq-attrs": buildRefItemsWithHref(get(rawData, "uniq-attrs"), "/geography/hypermedia/reference/attributes/", detailKeys, 3)}; })(); }; // build-attr-detail var buildAttrDetail = function(slug, detail) { return (isSxTruthy(isNil(detail)) ? {"attr-not-found": true} : {"attr-not-found": NIL, "attr-title": slug, "attr-description": get(detail, "description"), "attr-example": get(detail, "example"), "attr-handler": get(detail, "handler"), "attr-demo": get(detail, "demo"), "attr-wire-id": (isSxTruthy(dictHas(detail, "handler")) ? (String("ref-wire-") + String(replace_(replace_(slug, ":", "-"), "*", "star"))) : NIL)}); }; // build-header-detail var buildHeaderDetail = function(slug, detail) { return (isSxTruthy(isNil(detail)) ? {"header-not-found": true} : {"header-not-found": NIL, "header-title": slug, "header-direction": get(detail, "direction"), "header-description": get(detail, "description"), "header-example": get(detail, "example"), "header-demo": get(detail, "demo")}); }; // build-event-detail var buildEventDetail = function(slug, detail) { return (isSxTruthy(isNil(detail)) ? {"event-not-found": true} : {"event-not-found": NIL, "event-title": slug, "event-description": get(detail, "description"), "event-example": get(detail, "example"), "event-demo": get(detail, "demo")}); }; // build-component-source var buildComponentSource = function(compData) { return (function() { var compType = get(compData, "type"); var name = get(compData, "name"); var params = get(compData, "params"); var hasChildren = get(compData, "has-children"); var bodySx = get(compData, "body-sx"); var affinity = get(compData, "affinity"); return (isSxTruthy((compType == "not-found")) ? (String(";; component ") + String(name) + String(" not found")) : (function() { var paramStrs = (isSxTruthy(isEmpty(params)) ? (isSxTruthy(hasChildren) ? ["&rest", "children"] : []) : (isSxTruthy(hasChildren) ? append(cons("&key", params), ["&rest", "children"]) : cons("&key", params))); var paramsSx = (String("(") + String(join(" ", paramStrs)) + String(")")); var formName = (isSxTruthy((compType == "island")) ? "defisland" : "defcomp"); var affinityStr = (isSxTruthy((isSxTruthy((compType == "component")) && isSxTruthy(!isSxTruthy(isNil(affinity))) && !isSxTruthy((affinity == "auto")))) ? (String(" :affinity ") + String(affinity)) : ""); return (String("(") + String(formName) + String(" ") + String(name) + String(" ") + String(paramsSx) + String(affinityStr) + String("\n ") + String(bodySx) + String(")")); })()); })(); }; // build-bundle-analysis var buildBundleAnalysis = function(pagesRaw, componentsRaw, totalComponents, totalMacros, pureCount, ioCount) { return (function() { var pagesData = []; { var _c = pagesRaw; for (var _i = 0; _i < _c.length; _i++) { var page = _c[_i]; (function() { var neededNames = get(page, "needed-names"); var n = len(neededNames); var pct = (isSxTruthy((totalComponents > 0)) ? round(((n / totalComponents) * 100)) : 0); var savings = (100 - pct); var pureInPage = 0; var ioInPage = 0; var pageIoRefs = []; var compDetails = []; { var _c = neededNames; for (var _i = 0; _i < _c.length; _i++) { var compName = _c[_i]; (function() { var info = get(componentsRaw, compName); return (isSxTruthy(!isSxTruthy(isNil(info))) ? ((isSxTruthy(get(info, "is-pure")) ? (pureInPage = (pureInPage + 1)) : ((ioInPage = (ioInPage + 1)), forEach(function(ref) { return (isSxTruthy(!isSxTruthy(some(function(r) { return (r == ref); }, pageIoRefs))) ? append_b(pageIoRefs, ref) : NIL); }, sxOr(get(info, "io-refs"), [])))), append_b(compDetails, {"name": compName, "is-pure": get(info, "is-pure"), "affinity": get(info, "affinity"), "render-target": get(info, "render-target"), "io-refs": sxOr(get(info, "io-refs"), []), "deps": sxOr(get(info, "deps"), []), "source": get(info, "source")})) : NIL); })(); } } return append_b(pagesData, {"name": get(page, "name"), "path": get(page, "path"), "direct": get(page, "direct"), "needed": n, "pct": pct, "savings": savings, "io-refs": len(pageIoRefs), "pure-in-page": pureInPage, "io-in-page": ioInPage, "components": compDetails}); })(); } } return {"pages": pagesData, "total-components": totalComponents, "total-macros": totalMacros, "pure-count": pureCount, "io-count": ioCount}; })(); }; // build-routing-analysis var buildRoutingAnalysis = function(pagesRaw) { return (function() { var pagesData = []; var clientCount = 0; var serverCount = 0; { var _c = pagesRaw; for (var _i = 0; _i < _c.length; _i++) { var page = _c[_i]; (function() { var hasData = get(page, "has-data"); var contentSrc = sxOr(get(page, "content-src"), ""); var mode = NIL; var reason = ""; (isSxTruthy(hasData) ? ((mode = "server"), (reason = "Has :data expression — needs server IO"), (serverCount = (serverCount + 1))) : (isSxTruthy(isEmpty(contentSrc)) ? ((mode = "server"), (reason = "No content expression"), (serverCount = (serverCount + 1))) : ((mode = "client"), (clientCount = (clientCount + 1))))); return append_b(pagesData, {"name": get(page, "name"), "path": get(page, "path"), "mode": mode, "has-data": hasData, "content-expr": (isSxTruthy((len(contentSrc) > 80)) ? (String(slice(contentSrc, 0, 80)) + String("...")) : contentSrc), "reason": reason}); })(); } } return {"pages": pagesData, "total-pages": (clientCount + serverCount), "client-count": clientCount, "server-count": serverCount}; })(); }; // build-affinity-analysis var buildAffinityAnalysis = function(demoComponents, pagePlans) { return {"components": demoComponents, "page-plans": pagePlans}; }; // === 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 matchPath = (isSxTruthy(startsWith(path, "/(")) ? sxOr(sxUrlToPath(path), path) : path); return (function() { var pathSegs = splitPathSegments(matchPath); 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; })(); })(); }; // _fn-to-segment var _fnToSegment = function(name) { return (function() { var _m = name; if (_m == "doc") return "docs"; if (_m == "spec") return "specs"; if (_m == "bootstrapper") return "bootstrappers"; if (_m == "test") return "testing"; if (_m == "example") return "examples"; if (_m == "protocol") return "protocols"; if (_m == "essay") return "essays"; if (_m == "plan") return "plans"; if (_m == "reference-detail") return "reference"; return name; })(); }; // sx-url-to-path var sxUrlToPath = function(url) { return (isSxTruthy(!isSxTruthy((isSxTruthy(startsWith(url, "/(")) && endsWith(url, ")")))) ? NIL : (function() { var inner = slice(url, 2, (len(url) - 1)); return (function() { var s = replace_(replace_(replace_(inner, ".", "/"), "(", ""), ")", ""); return (function() { var segs = filter(function(s) { return !isSxTruthy(isEmpty(s)); }, split(s, "/")); return (String("/") + String(join("/", map(_fnToSegment, segs)))); })(); })(); })()); }; // _count-leading-dots var _countLeadingDots = function(s) { return (isSxTruthy(isEmpty(s)) ? 0 : (isSxTruthy(startsWith(s, ".")) ? (1 + _countLeadingDots(slice(s, 1))) : 0)); }; // _strip-trailing-close var _stripTrailingClose = function(s) { return (isSxTruthy(endsWith(s, ")")) ? _stripTrailingClose(slice(s, 0, (len(s) - 1))) : s); }; // _index-of-safe var _indexOfSafe = function(s, needle) { return (function() { var idx = indexOf_(s, needle); return (isSxTruthy(sxOr(isNil(idx), (idx < 0))) ? NIL : idx); })(); }; // _last-index-of var _lastIndexOf = function(s, needle) { return (function() { var idx = _indexOfSafe(s, needle); return (isSxTruthy(isNil(idx)) ? NIL : (function() { var restIdx = _lastIndexOf(slice(s, (idx + 1)), needle); return (isSxTruthy(isNil(restIdx)) ? idx : ((idx + 1) + restIdx)); })()); })(); }; // _pop-sx-url-level var _popSxUrlLevel = function(url) { return (function() { var stripped = _stripTrailingClose(url); var closeCount = (len(url) - len(_stripTrailingClose(url))); return (isSxTruthy((closeCount <= 1)) ? "/" : (function() { var lastDp = _lastIndexOf(stripped, ".("); return (isSxTruthy(isNil(lastDp)) ? "/" : (String(slice(stripped, 0, lastDp)) + String(slice(url, (len(url) - (closeCount - 1)))))); })()); })(); }; // _pop-sx-url-levels var _popSxUrlLevels = function(url, n) { return (isSxTruthy((n <= 0)) ? url : _popSxUrlLevels(_popSxUrlLevel(url), (n - 1))); }; // _split-pos-kw var _splitPosKw = function(tokens, i, pos, kw) { return (isSxTruthy((i >= len(tokens))) ? {"positional": join(".", pos), "keywords": kw} : (function() { var tok = nth(tokens, i); return (isSxTruthy(startsWith(tok, ":")) ? (function() { var val = (isSxTruthy(((i + 1) < len(tokens))) ? nth(tokens, (i + 1)) : ""); return _splitPosKw(tokens, (i + 2), pos, append(kw, [[tok, val]])); })() : _splitPosKw(tokens, (i + 1), append(pos, [tok]), kw)); })()); }; // _parse-relative-body var _parseRelativeBody = function(body) { return (isSxTruthy(isEmpty(body)) ? {"positional": "", "keywords": []} : _splitPosKw(split(body, "."), 0, [], [])); }; // _extract-innermost var _extractInnermost = function(url) { return (function() { var stripped = _stripTrailingClose(url); var suffix = slice(url, len(_stripTrailingClose(url))); return (function() { var lastDp = _lastIndexOf(stripped, ".("); return (isSxTruthy(isNil(lastDp)) ? {"before": "/(", "content": slice(stripped, 2), "suffix": suffix} : {"before": slice(stripped, 0, (lastDp + 2)), "content": slice(stripped, (lastDp + 2)), "suffix": suffix}); })(); })(); }; // _find-kw-in-tokens var _findKwInTokens = function(tokens, i, kw) { return (isSxTruthy((i >= len(tokens))) ? NIL : (isSxTruthy((isSxTruthy((nth(tokens, i) == kw)) && ((i + 1) < len(tokens)))) ? nth(tokens, (i + 1)) : _findKwInTokens(tokens, (i + 1), kw))); }; // _find-keyword-value var _findKeywordValue = function(content, kw) { return _findKwInTokens(split(content, "."), 0, kw); }; // _replace-kw-in-tokens var _replaceKwInTokens = function(tokens, i, kw, value) { return (isSxTruthy((i >= len(tokens))) ? [] : (isSxTruthy((isSxTruthy((nth(tokens, i) == kw)) && ((i + 1) < len(tokens)))) ? append([kw, value], _replaceKwInTokens(tokens, (i + 2), kw, value)) : cons(nth(tokens, i), _replaceKwInTokens(tokens, (i + 1), kw, value)))); }; // _set-keyword-in-content var _setKeywordInContent = function(content, kw, value) { return (function() { var current = _findKeywordValue(content, kw); return (isSxTruthy(isNil(current)) ? (String(content) + String(".") + String(kw) + String(".") + String(value)) : join(".", _replaceKwInTokens(split(content, "."), 0, kw, value))); })(); }; // _is-delta-value? var _isDeltaValue_p = function(s) { return (isSxTruthy(!isSxTruthy(isEmpty(s))) && isSxTruthy((len(s) > 1)) && sxOr(startsWith(s, "+"), startsWith(s, "-"))); }; // _apply-delta var _applyDelta = function(currentStr, deltaStr) { return (function() { var cur = parseInt_(currentStr, NIL); var delta = parseInt_(deltaStr, NIL); return (isSxTruthy(sxOr(isNil(cur), isNil(delta))) ? deltaStr : (String((cur + delta)))); })(); }; // _apply-kw-pairs var _applyKwPairs = function(content, kwPairs) { return (isSxTruthy(isEmpty(kwPairs)) ? content : (function() { var pair = first(kwPairs); var kw = first(pair); var rawVal = nth(pair, 1); return (function() { var actualVal = (isSxTruthy(_isDeltaValue_p(rawVal)) ? (function() { var current = _findKeywordValue(content, kw); return (isSxTruthy(isNil(current)) ? rawVal : _applyDelta(current, rawVal)); })() : rawVal); return _applyKwPairs(_setKeywordInContent(content, kw, actualVal), rest(kwPairs)); })(); })()); }; // _apply-keywords-to-url var _applyKeywordsToUrl = function(url, kwPairs) { return (isSxTruthy(isEmpty(kwPairs)) ? url : (function() { var parts = _extractInnermost(url); return (function() { var newContent = _applyKwPairs(get(parts, "content"), kwPairs); return (String(get(parts, "before")) + String(newContent) + String(get(parts, "suffix"))); })(); })()); }; // _normalize-relative var _normalizeRelative = function(url) { return (isSxTruthy(startsWith(url, "(")) ? url : (String("(") + String(url) + String(")"))); }; // resolve-relative-url var resolveRelativeUrl = function(current, relative) { return (function() { var canonical = _normalizeRelative(relative); return (function() { var relInner = slice(canonical, 1, (len(canonical) - 1)); return (function() { var dots = _countLeadingDots(relInner); var body = slice(relInner, _countLeadingDots(relInner)); return (isSxTruthy((dots == 0)) ? current : (function() { var parsed = _parseRelativeBody(body); var posBody = get(parsed, "positional"); var kwPairs = get(parsed, "keywords"); return (function() { var afterNav = (isSxTruthy((dots == 1)) ? (isSxTruthy(isEmpty(posBody)) ? current : (function() { var stripped = _stripTrailingClose(current); var suffix = slice(current, len(_stripTrailingClose(current))); return (String(stripped) + String(".") + String(posBody) + String(suffix)); })()) : (function() { var base = _popSxUrlLevels(current, (dots - 1)); return (isSxTruthy(isEmpty(posBody)) ? base : (isSxTruthy((base == "/")) ? (String("/(") + String(posBody) + String(")")) : (function() { var stripped = _stripTrailingClose(base); var suffix = slice(base, len(_stripTrailingClose(base))); return (String(stripped) + String(".(") + String(posBody) + String(")") + String(suffix)); })())); })()); return _applyKeywordsToUrl(afterNav, kwPairs); })(); })()); })(); })(); })(); }; // relative-sx-url? var relativeSxUrl_p = function(url) { return sxOr((isSxTruthy(startsWith(url, "(")) && !isSxTruthy(startsWith(url, "/("))), startsWith(url, ".")); }; // _url-special-forms var _urlSpecialForms = function() { return ["!source", "!inspect", "!diff", "!search", "!raw", "!json"]; }; // url-special-form? var urlSpecialForm_p = function(name) { return (isSxTruthy(startsWith(name, "!")) && contains(_urlSpecialForms(), name)); }; // parse-sx-url var parseSxUrl = function(url) { return (isSxTruthy((url == "/")) ? {"type": "home", "raw": url} : (isSxTruthy(relativeSxUrl_p(url)) ? {"type": "relative", "raw": url} : (isSxTruthy((isSxTruthy(startsWith(url, "/(!")) && endsWith(url, ")"))) ? (function() { var inner = slice(url, 2, (len(url) - 1)); return (function() { var dotPos = _indexOfSafe(inner, "."); var parenPos = _indexOfSafe(inner, "("); return (function() { var endPos = (isSxTruthy((isSxTruthy(isNil(dotPos)) && isNil(parenPos))) ? len(inner) : (isSxTruthy(isNil(dotPos)) ? parenPos : (isSxTruthy(isNil(parenPos)) ? dotPos : min(dotPos, parenPos)))); return (function() { var formName = slice(inner, 0, endPos); var restPart = slice(inner, endPos); return (function() { var innerExpr = (isSxTruthy(startsWith(restPart, ".")) ? slice(restPart, 1) : restPart); return {"type": "special-form", "form": formName, "inner": innerExpr, "raw": url}; })(); })(); })(); })(); })() : (isSxTruthy((isSxTruthy(startsWith(url, "/(~")) && endsWith(url, ")"))) ? (function() { var name = slice(url, 2, (len(url) - 1)); return {"type": "direct-component", "name": name, "raw": url}; })() : (isSxTruthy((isSxTruthy(startsWith(url, "/(")) && endsWith(url, ")"))) ? {"type": "absolute", "raw": url} : {"type": "path", "raw": url}))))); }; // url-special-form-name var urlSpecialFormName = function(url) { return (function() { var parsed = parseSxUrl(url); return (isSxTruthy((get(parsed, "type") == "special-form")) ? get(parsed, "form") : NIL); })(); }; // url-special-form-inner var urlSpecialFormInner = function(url) { return (function() { var parsed = parseSxUrl(url); return (isSxTruthy((get(parsed, "type") == "special-form")) ? get(parsed, "inner") : NIL); })(); }; // url-to-expr var urlToExpr = function(urlPath) { return (isSxTruthy(sxOr((urlPath == "/"), isEmpty(urlPath))) ? [] : (function() { var trimmed = (isSxTruthy(startsWith(urlPath, "/")) ? slice(urlPath, 1) : urlPath); return (function() { var sxSource = replace_(trimmed, ".", " "); return (function() { var exprs = sxParse(sxSource); return (isSxTruthy(isEmpty(exprs)) ? [] : first(exprs)); })(); })(); })()); }; // auto-quote-unknowns var autoQuoteUnknowns = function(expr, env) { return (isSxTruthy(!isSxTruthy(isList(expr))) ? expr : (isSxTruthy(isEmpty(expr)) ? expr : cons(first(expr), map(function(child) { return (isSxTruthy(isList(child)) ? autoQuoteUnknowns(child, env) : (isSxTruthy((typeOf(child) == "symbol")) ? (function() { var name = symbolName(child); return (isSxTruthy(sxOr(envHas(env, name), startsWith(name, ":"), startsWith(name, "~"), startsWith(name, "!"))) ? child : name); })() : child)); }, rest(expr))))); }; // prepare-url-expr var prepareUrlExpr = function(urlPath, env) { return (function() { var expr = urlToExpr(urlPath); return (isSxTruthy(isEmpty(expr)) ? expr : autoQuoteUnknowns(expr, env)); })(); }; // === 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 = 0; // *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); }; // with-marsh-scope var withMarshScope = function(marshEl, bodyFn) { return (function() { var disposers = []; withIslandScope(function(d) { return append_b(disposers, d); }, bodyFn); return domSetData(marshEl, "sx-marsh-disposers", disposers); })(); }; // dispose-marsh-scope var disposeMarshScope = function(marshEl) { return (function() { var disposers = domGetData(marshEl, "sx-marsh-disposers"); return (isSxTruthy(disposers) ? (forEach(function(d) { return invoke(d); }, disposers), domSetData(marshEl, "sx-marsh-disposers", NIL)) : NIL); })(); }; // *store-registry* var _storeRegistry = {}; // def-store var defStore = function(name, initFn) { return (function() { var registry = _storeRegistry; if (isSxTruthy(!isSxTruthy(dictHas(registry, name)))) { _storeRegistry = assoc(registry, name, invoke(initFn)); } return get(_storeRegistry, name); })(); }; // 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 = {}); }; // 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); }; _renderMode = true; // Browser always evaluates in render context. 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 && !child._spread) 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 && !node._spread) { 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; } // Call a method on an object with correct this binding: (dom-call-method obj "methodName" arg1 arg2 ...) function domCallMethod() { var obj = arguments[0], method = arguments[1]; var args = Array.prototype.slice.call(arguments, 2); if (obj && typeof obj[method] === 'function') { try { return obj[method].apply(obj, args); } catch(e) { console.error("[sx] dom-call-method error:", e); return NIL; } } return NIL; } // Post a message to an iframe's contentWindow without exposing the cross-origin // Window object to the SX evaluator (which would trigger _thunk access errors). function domPostMessage(iframe, msg, origin) { try { if (iframe && iframe.contentWindow) { iframe.contentWindow.postMessage(msg, origin || '*'); } } catch(e) { console.error("[sx] domPostMessage error:", e); } return NIL; } 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 // If lambda takes 0 params, call without event arg (convenience for on-click handlers) var wrapped = isLambda(handler) ? (lambdaParams(handler).length === 0 ? function(e) { try { invoke(handler); } catch(err) { console.error("[sx-ref] domListen handler error:", name, err); } } : function(e) { try { invoke(handler, e); } catch(err) { console.error("[sx-ref] domListen handler error:", name, err); } }) : handler; if (name === "click") logInfo("domListen: click on <" + (el.tagName||"?").toLowerCase() + "> text=" + (el.textContent||"").substring(0,20) + " isLambda=" + isLambda(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 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)); } 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 domInnerHtml(el) { return (el && el.innerHTML != null) ? el.innerHTML : ""; } 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 (typeof performance !== "undefined") ? performance.now() : 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; } function promiseDelayed(ms, value) { return new Promise(function(resolve) { setTimeout(function() { resolve(value); }, ms); }); } // --- 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); } var _targetControllers = typeof WeakMap !== "undefined" ? new WeakMap() : null; function abortPreviousTarget(el) { if (_targetControllers) { var prev = _targetControllers.get(el); if (prev) prev.abort(); } } function trackControllerTarget(el, ctrl) { if (_targetControllers) _targetControllers.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) { var cb = _wrapSxFn(fn); if (typeof requestAnimationFrame !== "undefined") requestAnimationFrame(cb); else setTimeout(cb, 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 or data-init). // These contain extra component defs from streaming resolve chunks. // data-init scripts are preserved for process-sx-scripts to evaluate as side effects. var SxObj = typeof Sx !== "undefined" ? Sx : null; return text.replace(/]*type="text\/sx"[^>]*>[\s\S]*?<\/script>/gi, function(match) { if (/data-init/.test(match)) return match; // preserve data-init scripts var m = match.match(/]*>([\s\S]*?)<\/script>/i); if (m && SxObj && SxObj.loadComponents) SxObj.loadComponents(m[1]); 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 && !node._spread) 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); } } // ========================================================================= // Post-transpilation fixups // ========================================================================= // The reference spec's call-lambda only handles Lambda objects, but HO forms // (map, reduce, etc.) may receive native primitives. Wrap to handle both. var _rawCallLambda = callLambda; callLambda = function(f, args, callerEnv) { if (typeof f === "function") return f.apply(null, args); return _rawCallLambda(f, args, callerEnv); }; // Expose render functions as primitives so SX code can call them 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["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["dom-set-prop"] = domSetProp; PRIMITIVES["dom-call-method"] = domCallMethod; PRIMITIVES["dom-post-message"] = domPostMessage; 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; // DOM primitives for sx-on:* handlers and data-init scripts if (typeof domBody === "function") PRIMITIVES["dom-body"] = domBody; if (typeof domQuery === "function") PRIMITIVES["dom-query"] = domQuery; if (typeof domQueryAll === "function") PRIMITIVES["dom-query-all"] = domQueryAll; if (typeof domQueryById === "function") PRIMITIVES["dom-query-by-id"] = domQueryById; if (typeof domSetAttr === "function") PRIMITIVES["dom-set-attr"] = domSetAttr; if (typeof domGetAttr === "function") PRIMITIVES["dom-get-attr"] = domGetAttr; if (typeof domRemoveAttr === "function") PRIMITIVES["dom-remove-attr"] = domRemoveAttr; if (typeof domHasAttr === "function") PRIMITIVES["dom-has-attr?"] = domHasAttr; if (typeof domAddClass === "function") PRIMITIVES["dom-add-class"] = domAddClass; if (typeof domRemoveClass === "function") PRIMITIVES["dom-remove-class"] = domRemoveClass; if (typeof domHasClass === "function") PRIMITIVES["dom-has-class?"] = domHasClass; if (typeof domClosest === "function") PRIMITIVES["dom-closest"] = domClosest; if (typeof domMatches === "function") PRIMITIVES["dom-matches?"] = domMatches; if (typeof preventDefault_ === "function") PRIMITIVES["prevent-default"] = preventDefault_; if (typeof elementValue === "function") PRIMITIVES["element-value"] = elementValue; if (typeof domOuterHtml === "function") PRIMITIVES["dom-outer-html"] = domOuterHtml; if (typeof domInnerHtml === "function") PRIMITIVES["dom-inner-html"] = domInnerHtml; if (typeof domTextContent === "function") PRIMITIVES["dom-text-content"] = domTextContent; if (typeof jsonParse === "function") PRIMITIVES["json-parse"] = jsonParse; if (typeof nowMs === "function") PRIMITIVES["now-ms"] = nowMs; PRIMITIVES["sx-parse"] = sxParse; PRIMITIVES["console-log"] = function() { console.log.apply(console, ["[sx]"].concat(Array.prototype.slice.call(arguments))); return arguments.length > 0 ? arguments[0] : NIL; }; // Expose deps module functions as primitives so runtime-evaluated SX code // (e.g. test-deps.sx in browser) can call them // Platform functions (from PLATFORM_DEPS_JS) PRIMITIVES["component-deps"] = componentDeps; PRIMITIVES["component-set-deps!"] = componentSetDeps; PRIMITIVES["component-css-classes"] = componentCssClasses; PRIMITIVES["env-components"] = envComponents; PRIMITIVES["regex-find-all"] = regexFindAll; PRIMITIVES["scan-css-classes"] = scanCssClasses; // Transpiled functions (from deps.sx) PRIMITIVES["scan-refs"] = scanRefs; PRIMITIVES["scan-refs-walk"] = scanRefsWalk; PRIMITIVES["transitive-deps"] = transitiveDeps; PRIMITIVES["transitive-deps-walk"] = transitiveDepsWalk; PRIMITIVES["compute-all-deps"] = computeAllDeps; PRIMITIVES["scan-components-from-source"] = scanComponentsFromSource; PRIMITIVES["components-needed"] = componentsNeeded; PRIMITIVES["page-component-bundle"] = pageComponentBundle; PRIMITIVES["page-css-classes"] = pageCssClasses; PRIMITIVES["scan-io-refs-walk"] = scanIoRefsWalk; PRIMITIVES["scan-io-refs"] = scanIoRefs; PRIMITIVES["transitive-io-refs-walk"] = transitiveIoRefsWalk; PRIMITIVES["transitive-io-refs"] = transitiveIoRefs; PRIMITIVES["compute-all-io-refs"] = computeAllIoRefs; PRIMITIVES["component-io-refs-cached"] = componentIoRefsCached; PRIMITIVES["component-pure?"] = componentPure_p; PRIMITIVES["render-target"] = renderTarget; PRIMITIVES["page-render-plan"] = pageRenderPlan; // Expose page-helper functions as primitives PRIMITIVES["categorize-special-forms"] = categorizeSpecialForms; PRIMITIVES["extract-define-kwargs"] = extractDefineKwargs; PRIMITIVES["build-reference-data"] = buildReferenceData; PRIMITIVES["build-ref-items-with-href"] = buildRefItemsWithHref; PRIMITIVES["build-attr-detail"] = buildAttrDetail; PRIMITIVES["build-header-detail"] = buildHeaderDetail; PRIMITIVES["build-event-detail"] = buildEventDetail; PRIMITIVES["build-component-source"] = buildComponentSource; PRIMITIVES["build-bundle-analysis"] = buildBundleAnalysis; PRIMITIVES["build-routing-analysis"] = buildRoutingAnalysis; PRIMITIVES["build-affinity-analysis"] = buildAffinityAnalysis; // ========================================================================= // 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; } 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 && !result._spread) { 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) { if (child._spread) { // Spread: merge attrs onto parent element var sa = child.attrs || {}; for (var sk in sa) { if (sk === "class") { var ec = el.getAttribute("class") || ""; el.setAttribute("class", ec ? ec + " " + sa[sk] : sa[sk]); } else if (sk === "style") { var es = el.getAttribute("style") || ""; el.setAttribute("style", es ? es + ";" + sa[sk] : sa[sk]); } else { el.setAttribute(sk, String(sa[sk])); } } } else { 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 && !result._spread) { 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 && !result._spread) { 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 // ========================================================================= var componentEnv = {}; function loadComponents(source) { var exprs = parse(source); for (var i = 0; i < exprs.length; i++) { trampoline(evalExpr(exprs[i], componentEnv)); } } 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++) { var _r = renderToDom(exprs[i], merge(componentEnv), null); if (_r && !_r._spread) frag.appendChild(_r); } return frag; } function renderToString(source) { 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 Sx = { VERSION: "ref-2.0", parse: parse, parseAll: parse, eval: function(expr, env) { return trampoline(evalExpr(expr, env || merge(componentEnv))); }, loadComponents: loadComponents, render: render, renderToString: renderToString, serialize: serialize, NIL: NIL, Symbol: Symbol, Keyword: Keyword, isTruthy: isSxTruthy, isNil: isNil, 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, scanRefs: scanRefs, scanComponentsFromSource: scanComponentsFromSource, transitiveDeps: transitiveDeps, computeAllDeps: computeAllDeps, componentsNeeded: componentsNeeded, pageComponentBundle: pageComponentBundle, pageCssClasses: pageCssClasses, scanIoRefs: scanIoRefs, transitiveIoRefs: transitiveIoRefs, computeAllIoRefs: computeAllIoRefs, componentPure_p: componentPure_p, categorizeSpecialForms: categorizeSpecialForms, buildReferenceData: buildReferenceData, buildAttrDetail: buildAttrDetail, buildHeaderDetail: buildHeaderDetail, buildEventDetail: buildEventDetail, buildComponentSource: buildComponentSource, buildBundleAnalysis: buildBundleAnalysis, buildRoutingAnalysis: buildRoutingAnalysis, buildAffinityAnalysis: buildAffinityAnalysis, splitPathSegments: splitPathSegments, parseRoutePattern: parseRoutePattern, matchRoute: matchRoute, findMatchingRoute: findMatchingRoute, urlToExpr: urlToExpr, autoQuoteUnknowns: autoQuoteUnknowns, prepareUrlExpr: prepareUrlExpr, 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, makeSpread: makeSpread, isSpread: isSpread, spreadAttrs: spreadAttrs, collect: sxCollect, collected: sxCollected, clearCollected: sxClearCollected, providePush: providePush, providePop: providePop, context: sxContext, emit: sxEmit, emitted: sxEmitted, _version: "ref-2.0 (boot+dom+engine+html+orchestration+parser+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; })(typeof globalThis !== "undefined" ? globalThis : typeof window !== "undefined" ? window : this);