/** * 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"; } }); 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) { this.name = name; this.params = params; this.hasChildren = hasChildren; this.body = body; this.closure = closure || {}; } Component.prototype._component = true; 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 StyleValue(className, declarations, mediaRules, pseudoRules, keyframes) { this.className = className; this.declarations = declarations || ""; this.mediaRules = mediaRules || []; this.pseudoRules = pseudoRules || []; this.keyframes = keyframes || []; } StyleValue.prototype._styleValue = true; 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._macro) return "macro"; if (x._raw) return "raw-html"; if (x._styleValue) return "style-value"; 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) { return new Component(name, params, hasChildren, body, merge(env)); } 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 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 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 isMacro(x) { return x != null && x._macro === true; } function isStyleValue(x) { return x != null && x._styleValue === true; } function styleValueClass(x) { return x.className; } function styleValue_p(x) { return x != null && x._styleValue === true; } function buildKeyframes(kfName, steps, env) { // Platform implementation of defkeyframes var parts = []; for (var i = 0; i < steps.length; i++) { var step = steps[i]; var selector = isSym(step[0]) ? step[0].name : String(step[0]); var body = trampoline(evalExpr(step[1], env)); var decls = isStyleValue(body) ? body.declarations : String(body); parts.push(selector + "{" + decls + "}"); } var kfRule = "@keyframes " + kfName + "{" + parts.join("") + "}"; var cn = "sx-ref-kf-" + kfName; var sv = new StyleValue(cn, "animation-name:" + kfName, [], [], [[kfName, kfRule]]); env[kfName] = sv; return sv; } function envHas(env, name) { return name in env; } function envGet(env, name) { return env[name]; } function envSet(env, name, val) { env[name] = val; } function envExtend(env) { return merge(env); } function envMerge(base, overlay) { return merge(base, overlay); } function dictSet(d, k, v) { d[k] = v; } function dictGet(d, k) { var v = d[k]; return v !== undefined ? v : NIL; } 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); } // ========================================================================= // Primitives // ========================================================================= var PRIMITIVES = {}; // 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"] = Math.round; 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)); }; // 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; }; // Logic PRIMITIVES["not"] = function(x) { return !isSxTruthy(x); }; // String 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["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) { return b !== undefined ? c.slice(a, b) : c.slice(a); }; PRIMITIVES["concat"] = function() { var out = []; for (var i = 0; i < arguments.length; i++) if (arguments[i]) out = out.concat(arguments[i]); return out; }; PRIMITIVES["strip-tags"] = function(s) { return String(s).replace(/<[^>]+>/g, ""); }; // 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; }; // 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) { 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["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["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["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; }; // 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["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,"""); }; 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; }; PRIMITIVES["split-ids"] = function(s) { if (!s) return []; return String(s).split(",").map(function(x) { return x.trim(); }).filter(function(x) { return x; }); }; PRIMITIVES["css"] = function() { // Stub — CSSX requires style dictionary which is browser-only var atoms = []; for (var i = 0; i < arguments.length; i++) { var a = arguments[i]; if (isNil(a) || a === false) continue; atoms.push(isKw(a) ? a.name : String(a)); } if (!atoms.length) return NIL; return new StyleValue("sx-" + atoms.join("-"), atoms.join(";"), [], [], []); }; PRIMITIVES["merge-styles"] = function() { var valid = []; for (var i = 0; i < arguments.length; i++) { if (isStyleValue(arguments[i])) valid.push(arguments[i]); } if (!valid.length) return NIL; if (valid.length === 1) return valid[0]; var allDecls = valid.map(function(v) { return v.declarations; }).join(";"); return new StyleValue("sx-merged", allDecls, [], [], []); }; 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) { 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 }; } // Serializer function serialize(val) { if (isNil(val)) return "nil"; if (typeof val === "boolean") return val ? "true" : "false"; if (typeof val === "number") return String(val); if (typeof val === "string") return '"' + val.replace(/\\/g, "\\\\").replace(/"/g, '\\"') + '"'; if (isSym(val)) return val.name; if (isKw(val)) return ":" + val.name; if (Array.isArray(val)) return "(" + val.map(serialize).join(" ") + ")"; return String(val); } function isSpecialForm(n) { return n in { "if":1,"when":1,"cond":1,"case":1,"and":1,"or":1,"let":1,"let*":1, "lambda":1,"fn":1,"define":1,"defcomp":1,"defmacro":1,"defstyle":1, "defkeyframes":1,"defhandler":1,"begin":1,"do":1, "quote":1,"quasiquote":1,"->":1,"set!":1 }; } function isHoForm(n) { return n in { "map":1,"map-indexed":1,"filter":1,"reduce":1,"some":1,"every?":1,"for-each":1 }; } // processBindings and evalCond — exposed for DOM adapter render forms function processBindings(bindings, env) { var local = merge(env); for (var i = 0; i < bindings.length; i++) { var pair = bindings[i]; if (Array.isArray(pair) && pair.length >= 2) { var name = isSym(pair[0]) ? pair[0].name : String(pair[0]); local[name] = trampoline(evalExpr(pair[1], local)); } } return local; } function evalCond(clauses, env) { for (var i = 0; i < clauses.length; i += 2) { var test = clauses[i]; if (isSym(test) && test.name === ":else") return clauses[i + 1]; if (isKw(test) && test.name === "else") return clauses[i + 1]; if (isSxTruthy(trampoline(evalExpr(test, env)))) return clauses[i + 1]; } return null; } function isDefinitionForm(name) { return name === "define" || name === "defcomp" || name === "defmacro" || name === "defstyle" || name === "defkeyframes" || 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; } // === 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 : 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(!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 == "lambda")) ? sfLambda(args, env) : (isSxTruthy((name == "fn")) ? sfLambda(args, env) : (isSxTruthy((name == "define")) ? sfDefine(args, env) : (isSxTruthy((name == "defcomp")) ? sfDefcomp(args, env) : (isSxTruthy((name == "defmacro")) ? sfDefmacro(args, env) : (isSxTruthy((name == "defstyle")) ? sfDefstyle(args, env) : (isSxTruthy((name == "defkeyframes")) ? sfDefkeyframes(args, env) : (isSxTruthy((name == "defhandler")) ? sfDefine(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 == "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); })() : 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(!isLambda(f)) && !isComponent(f))) ? apply(f, evaluatedArgs) : (isSxTruthy(isLambda(f)) ? callLambda(f, evaluatedArgs, env) : (isSxTruthy(isComponent(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)), 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]; local[p] = sxOr(dictGet(kwargs, p), NIL); } } if (isSxTruthy(componentHasChildren(comp))) { 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) && !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) && !isNil(condition))) ? (forEach(function(e) { return trampoline(evalExpr(e, env)); }, slice(args, 1, (len(args) - 1))), makeThunk(last(args), env)) : NIL); })(); }; // sf-cond var sfCond = function(args, env) { return (isSxTruthy((isSxTruthy((typeOf(first(args)) == "list")) && (len(first(args)) == 2))) ? 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(!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 (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-lambda var sfLambda = function(args, env) { return (function() { var paramsExpr = first(args); var body = nth(args, 1); var paramNames = map(function(p) { return (isSxTruthy((typeOf(p) == "symbol")) ? symbolName(p) : p); }, paramsExpr); return makeLambda(paramNames, body, env); })(); }; // sf-define var sfDefine = function(args, env) { return (function() { var nameSym = first(args); var value = trampoline(evalExpr(nth(args, 1), env)); if (isSxTruthy((isSxTruthy(isLambda(value)) && isNil(lambdaName(value))))) { value.name = symbolName(nameSym); } env[symbolName(nameSym)] = value; return value; })(); }; // sf-defcomp var sfDefcomp = function(args, env) { return (function() { var nameSym = first(args); var paramsRaw = nth(args, 1); var body = nth(args, 2); var compName = stripPrefix(symbolName(nameSym), "~"); var parsed = parseCompParams(paramsRaw); var params = first(parsed); var hasChildren = nth(parsed, 1); return (function() { var comp = makeComponent(compName, params, hasChildren, body, env); env[symbolName(nameSym)] = comp; return comp; })(); })(); }; // parse-comp-params var parseCompParams = function(paramsExpr) { return (function() { var params = []; var hasChildren = false; var inKey = false; { var _c = paramsExpr; for (var _i = 0; _i < _c.length; _i++) { var p = _c[_i]; if (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)))))); })(); } } } return [params, hasChildren]; })(); }; // 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)); 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)); env[symbolName(nameSym)] = value; return value; })(); }; // sf-defkeyframes var sfDefkeyframes = function(args, env) { return (function() { var kfName = symbolName(first(args)); var steps = rest(args); return buildKeyframes(kfName, steps, env); })(); }; // 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(!(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 : append(result, spliced))); })() : append(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)) && !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)) && !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)); env[name] = value; return value; })(); }; // 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]; local[first(pair)] = (isSxTruthy((nth(pair, 1) < len(rawArgs))) ? nth(rawArgs, nth(pair, 1)) : NIL); } } if (isSxTruthy(macroRestParam(mac))) { local[macroRestParam(mac)] = slice(rawArgs, len(macroParams(mac))); } return trampoline(evalExpr(macroBody(mac), local)); })(); }; // 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 trampoline(callLambda(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 trampoline(callLambda(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 trampoline(callLambda(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 trampoline(callLambda(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 trampoline(callLambda(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 trampoline(callLambda(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 trampoline(callLambda(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 == "defmacro"), (name == "defstyle"), (name == "defkeyframes"), (name == "defhandler")); }; // 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)) && !val)) ? "" : (isSxTruthy(isNil(val)) ? "" : (isSxTruthy((isSxTruthy((key == "style")) && isStyleValue(val))) ? (String(" class=\"") + String(styleValueClass(val)) + String("\"")) : (String(" ") + String(key) + String("=\"") + String(escapeAttr((String(val)))) + String("\"")))))); })(); }, keys(attrs))); }; // === Transpiled from adapter-html === // render-to-html var renderToHtml = function(expr, env) { 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); 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 == "style-value") return styleValueClass(val); return escapeHtml((String(val))); })(); }; // RENDER_HTML_FORMS var RENDER_HTML_FORMS = ["if", "when", "cond", "case", "let", "let*", "begin", "do", "define", "defcomp", "defmacro", "defstyle", "defkeyframes", "defhandler", "map", "map-indexed", "filter", "for-each"]; // 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(!(typeOf(head) == "symbol")) ? join("", map(function(x) { return renderValueToHtml(x, env); }, expr)) : (function() { var name = symbolName(head); var args = rest(expr); return (isSxTruthy((name == "<>")) ? join("", map(function(x) { return renderToHtml(x, env); }, args)) : (isSxTruthy((name == "raw!")) ? join("", map(function(x) { return (String(trampoline(evalExpr(x, env)))); }, args)) : (isSxTruthy(contains(HTML_TAGS, name)) ? renderHtmlElement(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(!trampoline(evalExpr(nth(expr, 1), env))) ? "" : join("", map(function(i) { return renderToHtml(nth(expr, i), env); }, range(2, len(expr))))) : (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 join("", map(function(i) { return renderToHtml(nth(expr, i), local); }, range(2, len(expr)))); })() : (isSxTruthy(sxOr((name == "begin"), (name == "do"))) ? join("", map(function(i) { return renderToHtml(nth(expr, i), env); }, range(1, len(expr)))) : (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("", 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("", 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("", map(function(item) { return (isSxTruthy(isLambda(f)) ? renderLambdaHtml(f, [item], env) : renderToHtml(apply(f, [item]), env)); }, coll)); })() : 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]; local[p] = (isSxTruthy(dictHas(kwargs, p)) ? dictGet(kwargs, p) : NIL); } } if (isSxTruthy(componentHasChildren(comp))) { local["children"] = makeRawHtml(join("", map(function(c) { return renderToHtml(c, env); }, children))); } 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 (String("<") + String(tag) + String(renderAttrs(attrs)) + String((isSxTruthy(isVoid) ? " />" : (String(">") + String(join("", map(function(c) { return renderToHtml(c, env); }, children))) + String(""))))); })(); }; // === 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) { 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)); return expr; })(); }; // aser-list var aserList = function(expr, env) { return (function() { var head = first(expr); var args = rest(expr); return (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(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(!isLambda(f)) && !isComponent(f))) ? apply(f, evaledArgs) : (isSxTruthy(isLambda(f)) ? trampoline(callLambda(f, evaledArgs, env)) : (isSxTruthy(isComponent(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 = filter(function(x) { return !isNil(x); }, map(function(c) { return aser(c, env); }, children)); return (isSxTruthy(isEmpty(parts)) ? "" : (String("(<> ") + String(join(" ", map(serialize, parts))) + String(")"))); })(); }; // aser-call var aserCall = function(name, args, env) { return (function() { var parts = [name]; 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 = aser(nth(args, (get(state, "i") + 1)), env); if (isSxTruthy(!isNil(val))) { parts.push((String(":") + String(keywordName(arg)))); parts.push(serialize(val)); } return assoc(state, "skip", true, "i", (get(state, "i") + 1)); })() : (function() { var val = aser(arg, env); if (isSxTruthy(!isNil(val))) { parts.push(serialize(val)); } return assoc(state, "i", (get(state, "i") + 1)); })())); })(); }, {["i"]: 0, ["skip"]: false}, args); return (String("(") + String(join(" ", parts)) + String(")")); })(); }; // === Transpiled from adapter-dom === // SVG_NS var SVG_NS = "http://www.w3.org/2000/svg"; // MATH_NS var MATH_NS = "http://www.w3.org/1998/Math/MathML"; // render-to-dom var renderToDom = function(expr, env, ns) { return (function() { var _m = typeOf(expr); if (_m == "nil") return createFragment(); if (_m == "boolean") return createFragment(); if (_m == "raw-html") return domParseHtml(rawHtmlContent(expr)); if (_m == "string") return createTextNode(expr); if (_m == "number") return createTextNode((String(expr))); if (_m == "symbol") return renderToDom(trampoline(evalExpr(expr, env)), env, ns); if (_m == "keyword") return createTextNode(keywordName(expr)); if (_m == "dom-node") return expr; if (_m == "dict") return createFragment(); if (_m == "list") return (isSxTruthy(isEmpty(expr)) ? createFragment() : renderDomList(expr, env, ns)); if (_m == "style-value") return createTextNode(styleValueClass(expr)); return createTextNode((String(expr))); })(); }; // render-dom-list var renderDomList = function(expr, env, ns) { return (function() { var head = first(expr); return (isSxTruthy((typeOf(head) == "symbol")) ? (function() { var name = symbolName(head); var args = rest(expr); return (isSxTruthy((name == "raw!")) ? renderDomRaw(args, env) : (isSxTruthy((name == "<>")) ? renderDomFragment(args, env, ns) : (isSxTruthy(startsWith(name, "html:")) ? renderDomElement(slice(name, 5), args, env, ns) : (isSxTruthy(isRenderDomForm(name)) ? (isSxTruthy((isSxTruthy(contains(HTML_TAGS, name)) && sxOr((isSxTruthy((len(args) > 0)) && (typeOf(first(args)) == "keyword")), ns))) ? renderDomElement(name, args, env, ns) : dispatchRenderForm(name, expr, env, ns)) : (isSxTruthy((isSxTruthy(envHas(env, name)) && isMacro(envGet(env, name)))) ? renderToDom(expandMacro(envGet(env, name), args, env), env, ns) : (isSxTruthy(contains(HTML_TAGS, name)) ? renderDomElement(name, args, env, ns) : (isSxTruthy(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) : renderToDom(trampoline(evalExpr(expr, env)), env, ns)))))))))); })() : (isSxTruthy(sxOr(isLambda(head), (typeOf(head) == "list"))) ? renderToDom(trampoline(evalExpr(expr, env)), env, ns) : (function() { var frag = createFragment(); { var _c = expr; for (var _i = 0; _i < _c.length; _i++) { var x = _c[_i]; domAppend(frag, renderToDom(x, env, ns)); } } return frag; })())); })(); }; // render-dom-element var renderDomElement = function(tag, args, env, ns) { return (function() { var newNs = (isSxTruthy((tag == "svg")) ? SVG_NS : (isSxTruthy((tag == "math")) ? MATH_NS : ns)); var el = domCreateElement(tag, newNs); var extraClass = NIL; reduce(function(state, arg) { return (function() { var skip = get(state, "skip"); return (isSxTruthy(skip) ? assoc(state, "skip", false, "i", (get(state, "i") + 1)) : (isSxTruthy((isSxTruthy((typeOf(arg) == "keyword")) && ((get(state, "i") + 1) < len(args)))) ? (function() { var attrName = keywordName(arg); var attrVal = trampoline(evalExpr(nth(args, (get(state, "i") + 1)), env)); (isSxTruthy(sxOr(isNil(attrVal), (attrVal == false))) ? NIL : (isSxTruthy((isSxTruthy((attrName == "style")) && isStyleValue(attrVal))) ? (extraClass = styleValueClass(attrVal)) : (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(!contains(VOID_ELEMENTS, tag)) ? domAppend(el, renderToDom(arg, env, newNs)) : NIL), assoc(state, "i", (get(state, "i") + 1))))); })(); }, {["i"]: 0, ["skip"]: false}, args); if (isSxTruthy(extraClass)) { (function() { var existing = domGetAttr(el, "class"); return domSetAttr(el, "class", (isSxTruthy(existing) ? (String(existing) + String(" ") + String(extraClass)) : extraClass)); })(); } return el; })(); }; // render-dom-component var renderDomComponent = function(comp, args, env, ns) { return (function() { var kwargs = {}; var children = []; reduce(function(state, arg) { return (function() { var skip = get(state, "skip"); return (isSxTruthy(skip) ? assoc(state, "skip", false, "i", (get(state, "i") + 1)) : (isSxTruthy((isSxTruthy((typeOf(arg) == "keyword")) && ((get(state, "i") + 1) < len(args)))) ? (function() { var val = trampoline(evalExpr(nth(args, (get(state, "i") + 1)), env)); kwargs[keywordName(arg)] = val; return assoc(state, "skip", true, "i", (get(state, "i") + 1)); })() : (append_b(children, arg), assoc(state, "i", (get(state, "i") + 1))))); })(); }, {["i"]: 0, ["skip"]: false}, args); return (function() { var local = envMerge(componentClosure(comp), env); { var _c = componentParams(comp); for (var _i = 0; _i < _c.length; _i++) { var p = _c[_i]; local[p] = (isSxTruthy(dictHas(kwargs, p)) ? dictGet(kwargs, p) : NIL); } } if (isSxTruthy(componentHasChildren(comp))) { (function() { var childFrag = createFragment(); { var _c = children; for (var _i = 0; _i < _c.length; _i++) { var c = _c[_i]; domAppend(childFrag, renderToDom(c, env, ns)); } } return envSet(local, "children", childFrag); })(); } return renderToDom(componentBody(comp), local, ns); })(); })(); }; // render-dom-fragment var renderDomFragment = function(args, env, ns) { return (function() { var frag = createFragment(); { var _c = args; for (var _i = 0; _i < _c.length; _i++) { var x = _c[_i]; domAppend(frag, renderToDom(x, env, ns)); } } return frag; })(); }; // render-dom-raw var renderDomRaw = function(args, env) { return (function() { var frag = createFragment(); { var _c = args; for (var _i = 0; _i < _c.length; _i++) { var arg = _c[_i]; (function() { var val = trampoline(evalExpr(arg, env)); return (isSxTruthy((typeOf(val) == "string")) ? domAppend(frag, domParseHtml(val)) : (isSxTruthy((typeOf(val) == "dom-node")) ? domAppend(frag, domClone(val)) : (isSxTruthy(!isNil(val)) ? domAppend(frag, createTextNode((String(val)))) : NIL))); })(); } } return frag; })(); }; // render-dom-unknown-component var renderDomUnknownComponent = function(name) { return (function() { var el = domCreateElement("div", NIL); domSetAttr(el, "style", "background:#fef2f2;border:1px solid #fca5a5;color:#991b1b;padding:4px 8px;margin:2px;border-radius:4px;font-size:12px;font-family:monospace"); domAppend(el, createTextNode((String("Unknown component: ") + String(name)))); return el; })(); }; // RENDER_DOM_FORMS var RENDER_DOM_FORMS = ["if", "when", "cond", "case", "let", "let*", "begin", "do", "define", "defcomp", "defmacro", "defstyle", "defkeyframes", "defhandler", "map", "map-indexed", "filter", "for-each"]; // render-dom-form? var isRenderDomForm = function(name) { return contains(RENDER_DOM_FORMS, name); }; // dispatch-render-form var dispatchRenderForm = function(name, expr, env, ns) { return (isSxTruthy((name == "if")) ? (function() { var condVal = trampoline(evalExpr(nth(expr, 1), env)); return (isSxTruthy(condVal) ? renderToDom(nth(expr, 2), env, ns) : (isSxTruthy((len(expr) > 3)) ? renderToDom(nth(expr, 3), env, ns) : createFragment())); })() : (isSxTruthy((name == "when")) ? (isSxTruthy(!trampoline(evalExpr(nth(expr, 1), env))) ? createFragment() : (function() { var frag = createFragment(); { var _c = range(2, len(expr)); for (var _i = 0; _i < _c.length; _i++) { var i = _c[_i]; domAppend(frag, renderToDom(nth(expr, i), env, ns)); } } return frag; })()) : (isSxTruthy((name == "cond")) ? (function() { var branch = evalCond(rest(expr), env); return (isSxTruthy(branch) ? renderToDom(branch, env, ns) : createFragment()); })() : (isSxTruthy((name == "case")) ? renderToDom(trampoline(evalExpr(expr, env)), env, ns) : (isSxTruthy(sxOr((name == "let"), (name == "let*"))) ? (function() { var local = processBindings(nth(expr, 1), env); var frag = createFragment(); { var _c = range(2, len(expr)); for (var _i = 0; _i < _c.length; _i++) { var i = _c[_i]; domAppend(frag, renderToDom(nth(expr, i), local, ns)); } } return frag; })() : (isSxTruthy(sxOr((name == "begin"), (name == "do"))) ? (function() { var frag = createFragment(); { var _c = range(1, len(expr)); for (var _i = 0; _i < _c.length; _i++) { var i = _c[_i]; domAppend(frag, renderToDom(nth(expr, i), env, ns)); } } return frag; })() : (isSxTruthy(isDefinitionForm(name)) ? (trampoline(evalExpr(expr, env)), createFragment()) : (isSxTruthy((name == "map")) ? (function() { var 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 == "for-each")) ? (function() { var f = trampoline(evalExpr(nth(expr, 1), env)); var coll = trampoline(evalExpr(nth(expr, 2), env)); var frag = createFragment(); { var _c = coll; for (var _i = 0; _i < _c.length; _i++) { var item = _c[_i]; (function() { var val = (isSxTruthy(isLambda(f)) ? renderLambdaDom(f, [item], env, ns) : renderToDom(apply(f, [item]), env, ns)); return domAppend(frag, val); })(); } } return frag; })() : renderToDom(trampoline(evalExpr(expr, env)), env, ns)))))))))))); }; // render-lambda-dom var renderLambdaDom = function(f, args, env, ns) { return (function() { var local = envMerge(lambdaClosure(f), env); forEachIndexed(function(i, p) { return envSet(local, p, nth(args, i)); }, lambdaParams(f)); return renderToDom(lambdaBody(f), local, ns); })(); }; // === 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 !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(!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")}; }; // 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 !contains(excluded, first(p)); }, allParams); })() : (function() { var allowed = map(trim, split(paramsSpec, ",")); return filter(function(p) { return contains(allowed, first(p)); }, allParams); })())))); }; // resolve-target var resolveTarget = function(el) { return (function() { var sel = domGetAttr(el, "sx-target"); return (isSxTruthy(sxOr(isNil(sel), (sel == "this"))) ? el : (isSxTruthy((sel == "closest")) ? domParent(el) : domQuery(sel))); })(); }; // apply-optimistic var applyOptimistic = function(el) { return (function() { var directive = domGetAttr(el, "sx-optimistic"); return (isSxTruthy(isNil(directive)) ? NIL : (function() { var target = sxOr(resolveTarget(el), el); var state = {["target"]: target, ["directive"]: directive}; (isSxTruthy((directive == "remove")) ? (dictSet(state, "opacity", domGetStyle(target, "opacity")), domSetStyle(target, "opacity", "0"), domSetStyle(target, "pointer-events", "none")) : (isSxTruthy((directive == "disable")) ? (dictSet(state, "disabled", domGetProp(target, "disabled")), domSetProp(target, "disabled", true)) : (isSxTruthy(startsWith(directive, "add-class:")) ? (function() { var cls = slice(directive, 10); state["add-class"] = cls; return domAddClass(target, cls); })() : NIL))); return state; })()); })(); }; // revert-optimistic var revertOptimistic = function(state) { return (isSxTruthy(state) ? (function() { var target = get(state, "target"); var directive = get(state, "directive"); return (isSxTruthy((directive == "remove")) ? (domSetStyle(target, "opacity", sxOr(get(state, "opacity"), "")), domSetStyle(target, "pointer-events", "")) : (isSxTruthy((directive == "disable")) ? domSetProp(target, "disabled", sxOr(get(state, "disabled"), false)) : (isSxTruthy(get(state, "add-class")) ? domRemoveClass(target, get(state, "add-class")) : NIL))); })() : NIL); }; // find-oob-swaps var findOobSwaps = function(container) { return (function() { var results = []; { var _c = ["sx-swap-oob", "hx-swap-oob"]; for (var _i = 0; _i < _c.length; _i++) { var attr = _c[_i]; (function() { var oobEls = domQueryAll(container, (String("[") + String(attr) + String("]"))); return forEach(function(oob) { return (function() { var swapType = sxOr(domGetAttr(oob, attr), "outerHTML"); var targetId = domId(oob); domRemoveAttr(oob, attr); return (isSxTruthy(targetId) ? append_b(results, {["element"]: oob, ["swap-type"]: swapType, ["target-id"]: targetId}) : NIL); })(); }, oobEls); })(); } } return results; })(); }; // morph-node var morphNode = function(oldNode, newNode) { return (isSxTruthy(sxOr(domHasAttr(oldNode, "sx-preserve"), domHasAttr(oldNode, "sx-ignore"))) ? NIL : (isSxTruthy(sxOr(!(domNodeType(oldNode) == domNodeType(newNode)), !(domNodeName(oldNode) == domNodeName(newNode)))) ? domReplaceChild(domParent(oldNode), domClone(newNode), oldNode) : (isSxTruthy(sxOr((domNodeType(oldNode) == 3), (domNodeType(oldNode) == 8))) ? (isSxTruthy(!(domTextContent(oldNode) == domTextContent(newNode))) ? domSetTextContent(oldNode, domTextContent(newNode)) : NIL) : (isSxTruthy((domNodeType(oldNode) == 1)) ? (syncAttrs(oldNode, newNode), (isSxTruthy(!(isSxTruthy(domIsActiveElement(oldNode)) && domIsInputElement(oldNode))) ? morphChildren(oldNode, newNode) : NIL)) : NIL)))); }; // sync-attrs var syncAttrs = function(oldEl, newEl) { return forEach(function(attr) { return (function() { var name = first(attr); var val = nth(attr, 1); return (isSxTruthy(!(domGetAttr(oldEl, name) == val)) ? domSetAttr(oldEl, name, val) : NIL); })(); }, domAttrList(newEl)); }; // 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) && !isNil(matchById))) ? ((isSxTruthy((isSxTruthy((oi < len(oldKids))) && !(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)) && !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(!domHasAttr(leftover, "sx-preserve")) && !domHasAttr(leftover, "sx-ignore"))) ? domRemoveChild(oldParent, leftover) : NIL); })() : NIL); }, range(oi, len(oldKids))); })(); }; // swap-dom-nodes var swapDomNodes = function(target, newNodes, strategy) { return (function() { var _m = strategy; if (_m == "innerHTML") return (isSxTruthy(domIsFragment(newNodes)) ? morphChildren(target, newNodes) : (function() { var wrapper = domCreateElement("div", NIL); domAppend(wrapper, newNodes); return morphChildren(target, wrapper); })()); if (_m == "outerHTML") return (function() { var parent = domParent(target); (isSxTruthy(domIsFragment(newNodes)) ? (function() { var fc = domFirstChild(newNodes); return (isSxTruthy(fc) ? (morphNode(target, fc), (function() { var sib = domNextSibling(fc); return insertRemainingSiblings(parent, target, sib); })()) : domRemoveChild(parent, target)); })() : morphNode(target, newNodes)); return parent; })(); if (_m == "afterend") return domInsertAfter(target, newNodes); if (_m == "beforeend") return domAppend(target, newNodes); if (_m == "afterbegin") return domPrepend(target, newNodes); if (_m == "beforebegin") return domInsertBefore(domParent(target), newNodes, target); if (_m == "delete") return domRemoveChild(domParent(target), target); if (_m == "none") return NIL; return (isSxTruthy(domIsFragment(newNodes)) ? morphChildren(target, newNodes) : (function() { var wrapper = domCreateElement("div", NIL); domAppend(wrapper, newNodes); return morphChildren(target, wrapper); })()); })(); }; // insert-remaining-siblings var insertRemainingSiblings = function(parent, refNode, sib) { return (isSxTruthy(sib) ? (function() { var next = domNextSibling(sib); domInsertAfter(refNode, sib); return insertRemainingSiblings(parent, sib, next); })() : NIL); }; // swap-html-string var swapHtmlString = function(target, html, strategy) { return (function() { var _m = strategy; if (_m == "innerHTML") return domSetInnerHtml(target, html); if (_m == "outerHTML") return (function() { var parent = domParent(target); domInsertAdjacentHtml(target, "afterend", html); domRemoveChild(parent, target); return parent; })(); if (_m == "afterend") return domInsertAdjacentHtml(target, "afterend", html); if (_m == "beforeend") return domInsertAdjacentHtml(target, "beforeend", html); if (_m == "afterbegin") return domInsertAdjacentHtml(target, "afterbegin", html); if (_m == "beforebegin") return domInsertAdjacentHtml(target, "beforebegin", html); if (_m == "delete") return domRemoveChild(domParent(target), target); if (_m == "none") return NIL; return domSetInnerHtml(target, html); })(); }; // handle-history var handleHistory = function(el, url, respHeaders) { return (function() { var pushUrl = domGetAttr(el, "sx-push-url"); var replaceUrl = domGetAttr(el, "sx-replace-url"); var hdrReplace = get(respHeaders, "replace-url"); return (isSxTruthy(hdrReplace) ? browserReplaceState(hdrReplace) : (isSxTruthy((isSxTruthy(pushUrl) && !(pushUrl == "false"))) ? browserPushState((isSxTruthy((pushUrl == "true")) ? url : pushUrl)) : (isSxTruthy((isSxTruthy(replaceUrl) && !(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(!startsWith(href, "#")) && isSxTruthy(!startsWith(href, "javascript:")) && isSxTruthy(!startsWith(href, "mailto:")) && isSxTruthy(browserSameOrigin(href)) && isSxTruthy(!domHasAttr(link, "sx-get")) && isSxTruthy(!domHasAttr(link, "sx-post")) && !domHasAttr(link, "sx-disable")); })(); }; // should-boost-form? var shouldBoostForm = function(form) { return (isSxTruthy(!domHasAttr(form, "sx-get")) && isSxTruthy(!domHasAttr(form, "sx-post")) && !domHasAttr(form, "sx-disable")); }; // parse-sse-swap var parseSseSwap = function(el) { return sxOr(domGetAttr(el, "sx-sse-swap"), "message"); }; // _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((isSxTruthy(parsed) && isDict(parsed))) ? forEach(function(key) { return domDispatch(el, key, dictGet(parsed, key)); }, keys(parsed)) : forEach(function(name) { return (function() { var n = trim(name); return (isSxTruthy(!(n == "")) ? domDispatch(el, n, {}) : 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 currentVerb = getVerbInfo(el); var verb = (isSxTruthy(currentVerb) ? currentVerb : verbInfo); var method = get(verb, "method"); var url = get(verb, "url"); if (isSxTruthy(!domHasClass(el, "sx-error"))) { domRemoveAttr(el, "data-sx-retry-ms"); } return (isSxTruthy((function() { var media = domGetAttr(el, "sx-media"); return (isSxTruthy(media) && !browserMediaMatches(media)); })()) ? promiseResolve(NIL) : (isSxTruthy((function() { var msg = domGetAttr(el, "sx-confirm"); return (isSxTruthy(msg) && !browserConfirm(msg)); })()) ? promiseResolve(NIL) : (function() { var promptMsg = domGetAttr(el, "sx-prompt"); var params = extraParams; return (isSxTruthy(promptMsg) ? (function() { var promptVal = browserPrompt(promptMsg); return (isSxTruthy(isNil(promptVal)) ? promiseResolve(NIL) : ((params = sxOr(params, {})), dictSet(params, "promptValue", promptVal), doFetch(el, verb, method, url, params))); })() : doFetch(el, verb, method, url, params)); })())); })(); }; // do-fetch var doFetch = function(el, verb, method, url, extraParams) { return (function() { var syncAttr = domGetAttr(el, "sx-sync"); if (isSxTruthy((isSxTruthy(syncAttr) && contains(syncAttr, "replace")))) { abortPrevious(el); } return (function() { var ctrl = newAbortController(); trackController(el, ctrl); return (function() { var headers = buildRequestHeaders(el, loadedComponentNames(), _cssHash); if (isSxTruthy((isSxTruthy(extraParams) && dictHas(extraParams, "promptValue")))) { headers["SX-Prompt"] = get(extraParams, "promptValue"); } if (isSxTruthy((isSxTruthy(!(method == "GET")) && browserSameOrigin(url)))) { (function() { var csrf = csrfToken(); return (isSxTruthy(csrf) ? dictSet(headers, "X-CSRFToken", csrf) : NIL); })(); } return (function() { var bodyInfo = buildRequestBody(el, method, url); return (function() { var body = get(bodyInfo, "body"); var finalUrl = get(bodyInfo, "url"); var ct = get(bodyInfo, "content-type"); if (isSxTruthy(ct)) { headers["Content-Type"] = ct; } return (isSxTruthy(!domDispatch(el, "sx:beforeRequest", {["method"]: method, ["url"]: finalUrl})) ? promiseResolve(NIL) : (domAddClass(el, "sx-request"), domSetAttr(el, "aria-busy", "true"), (function() { var indicator = showIndicator(el); var disabledElts = disableElements(el); var preloaded = (isSxTruthy((method == "GET")) ? preloadCacheGet(_preloadCache, finalUrl) : NIL); return fetchRequest({["url"]: finalUrl, ["method"]: method, ["headers"]: headers, ["body"]: body, ["signal"]: controllerSignal(ctrl), ["preloaded"]: preloaded, ["cross-origin"]: isCrossOrigin(finalUrl)}, function(respOk, status, getHeader, text) { return (clearLoadingState(el, indicator, disabledElts), (isSxTruthy(!respOk) ? (domDispatch(el, "sx:responseError", {["status"]: status}), handleRetry(el, verb, extraParams)) : (domDispatch(el, "sx:afterRequest", {}), handleFetchSuccess(el, finalUrl, verb, extraParams, getHeader, text)))); }, function(err) { return (clearLoadingState(el, indicator, disabledElts), (isSxTruthy(!isAbortError(err)) ? (domDispatch(el, "sx:sendError", {["error"]: err}), handleRetry(el, verb, extraParams)) : NIL)); }); })())); })(); })(); })(); })(); })(); }; // handle-fetch-success var handleFetchSuccess = function(el, url, verb, extraParams, getHeader, text) { return (function() { var headers = processResponseHeaders(getHeader); return (isSxTruthy(get(headers, "redirect")) ? browserNavigate(get(headers, "redirect")) : (isSxTruthy((get(headers, "refresh") == "true")) ? browserReload() : (dispatchTriggerEvents(el, get(headers, "trigger")), (function() { var rawSwap = sxOr(domGetAttr(el, "sx-swap"), DEFAULT_SWAP); var target = resolveTarget(el); var selectSel = domGetAttr(el, "sx-select"); if (isSxTruthy(get(headers, "retarget"))) { target = sxOr(domQuery(get(headers, "retarget")), target); } if (isSxTruthy(get(headers, "reswap"))) { rawSwap = get(headers, "reswap"); } return (function() { var swap = parseSwapSpec(rawSwap, false); var ct = sxOr(get(headers, "content-type"), ""); (isSxTruthy(contains(ct, "text/sx")) ? handleSxResponse(el, target, swap, selectSel, text) : handleHtmlResponse(el, target, swap, selectSel, text)); if (isSxTruthy(get(headers, "location"))) { fetchLocation(get(headers, "location")); } handleHistory(el, url, headers); domDispatch(el, "sx:afterSwap", {["target"]: target}); dispatchTriggerEvents(el, get(headers, "trigger-swap")); return requestAnimationFrame_(function() { return (domDispatch(el, "sx:afterSettle", {["target"]: target}), dispatchTriggerEvents(el, get(headers, "trigger-settle"))); }); })(); })()))); })(); }; // handle-sx-response var handleSxResponse = function(el, target, swap, selectSel, text) { return (function() { var cleaned = stripComponentScripts(text); var cleaned2 = extractResponseCss(cleaned); return (function() { var source = trim(cleaned2); return (isSxTruthy((isSxTruthy(source) && !(source == ""))) ? (function() { var dom = sxRender(source); var container = domCreateElement("div", NIL); domAppend(container, dom); processOobSwaps(container, function(t, oob, s) { return swapDomNodes(t, oob, s); }); return (function() { var selected = (isSxTruthy(selectSel) ? selectFromContainer(container, selectSel) : childrenToFragment(container)); return (isSxTruthy((isSxTruthy(!(get(swap, "style") == "none")) && target)) ? withTransition(get(swap, "transition"), function() { return (swapDomNodes(target, selected, get(swap, "style")), hoistHeadElements(target)); }) : NIL); })(); })() : NIL); })(); })(); }; // handle-html-response var handleHtmlResponse = function(el, target, swap, selectSel, text) { return (function() { var doc = domParseHtmlDocument(text); sxProcessScripts(doc); processOobSwaps(doc, function(t, oob, s) { return swapHtmlString(t, domOuterHtml(oob), s); }); return (function() { var content = (isSxTruthy(selectSel) ? selectHtmlFromDoc(doc, selectSel) : sxOr(domBodyInnerHtml(doc), text)); return (isSxTruthy((isSxTruthy(!(get(swap, "style") == "none")) && target)) ? withTransition(get(swap, "transition"), function() { return (swapHtmlString(target, content, get(swap, "style")), hoistHeadElements(target)); }) : NIL); })(); })(); }; // handle-retry var handleRetry = function(el, verbInfo, extraParams) { return (function() { var retryAttr = domGetAttr(el, "sx-retry"); return (isSxTruthy(retryAttr) ? (function() { var spec = parseRetrySpec(retryAttr); var currentMs = sxOr(parseInt_(domGetAttr(el, "data-sx-retry-ms"), 0), get(spec, "start-ms")); domAddClass(el, "sx-error"); domRemoveClass(el, "sx-loading"); return setTimeout_(function() { return (domRemoveClass(el, "sx-error"), domAddClass(el, "sx-loading"), domSetAttr(el, "data-sx-retry-ms", (String(nextRetryMs(currentMs, get(spec, "cap-ms"))))), executeRequest(el, verbInfo, extraParams)); }, currentMs); })() : NIL); })(); }; // bind-triggers var bindTriggers = function(el, verbInfo) { return (function() { var triggerSpec = domGetAttr(el, "sx-trigger"); var triggers = (isSxTruthy(triggerSpec) ? parseTriggerSpec(triggerSpec) : defaultTrigger(domTagName(el))); return forEach(function(trig) { return (function() { var kind = classifyTrigger(trig); return (isSxTruthy((kind == "poll")) ? setInterval_(function() { return executeRequest(el, verbInfo, NIL); }, sxOr(get(get(trig, "modifiers"), "interval"), 1000)) : (isSxTruthy((kind == "intersect")) ? observeIntersection(el, function() { return executeRequest(el, verbInfo, NIL); }, get(get(trig, "modifiers"), "once"), get(get(trig, "modifiers"), "delay")) : (isSxTruthy((kind == "load")) ? setTimeout_(function() { return executeRequest(el, verbInfo, NIL); }, 0) : (isSxTruthy((kind == "revealed")) ? observeIntersection(el, function() { return executeRequest(el, verbInfo, NIL); }, true, NIL) : bindEvent(el, verbInfo, trig))))); })(); }, triggers); })(); }; // bind-event var bindEvent = function(el, verbInfo, trig) { return (function() { var eventName = get(trig, "event"); var mods = get(trig, "modifiers"); var listenTarget = (isSxTruthy(get(mods, "from")) ? sxOr(domQuery(get(mods, "from")), el) : el); var timer = NIL; var lastVal = NIL; return domAddListener(listenTarget, eventName, function(e) { return ((isSxTruthy((eventName == "submit")) ? preventDefault_(e) : NIL), (isSxTruthy((isSxTruthy((eventName == "click")) && (domTagName(el) == "A"))) ? preventDefault_(e) : NIL), (isSxTruthy(!validateForRequest(el)) ? domDispatch(el, "sx:validationFailed", {}) : (isSxTruthy((isSxTruthy(get(mods, "changed")) && isSxTruthy(!isNil(elementValue(el))) && (elementValue(el) == lastVal))) ? NIL : ((isSxTruthy(get(mods, "changed")) ? (lastVal = elementValue(el)) : NIL), (function() { var optState = applyOptimistic(el); var execFn = function() { return (function() { var p = executeRequest(el, verbInfo, NIL); return (isSxTruthy((isSxTruthy(optState) && p)) ? promiseCatch(p, function(_) { return revertOptimistic(optState); }) : NIL); })(); }; return (isSxTruthy(get(mods, "delay")) ? (clearTimeout_(timer), (timer = setTimeout_(execFn, get(mods, "delay")))) : execFn()); })())))); }, {["once"]: get(mods, "once")}); })(); }; // post-swap var postSwap = function(root) { return (activateScripts(root), sxProcessScripts(root), sxHydrate(root), processElements(root)); }; // activate-scripts var activateScripts = function(root) { return (function() { var dead = domQueryAll(root, "script:not([type]), script[type='text/javascript']"); return forEach(function(d) { return (function() { var live = createScriptClone(d); return domReplaceChild(domParent(d), live, d); })(); }, dead); })(); }; // process-oob-swaps var processOobSwaps = function(container, swapFn) { return forEach(function(attr) { return (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); if (isSxTruthy(domParent(oob))) { domRemoveChild(domParent(oob), oob); } return (isSxTruthy(targetId) ? (function() { var target = domQueryById(targetId); return (isSxTruthy(target) ? swapFn(target, oob, swapType) : NIL); })() : NIL); })(); }, oobEls); })(); }, ["sx-swap-oob", "hx-swap-oob"]); }; // hoist-head-elements var hoistHeadElements = function(root) { return (function() { var styles = domQueryAll(root, "style[data-sx-css]"); var links = domQueryAll(root, "link[rel='stylesheet']"); { var _c = styles; for (var _i = 0; _i < _c.length; _i++) { var el = _c[_i]; if (isSxTruthy(domParent(el))) { domRemoveChild(domParent(el), el); } } } return forEach(function(el) { return (isSxTruthy(domParent(el)) ? domRemoveChild(domParent(el), el) : NIL); }, links); })(); }; // process-boosted var processBoosted = function(root) { return (function() { var containers = domQueryAll(root, "[sx-boost]"); if (isSxTruthy(domMatches(root, "[sx-boost]"))) { boostDescendants(root); } return forEach(boostDescendants, containers); })(); }; // boost-descendants var boostDescendants = function(container) { return ((function() { var links = domQueryAll(container, "a[href]"); return forEach(function(link) { return (isSxTruthy((isSxTruthy(!isProcessed(link, "boost")) && shouldBoostLink(link))) ? (markProcessed(link, "boost"), bindBoostLink(link, domGetAttr(link, "href")), (isSxTruthy(!domHasAttr(link, "sx-target")) ? domSetAttr(link, "sx-target", "#main-panel") : NIL), (isSxTruthy(!domHasAttr(link, "sx-swap")) ? domSetAttr(link, "sx-swap", "innerHTML") : NIL), (isSxTruthy(!domHasAttr(link, "sx-select")) ? domSetAttr(link, "sx-select", "#main-panel") : NIL)) : NIL); }, links); })(), (function() { var forms = domQueryAll(container, "form"); return forEach(function(form) { return (isSxTruthy((isSxTruthy(!isProcessed(form, "boost")) && shouldBoostForm(form))) ? (markProcessed(form, "boost"), bindBoostForm(form, sxOr(upper(domGetAttr(form, "method")), "GET"), sxOr(domGetAttr(form, "action"), browserLocationHref())), (isSxTruthy(!domHasAttr(form, "sx-target")) ? domSetAttr(form, "sx-target", "#main-panel") : NIL), (isSxTruthy(!domHasAttr(form, "sx-swap")) ? domSetAttr(form, "sx-swap", "innerHTML") : NIL)) : NIL); }, forms); })()); }; // process-sse var processSse = function(root) { return (function() { var sseEls = domQueryAll(root, "[sx-sse]"); if (isSxTruthy(domMatches(root, "[sx-sse]"))) { bindSse(root); } return forEach(bindSse, sseEls); })(); }; // bind-sse var bindSse = function(el) { return (isSxTruthy(!isProcessed(el, "sse")) ? (markProcessed(el, "sse"), (function() { var url = domGetAttr(el, "sx-sse"); return (isSxTruthy(url) ? (function() { var source = eventSourceConnect(url, el); return (function() { var swapEls = domQueryAll(el, "[sx-sse-swap]"); if (isSxTruthy(domHasAttr(el, "sx-sse-swap"))) { bindSseSwap(el, source); } return forEach(function(child) { return bindSseSwap(child, source); }, swapEls); })(); })() : NIL); })()) : NIL); }; // bind-sse-swap var bindSseSwap = function(el, source) { return (function() { var eventName = parseSseSwap(el); return eventSourceListen(source, eventName, function(data) { return (function() { var target = sxOr(resolveTarget(el), el); var swapStyle = sxOr(domGetAttr(el, "sx-swap"), "innerHTML"); (isSxTruthy(startsWith(trim(data), "(")) ? (function() { var dom = sxRender(data); return swapDomNodes(target, dom, swapStyle); })() : swapHtmlString(target, data, swapStyle)); postSwap(target); return domDispatch(el, "sx:sseMessage", {["data"]: data, ["event"]: eventName}); })(); }); })(); }; // bind-inline-handlers var bindInlineHandlers = function(el) { return (isSxTruthy(!isProcessed(el, "on")) ? (markProcessed(el, "on"), (function() { var attrs = domAttrList(el); return forEach(function(attr) { return (function() { var name = first(attr); var val = nth(attr, 1); return (isSxTruthy(startsWith(name, "sx-on:")) ? bindInlineHandler(el, slice(name, 6), val) : NIL); })(); }, attrs); })()) : NIL); }; // bind-preload-for var bindPreloadFor = function(el) { return (isSxTruthy(domHasAttr(el, "sx-preload")) ? (function() { var mode = sxOr(domGetAttr(el, "sx-preload"), "mousedown"); var events = (isSxTruthy((mode == "mouseover")) ? ["mouseenter", "focusin"] : ["mousedown", "focusin"]); var debounceMs = (isSxTruthy((mode == "mouseover")) ? 100 : 0); return bindPreload(el, events, debounceMs, function() { return (function() { var verb = getVerbInfo(el); return (isSxTruthy(verb) ? (function() { var url = get(verb, "url"); return (isSxTruthy(isNil(preloadCacheGet(_preloadCache, url))) ? doPreload(url) : NIL); })() : NIL); })(); }); })() : NIL); }; // do-preload var doPreload = function(url) { return (function() { var headers = buildRequestHeaders(NIL, loadedComponentNames(), _cssHash); return fetchPreload(url, headers, _preloadCache); })(); }; // VERB_SELECTOR var VERB_SELECTOR = "[sx-get],[sx-post],[sx-put],[sx-delete],[sx-patch]"; // process-elements var processElements = function(root) { return (function() { var root = sxOr(root, domBody()); return (isSxTruthy(root) ? ((isSxTruthy(domMatches(root, VERB_SELECTOR)) ? processOne(root) : NIL), (function() { var elements = domQueryAll(root, VERB_SELECTOR); return forEach(processOne, elements); })(), processBoosted(root), processSse(root), (function() { var onEls = domQueryAll(root, "[sx-on\\:beforeRequest],[sx-on\\:afterRequest],[sx-on\\:afterSwap],[sx-on\\:afterSettle],[sx-on\\:responseError]"); return forEach(bindInlineHandlers, onEls); })()) : NIL); })(); }; // process-one var processOne = function(el) { return (isSxTruthy(!isProcessed(el, "bound")) ? (isSxTruthy(!sxOr(domHasAttr(el, "sx-disable"), domClosest(el, "[sx-disable]"))) ? (markProcessed(el, "bound"), (function() { var verbInfo = getVerbInfo(el); return (isSxTruthy(verbInfo) ? (bindTriggers(el, verbInfo), bindPreloadFor(el)) : NIL); })()) : NIL) : NIL); }; // handle-popstate var handlePopstate = function(scrollY) { return (function() { var url = browserLocationHref(); var main = domQueryById("main-panel"); return (isSxTruthy(!main) ? browserReload() : (function() { var headers = buildRequestHeaders(NIL, loadedComponentNames(), _cssHash); headers["SX-History-Restore"] = "true"; return fetchAndRestore(main, url, headers, scrollY); })()); })(); }; // engine-init var engineInit = function() { return (initCssTracking(), sxProcessScripts(NIL), sxHydrate(NIL), processElements(NIL)); }; // ========================================================================= // Platform interface — DOM adapter (browser-only) // ========================================================================= var _hasDom = typeof document !== "undefined"; 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) return document.createElementNS(ns, tag); return document.createElement(tag); } function createTextNode(s) { return _hasDom ? document.createTextNode(s) : null; } function createFragment() { return _hasDom ? document.createDocumentFragment() : null; } function domAppend(parent, child) { if (parent && child) parent.appendChild(child); } function domPrepend(parent, child) { if (parent && child) parent.insertBefore(child, parent.firstChild); } function domSetAttr(el, name, val) { if (el && el.setAttribute) el.setAttribute(name, val); } function domGetAttr(el, name) { if (!el || !el.getAttribute) return NIL; var v = el.getAttribute(name); return v === null ? NIL : v; } function domRemoveAttr(el, name) { if (el && el.removeAttribute) el.removeAttribute(name); } function domHasAttr(el, name) { return !!(el && el.hasAttribute && el.hasAttribute(name)); } function domParseHtml(html) { if (!_hasDom) return null; var tpl = document.createElement("template"); tpl.innerHTML = html; return tpl.content; } function domClone(node) { return node && node.cloneNode ? node.cloneNode(true) : node; } function domParent(el) { return el ? el.parentNode : null; } function domId(el) { return el && el.id ? el.id : NIL; } function domNodeType(el) { return el ? el.nodeType : 0; } function domNodeName(el) { return el ? el.nodeName : ""; } function domTextContent(el) { return el ? el.textContent || el.nodeValue || "" : ""; } function domSetTextContent(el, s) { if (el) { if (el.nodeType === 3 || el.nodeType === 8) el.nodeValue = s; else el.textContent = s; } } function domIsFragment(el) { return el ? el.nodeType === 11 : false; } function domIsChildOf(child, parent) { return !!(parent && child && child.parentNode === parent); } function domIsActiveElement(el) { return _hasDom && el === document.activeElement; } function domIsInputElement(el) { if (!el || !el.tagName) return false; var t = el.tagName; return t === "INPUT" || t === "TEXTAREA" || t === "SELECT"; } function domFirstChild(el) { return el ? el.firstChild : null; } function domNextSibling(el) { return el ? el.nextSibling : null; } function domChildList(el) { if (!el || !el.childNodes) return []; return Array.prototype.slice.call(el.childNodes); } function domAttrList(el) { if (!el || !el.attributes) return []; var r = []; for (var i = 0; i < el.attributes.length; i++) { r.push([el.attributes[i].name, el.attributes[i].value]); } return r; } function domInsertBefore(parent, node, ref) { if (parent && node) parent.insertBefore(node, ref || null); } function domInsertAfter(ref, node) { if (ref && ref.parentNode && node) { ref.parentNode.insertBefore(node, ref.nextSibling); } } function domRemoveChild(parent, child) { if (parent && child && child.parentNode === parent) parent.removeChild(child); } function domReplaceChild(parent, newChild, oldChild) { if (parent && newChild && oldChild) parent.replaceChild(newChild, oldChild); } function domSetInnerHtml(el, html) { if (el) el.innerHTML = html; } function domInsertAdjacentHtml(el, pos, html) { if (el && el.insertAdjacentHTML) el.insertAdjacentHTML(pos, html); } function domGetStyle(el, prop) { return el && el.style ? el.style[prop] || "" : ""; } function domSetStyle(el, prop, val) { if (el && el.style) el.style[prop] = val; } function domGetProp(el, name) { return el ? el[name] : NIL; } function domSetProp(el, name, val) { if (el) el[name] = val; } function domAddClass(el, cls) { if (el && el.classList) el.classList.add(cls); } function domRemoveClass(el, cls) { if (el && el.classList) el.classList.remove(cls); } function domDispatch(el, name, detail) { if (!_hasDom || !el) return false; var evt = new CustomEvent(name, { bubbles: true, cancelable: true, detail: detail || {} }); return el.dispatchEvent(evt); } function domQuery(sel) { return _hasDom ? document.querySelector(sel) : null; } function domQueryAll(root, sel) { if (!root || !root.querySelectorAll) return []; return Array.prototype.slice.call(root.querySelectorAll(sel)); } function domTagName(el) { return el && el.tagName ? el.tagName : ""; } // ========================================================================= // Platform interface — Engine (browser-only) // ========================================================================= // --- Browser/Network --- 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 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 nowMs() { return Date.now(); } function parseHeaderValue(s) { if (!s) return null; try { if (s.charAt(0) === "{" && s.charAt(1) === ":") return parse(s); return JSON.parse(s); } catch (e) { return null; } } 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 promiseCatch(p, fn) { return p && p.catch ? p.catch(fn) : p; } // --- Abort controllers --- var _controllers = typeof WeakMap !== "undefined" ? new WeakMap() : null; function abortPrevious(el) { if (_controllers) { var prev = _controllers.get(el); if (prev) prev.abort(); } } function trackController(el, ctrl) { if (_controllers) _controllers.set(el, ctrl); } function newAbortController() { return typeof AbortController !== "undefined" ? new AbortController() : { signal: null, abort: function() {} }; } function controllerSignal(ctrl) { return ctrl ? ctrl.signal : null; } function isAbortError(err) { return err && err.name === "AbortError"; } // --- Timers --- function setTimeout_(fn, ms) { return setTimeout(fn, ms || 0); } function setInterval_(fn, ms) { return setInterval(fn, ms || 1000); } function clearTimeout_(id) { clearTimeout(id); } function requestAnimationFrame_(fn) { if (typeof requestAnimationFrame !== "undefined") requestAnimationFrame(fn); else setTimeout(fn, 16); } // --- Fetch --- function fetchRequest(config, successFn, errorFn) { var opts = { method: config.method, headers: config.headers }; if (config.signal) opts.signal = config.signal; if (config.body && config.method !== "GET") opts.body = config.body; if (config["cross-origin"]) opts.credentials = "include"; var p = config.preloaded ? 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 fetchPreload(url, headers, cache) { fetch(url, { headers: headers }).then(function(resp) { if (!resp.ok) return; var ct = resp.headers.get("Content-Type") || ""; return resp.text().then(function(text) { preloadCacheSet(cache, url, text, ct); }); }).catch(function() { /* ignore */ }); } // --- Request body building --- function buildRequestBody(el, method, url) { if (!_hasDom) return { body: null, url: url, "content-type": NIL }; var body = null; var ct = NIL; var finalUrl = url; var isJson = el.getAttribute("sx-encoding") === "json"; if (method !== "GET") { var form = el.closest("form") || (el.tagName === "FORM" ? el : null); if (form) { if (isJson) { var fd = new FormData(form); var obj = {}; fd.forEach(function(v, k) { if (obj[k] !== undefined) { if (!Array.isArray(obj[k])) obj[k] = [obj[k]]; obj[k].push(v); } else { obj[k] = v; } }); body = JSON.stringify(obj); ct = "application/json"; } else { body = new URLSearchParams(new FormData(form)); ct = "application/x-www-form-urlencoded"; } } } // sx-params var paramsSpec = el.getAttribute("sx-params"); if (paramsSpec && body instanceof URLSearchParams) { if (paramsSpec === "none") { body = new URLSearchParams(); } else if (paramsSpec.indexOf("not ") === 0) { paramsSpec.substring(4).split(",").forEach(function(k) { body.delete(k.trim()); }); } else if (paramsSpec !== "*") { var allowed = paramsSpec.split(",").map(function(s) { return s.trim(); }); var filtered = new URLSearchParams(); allowed.forEach(function(k) { body.getAll(k).forEach(function(v) { filtered.append(k, v); }); }); body = filtered; } } // sx-include var includeSel = el.getAttribute("sx-include"); if (includeSel && method !== "GET") { if (!body) body = new URLSearchParams(); document.querySelectorAll(includeSel).forEach(function(inp) { if (inp.name) body.append(inp.name, inp.value); }); } // sx-vals var valsAttr = el.getAttribute("sx-vals"); if (valsAttr) { try { var vals = valsAttr.charAt(0) === "{" && valsAttr.charAt(1) === ":" ? parse(valsAttr) : JSON.parse(valsAttr); if (method === "GET") { for (var vk in vals) finalUrl += (finalUrl.indexOf("?") >= 0 ? "&" : "?") + encodeURIComponent(vk) + "=" + encodeURIComponent(vals[vk]); } else if (body instanceof URLSearchParams) { for (var vk2 in vals) body.append(vk2, vals[vk2]); } else if (!body) { body = new URLSearchParams(); for (var vk3 in vals) body.append(vk3, vals[vk3]); ct = "application/x-www-form-urlencoded"; } } catch (e) {} } // GET form data → URL if (method === "GET") { var form2 = el.closest("form") || (el.tagName === "FORM" ? el : null); if (form2) { var qs = new URLSearchParams(new FormData(form2)).toString(); if (qs) finalUrl += (finalUrl.indexOf("?") >= 0 ? "&" : "?") + qs; } if ((el.tagName === "INPUT" || el.tagName === "SELECT" || el.tagName === "TEXTAREA") && el.name) { finalUrl += (finalUrl.indexOf("?") >= 0 ? "&" : "?") + encodeURIComponent(el.name) + "=" + encodeURIComponent(el.value); } } return { body: body, url: finalUrl, "content-type": ct }; } // --- Loading state --- function showIndicator(el) { if (!_hasDom) return NIL; var sel = el.getAttribute("sx-indicator"); var ind = sel ? (document.querySelector(sel) || el.closest(sel)) : null; if (ind) { ind.classList.add("sx-request"); ind.style.display = ""; } return ind || NIL; } function disableElements(el) { if (!_hasDom) return []; var sel = el.getAttribute("sx-disabled-elt"); if (!sel) return []; var elts = Array.prototype.slice.call(document.querySelectorAll(sel)); elts.forEach(function(e) { e.disabled = true; }); return elts; } function clearLoadingState(el, indicator, disabledElts) { el.classList.remove("sx-request"); el.removeAttribute("aria-busy"); if (indicator && !isNil(indicator)) { indicator.classList.remove("sx-request"); indicator.style.display = "none"; } if (disabledElts) { for (var i = 0; i < disabledElts.length; i++) disabledElts[i].disabled = false; } } // --- DOM extras --- function domQueryById(id) { return _hasDom ? document.getElementById(id) : null; } function domMatches(el, sel) { return el && el.matches ? el.matches(sel) : false; } function domClosest(el, sel) { return el && el.closest ? el.closest(sel) : null; } function domBody() { return _hasDom ? document.body : null; } function domHasClass(el, cls) { return el && el.classList ? el.classList.contains(cls) : false; } function domAppendToHead(el) { if (_hasDom && document.head) document.head.appendChild(el); } function domParseHtmlDocument(text) { if (!_hasDom) return null; return new DOMParser().parseFromString(text, "text/html"); } function domOuterHtml(el) { return el ? el.outerHTML : ""; } function domBodyInnerHtml(doc) { return doc && doc.body ? doc.body.innerHTML : ""; } // --- Events --- function preventDefault_(e) { if (e && e.preventDefault) e.preventDefault(); } function elementValue(el) { return el && el.value !== undefined ? el.value : NIL; } function domAddListener(el, event, fn, opts) { if (!el || !el.addEventListener) return; var o = {}; if (opts && !isNil(opts)) { if (opts.once || opts["once"]) o.once = true; } el.addEventListener(event, fn, o); } // --- Validation --- function validateForRequest(el) { if (!_hasDom) return true; var attr = el.getAttribute("sx-validate"); if (attr === null) { var vForm = el.closest("[sx-validate]"); if (vForm) attr = vForm.getAttribute("sx-validate"); } if (attr === null) return true; // no validation configured var form = el.tagName === "FORM" ? el : el.closest("form"); if (form && !form.reportValidity()) return false; if (attr && attr !== "true" && attr !== "") { var fn = window[attr]; if (typeof fn === "function" && !fn(el)) return false; } return true; } // --- View Transitions --- function withTransition(enabled, fn) { if (enabled && _hasDom && document.startViewTransition) { document.startViewTransition(fn); } else { fn(); } } // --- IntersectionObserver --- function observeIntersection(el, fn, once, delay) { if (!_hasDom || !("IntersectionObserver" in window)) { fn(); return; } var fired = false; var d = isNil(delay) ? 0 : delay; var obs = new IntersectionObserver(function(entries) { entries.forEach(function(entry) { if (!entry.isIntersecting) return; if (once && fired) return; fired = true; if (once) obs.unobserve(el); if (d) setTimeout(fn, d); else fn(); }); }); obs.observe(el); } // --- EventSource --- function eventSourceConnect(url, el) { var source = new EventSource(url); source.addEventListener("error", function() { domDispatch(el, "sx:sseError", {}); }); source.addEventListener("open", function() { domDispatch(el, "sx:sseOpen", {}); }); if (typeof MutationObserver !== "undefined") { var obs = new MutationObserver(function() { if (!document.body.contains(el)) { source.close(); obs.disconnect(); } }); obs.observe(document.body, { childList: true, subtree: true }); } return source; } function eventSourceListen(source, event, fn) { source.addEventListener(event, function(e) { fn(e.data); }); } // --- Boost bindings --- function bindBoostLink(el, href) { el.addEventListener("click", function(e) { e.preventDefault(); executeRequest(el, { method: "GET", url: href }).then(function() { try { history.pushState({ sxUrl: href, scrollY: window.scrollY }, "", href); } catch (err) {} }); }); } function bindBoostForm(form, method, action) { form.addEventListener("submit", function(e) { e.preventDefault(); executeRequest(form, { method: method, url: action }).then(function() { try { history.pushState({ sxUrl: action, scrollY: window.scrollY }, "", action); } catch (err) {} }); }); } // --- Inline handlers --- function bindInlineHandler(el, eventName, body) { el.addEventListener(eventName, new Function("event", body)); } // --- Preload binding --- function bindPreload(el, events, debounceMs, fn) { var timer = null; events.forEach(function(evt) { el.addEventListener(evt, function() { if (debounceMs) { clearTimeout(timer); timer = setTimeout(fn, debounceMs); } else { fn(); } }); }); } // --- Processing markers --- var PROCESSED = "_sxBound"; function markProcessed(el, key) { el[PROCESSED + key] = true; } function isProcessed(el, key) { return !!el[PROCESSED + key]; } // --- Script cloning --- function createScriptClone(dead) { var live = document.createElement("script"); for (var i = 0; i < dead.attributes.length; i++) live.setAttribute(dead.attributes[i].name, dead.attributes[i].value); live.textContent = dead.textContent; return live; } // --- SX API references --- function sxRender(source) { var SxObj = typeof Sx !== "undefined" ? Sx : (typeof SxRef !== "undefined" ? SxRef : null); if (SxObj && SxObj.render) return SxObj.render(source); throw new Error("No SX renderer available"); } function sxProcessScripts(root) { var SxObj = typeof Sx !== "undefined" ? Sx : (typeof SxRef !== "undefined" ? SxRef : null); if (SxObj && SxObj.processScripts) SxObj.processScripts(root || undefined); } function sxHydrate(root) { var SxObj = typeof Sx !== "undefined" ? Sx : (typeof SxRef !== "undefined" ? SxRef : null); if (SxObj && SxObj.hydrate) SxObj.hydrate(root || undefined); } function loadedComponentNames() { var SxObj = typeof Sx !== "undefined" ? Sx : (typeof SxRef !== "undefined" ? SxRef : null); if (!SxObj) return []; var env = SxObj.componentEnv || (SxObj.getEnv ? SxObj.getEnv() : {}); return Object.keys(env).filter(function(k) { return k.charAt(0) === "~"; }); } // --- Response processing --- function stripComponentScripts(text) { var SxObj = typeof Sx !== "undefined" ? Sx : (typeof SxRef !== "undefined" ? SxRef : null); return text.replace(/]*type="text\/sx"[^>]*data-components[^>]*>([\s\S]*?)<\/script>/gi, function(_, defs) { if (SxObj && SxObj.loadComponents) SxObj.loadComponents(defs); return ""; }); } function extractResponseCss(text) { if (!_hasDom) return text; var target = document.getElementById("sx-css"); if (!target) return text; return text.replace(/]*data-sx-css[^>]*>([\s\S]*?)<\/style>/gi, function(_, css) { target.textContent += css; return ""; }); } function selectFromContainer(container, sel) { var frag = document.createDocumentFragment(); sel.split(",").forEach(function(s) { container.querySelectorAll(s.trim()).forEach(function(m) { frag.appendChild(m); }); }); return frag; } function childrenToFragment(container) { var frag = document.createDocumentFragment(); while (container.firstChild) frag.appendChild(container.firstChild); return frag; } function selectHtmlFromDoc(doc, sel) { var parts = sel.split(",").map(function(s) { return s.trim(); }); var frags = []; parts.forEach(function(s) { doc.querySelectorAll(s).forEach(function(m) { frags.push(m.outerHTML); }); }); return frags.join(""); } // --- Parsing --- function tryParseJson(s) { if (!s) return NIL; try { return JSON.parse(s); } catch (e) { return NIL; } } // ========================================================================= // 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; // ========================================================================= // Parser // ========================================================================= function parse(text) { var pos = 0; function skipWs() { while (pos < text.length) { var ch = text[pos]; if (ch === " " || ch === "\t" || ch === "\n" || ch === "\r") { pos++; continue; } if (ch === ";") { while (pos < text.length && text[pos] !== "\n") pos++; continue; } break; } } function readExpr() { skipWs(); if (pos >= text.length) return undefined; var ch = text[pos]; if (ch === "(") { pos++; return readList(")"); } if (ch === "[") { pos++; return readList("]"); } if (ch === "{") { pos++; return readMap(); } if (ch === '"') return readString(); if (ch === ":") return readKeyword(); if (ch === "`") { pos++; return [new Symbol("quasiquote"), readExpr()]; } if (ch === ",") { pos++; if (pos < text.length && text[pos] === "@") { pos++; return [new Symbol("splice-unquote"), readExpr()]; } return [new Symbol("unquote"), readExpr()]; } if (ch === "-" && pos + 1 < text.length && text[pos + 1] >= "0" && text[pos + 1] <= "9") return readNumber(); if (ch >= "0" && ch <= "9") return readNumber(); return readSymbol(); } function readList(close) { var items = []; while (true) { skipWs(); if (pos >= text.length) throw new Error("Unterminated list"); if (text[pos] === close) { pos++; return items; } items.push(readExpr()); } } function readMap() { var result = {}; while (true) { skipWs(); if (pos >= text.length) throw new Error("Unterminated map"); if (text[pos] === "}") { pos++; return result; } var key = readExpr(); var keyStr = (key && key._kw) ? key.name : String(key); result[keyStr] = readExpr(); } } function readString() { pos++; // skip " var s = ""; while (pos < text.length) { var ch = text[pos]; if (ch === '"') { pos++; return s; } if (ch === "\\") { pos++; var esc = text[pos]; s += esc === "n" ? "\n" : esc === "t" ? "\t" : esc === "r" ? "\r" : esc; pos++; continue; } s += ch; pos++; } throw new Error("Unterminated string"); } function readKeyword() { pos++; // skip : var name = readIdent(); return new Keyword(name); } function readNumber() { var start = pos; if (text[pos] === "-") pos++; while (pos < text.length && text[pos] >= "0" && text[pos] <= "9") pos++; if (pos < text.length && text[pos] === ".") { pos++; while (pos < text.length && text[pos] >= "0" && text[pos] <= "9") pos++; } if (pos < text.length && (text[pos] === "e" || text[pos] === "E")) { pos++; if (pos < text.length && (text[pos] === "+" || text[pos] === "-")) pos++; while (pos < text.length && text[pos] >= "0" && text[pos] <= "9") pos++; } return Number(text.slice(start, pos)); } function readIdent() { var start = pos; while (pos < text.length && /[a-zA-Z0-9_~*+\-><=/!?.:&]/.test(text[pos])) pos++; return text.slice(start, pos); } function readSymbol() { var name = readIdent(); if (name === "true") return true; if (name === "false") return false; if (name === "nil") return NIL; return new Symbol(name); } var exprs = []; while (true) { skipWs(); if (pos >= text.length) break; exprs.push(readExpr()); } return exprs; } // ========================================================================= // 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++) frag.appendChild(renderToDom(exprs[i], merge(componentEnv), null)); 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 SxRef = { parse: 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, 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, 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, init: typeof engineInit === "function" ? engineInit : null, _version: "ref-2.0 (dom+engine+html+sx, bootstrap-compiled)" }; // --- Popstate listener --- if (typeof window !== "undefined") { window.addEventListener("popstate", function(e) { handlePopstate(e && e.state ? e.state.scrollY || 0 : 0); }); } // --- Auto-init --- if (typeof document !== "undefined") { var _sxRefInit = function() { engineInit(); }; if (document.readyState === "loading") { document.addEventListener("DOMContentLoaded", _sxRefInit); } else { _sxRefInit(); } } if (typeof module !== "undefined" && module.exports) module.exports = SxRef; else global.SxRef = SxRef; })(typeof globalThis !== "undefined" ? globalThis : typeof window !== "undefined" ? window : this);