Merge branch 'worktree-api-urls' into macros

This commit is contained in:
2026-03-13 03:23:22 +00:00
2 changed files with 62 additions and 26 deletions

View File

@@ -14,7 +14,7 @@
// ========================================================================= // =========================================================================
var NIL = Object.freeze({ _nil: true, toString: function() { return "nil"; } }); var NIL = Object.freeze({ _nil: true, toString: function() { return "nil"; } });
var SX_VERSION = "2026-03-13T02:54:01Z"; var SX_VERSION = "2026-03-13T03:23:01Z";
function isNil(x) { return x === NIL || x === null || x === undefined; } function isNil(x) { return x === NIL || x === null || x === undefined; }
function isSxTruthy(x) { return x !== false && !isNil(x); } function isSxTruthy(x) { return x !== false && !isNil(x); }
@@ -1898,7 +1898,10 @@ return (function() { var _m = typeOf(expr); if (_m == "nil") return createFragme
})() : renderToDom(trampoline(evalExpr(expr, env)), env, ns)))))))))))))); })() : renderToDom(trampoline(evalExpr(expr, env)), env, ns))))))))))))));
})() : (isSxTruthy(sxOr(isLambda(head), (typeOf(head) == "list"))) ? renderToDom(trampoline(evalExpr(expr, env)), env, ns) : (function() { })() : (isSxTruthy(sxOr(isLambda(head), (typeOf(head) == "list"))) ? renderToDom(trampoline(evalExpr(expr, env)), env, ns) : (function() {
var frag = createFragment(); var frag = createFragment();
{ var _c = expr; for (var _i = 0; _i < _c.length; _i++) { var x = _c[_i]; domAppend(frag, renderToDom(x, env, ns)); } } { var _c = expr; for (var _i = 0; _i < _c.length; _i++) { var x = _c[_i]; (function() {
var result = renderToDom(x, env, ns);
return (isSxTruthy(!isSxTruthy(isSpread(result))) ? domAppend(frag, result) : NIL);
})(); } }
return frag; return frag;
})())); })()));
})(); }; })(); };
@@ -1964,7 +1967,10 @@ return (function() { var _m = typeOf(expr); if (_m == "nil") return createFragme
if (isSxTruthy(componentHasChildren(comp))) { if (isSxTruthy(componentHasChildren(comp))) {
(function() { (function() {
var childFrag = createFragment(); var childFrag = createFragment();
{ var _c = children; for (var _i = 0; _i < _c.length; _i++) { var c = _c[_i]; domAppend(childFrag, renderToDom(c, env, ns)); } } { var _c = children; for (var _i = 0; _i < _c.length; _i++) { var c = _c[_i]; (function() {
var result = renderToDom(c, env, ns);
return (isSxTruthy(!isSxTruthy(isSpread(result))) ? domAppend(childFrag, result) : NIL);
})(); } }
return envSet(local, "children", childFrag); return envSet(local, "children", childFrag);
})(); })();
} }
@@ -1975,7 +1981,10 @@ return (function() { var _m = typeOf(expr); if (_m == "nil") return createFragme
// render-dom-fragment // render-dom-fragment
var renderDomFragment = function(args, env, ns) { return (function() { var renderDomFragment = function(args, env, ns) { return (function() {
var frag = createFragment(); var frag = createFragment();
{ var _c = args; for (var _i = 0; _i < _c.length; _i++) { var x = _c[_i]; domAppend(frag, renderToDom(x, env, ns)); } } { var _c = args; for (var _i = 0; _i < _c.length; _i++) { var x = _c[_i]; (function() {
var result = renderToDom(x, env, ns);
return (isSxTruthy(!isSxTruthy(isSpread(result))) ? domAppend(frag, result) : NIL);
})(); } }
return frag; return frag;
})(); }; })(); };
@@ -2078,14 +2087,22 @@ return (function() { var _m = typeOf(expr); if (_m == "nil") return createFragme
return (isSxTruthy(branch) ? renderToDom(branch, env, ns) : createFragment()); return (isSxTruthy(branch) ? renderToDom(branch, env, ns) : createFragment());
})()) : (isSxTruthy((name == "case")) ? renderToDom(trampoline(evalExpr(expr, env)), env, ns) : (isSxTruthy(sxOr((name == "let"), (name == "let*"))) ? (function() { })()) : (isSxTruthy((name == "case")) ? renderToDom(trampoline(evalExpr(expr, env)), env, ns) : (isSxTruthy(sxOr((name == "let"), (name == "let*"))) ? (function() {
var local = processBindings(nth(expr, 1), env); var local = processBindings(nth(expr, 1), env);
return (isSxTruthy((len(expr) == 3)) ? renderToDom(nth(expr, 2), local, ns) : (function() {
var frag = createFragment(); 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)); } } { var _c = range(2, len(expr)); for (var _i = 0; _i < _c.length; _i++) { var i = _c[_i]; (function() {
var result = renderToDom(nth(expr, i), local, ns);
return (isSxTruthy(!isSxTruthy(isSpread(result))) ? domAppend(frag, result) : NIL);
})(); } }
return frag; return frag;
})() : (isSxTruthy(sxOr((name == "begin"), (name == "do"))) ? (function() { })());
})() : (isSxTruthy(sxOr((name == "begin"), (name == "do"))) ? (isSxTruthy((len(expr) == 2)) ? renderToDom(nth(expr, 1), env, ns) : (function() {
var frag = createFragment(); 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)); } } { var _c = range(1, len(expr)); for (var _i = 0; _i < _c.length; _i++) { var i = _c[_i]; (function() {
var result = renderToDom(nth(expr, i), env, ns);
return (isSxTruthy(!isSxTruthy(isSpread(result))) ? domAppend(frag, result) : NIL);
})(); } }
return frag; return frag;
})() : (isSxTruthy(isDefinitionForm(name)) ? (trampoline(evalExpr(expr, env)), createFragment()) : (isSxTruthy((name == "map")) ? (function() { })()) : (isSxTruthy(isDefinitionForm(name)) ? (trampoline(evalExpr(expr, env)), createFragment()) : (isSxTruthy((name == "map")) ? (function() {
var collExpr = nth(expr, 2); var collExpr = nth(expr, 2);
return (isSxTruthy((isSxTruthy(_islandScope) && isSxTruthy((typeOf(collExpr) == "list")) && isSxTruthy((len(collExpr) > 1)) && isSxTruthy((typeOf(first(collExpr)) == "symbol")) && (symbolName(first(collExpr)) == "deref"))) ? (function() { return (isSxTruthy((isSxTruthy(_islandScope) && isSxTruthy((typeOf(collExpr) == "list")) && isSxTruthy((len(collExpr) > 1)) && isSxTruthy((typeOf(first(collExpr)) == "symbol")) && (symbolName(first(collExpr)) == "deref"))) ? (function() {
var f = trampoline(evalExpr(nth(expr, 1), env)); var f = trampoline(evalExpr(nth(expr, 1), env));

View File

@@ -160,7 +160,11 @@
;; Data list ;; Data list
:else :else
(let ((frag (create-fragment))) (let ((frag (create-fragment)))
(for-each (fn (x) (dom-append frag (render-to-dom x env ns))) expr) (for-each (fn (x)
(let ((result (render-to-dom x env ns)))
(when (not (spread? result))
(dom-append frag result))))
expr)
frag))))) frag)))))
@@ -296,10 +300,14 @@
(component-params comp)) (component-params comp))
;; If component accepts children, pre-render them to a fragment ;; If component accepts children, pre-render them to a fragment
;; Spread values are filtered out (no parent element to merge onto)
(when (component-has-children? comp) (when (component-has-children? comp)
(let ((child-frag (create-fragment))) (let ((child-frag (create-fragment)))
(for-each (for-each
(fn (c) (dom-append child-frag (render-to-dom c env ns))) (fn (c)
(let ((result (render-to-dom c env ns)))
(when (not (spread? result))
(dom-append child-frag result))))
children) children)
(env-set! local "children" child-frag))) (env-set! local "children" child-frag)))
@@ -314,7 +322,10 @@
(fn ((args :as list) (env :as dict) (ns :as string)) (fn ((args :as list) (env :as dict) (ns :as string))
(let ((frag (create-fragment))) (let ((frag (create-fragment)))
(for-each (for-each
(fn (x) (dom-append frag (render-to-dom x env ns))) (fn (x)
(let ((result (render-to-dom x env ns)))
(when (not (spread? result))
(dom-append frag result))))
args) args)
frag))) frag)))
@@ -498,24 +509,32 @@
(= name "case") (= name "case")
(render-to-dom (trampoline (eval-expr expr env)) env ns) (render-to-dom (trampoline (eval-expr expr env)) env ns)
;; let / let* ;; let / let* — single body: pass through (spread propagates). Multi: fragment.
(or (= name "let") (= name "let*")) (or (= name "let") (= name "let*"))
(let ((local (process-bindings (nth expr 1) env)) (let ((local (process-bindings (nth expr 1) env)))
(frag (create-fragment))) (if (= (len expr) 3)
(for-each (render-to-dom (nth expr 2) local ns)
(fn (i) (let ((frag (create-fragment)))
(dom-append frag (render-to-dom (nth expr i) local ns))) (for-each
(range 2 (len expr))) (fn (i)
frag) (let ((result (render-to-dom (nth expr i) local ns)))
(when (not (spread? result))
(dom-append frag result))))
(range 2 (len expr)))
frag)))
;; begin / do ;; begin / do — single body: pass through. Multi: fragment.
(or (= name "begin") (= name "do")) (or (= name "begin") (= name "do"))
(let ((frag (create-fragment))) (if (= (len expr) 2)
(for-each (render-to-dom (nth expr 1) env ns)
(fn (i) (let ((frag (create-fragment)))
(dom-append frag (render-to-dom (nth expr i) env ns))) (for-each
(range 1 (len expr))) (fn (i)
frag) (let ((result (render-to-dom (nth expr i) env ns)))
(when (not (spread? result))
(dom-append frag result))))
(range 1 (len expr)))
frag))
;; Definition forms — eval for side effects ;; Definition forms — eval for side effects
(definition-form? name) (definition-form? name)