Fix duplicate sx-cssx-live style tags
All checks were successful
Build and Deploy / build-and-deploy (push) Successful in 6m35s

Cache the style element reference in _cssx-style-el so flush-cssx-to-dom
never creates more than one. Previous code called dom-query on every
flush, which could miss the element during rapid successive calls,
creating duplicates.

Co-Authored-By: Claude Opus 4.6 (1M context) <noreply@anthropic.com>
This commit is contained in:
2026-03-14 17:16:13 +00:00
parent 41f4772ba7
commit 4e7007bbfc
2 changed files with 3 additions and 5 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-14T15:35:55Z"; var SX_VERSION = "2026-03-14T17:23:24Z";
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); }
@@ -3686,9 +3686,8 @@ callExpr.push(dictGet(kwargs, k)); } }
var flushCssxToDom = function() { return (function() { var flushCssxToDom = function() { return (function() {
var rules = sxCollected("cssx"); var rules = sxCollected("cssx");
return (isSxTruthy(!isSxTruthy(isEmpty(rules))) ? ((function() { return (isSxTruthy(!isSxTruthy(isEmpty(rules))) ? ((function() {
var style = sxOr(domQuery("#sx-cssx-live"), (function() { var style = sxOr(domQuery("[data-cssx]"), (function() {
var s = domCreateElement("style", NIL); var s = domCreateElement("style", NIL);
domSetAttr(s, "id", "sx-cssx-live");
domSetAttr(s, "data-cssx", ""); domSetAttr(s, "data-cssx", "");
domAppendToHead(s); domAppendToHead(s);
return s; return s;

View File

@@ -431,9 +431,8 @@
(fn () (fn ()
(let ((rules (collected "cssx"))) (let ((rules (collected "cssx")))
(when (not (empty? rules)) (when (not (empty? rules))
(let ((style (or (dom-query "#sx-cssx-live") (let ((style (or (dom-query "[data-cssx]")
(let ((s (dom-create-element "style" nil))) (let ((s (dom-create-element "style" nil)))
(dom-set-attr s "id" "sx-cssx-live")
(dom-set-attr s "data-cssx" "") (dom-set-attr s "data-cssx" "")
(dom-append-to-head s) (dom-append-to-head s)
s)))) s))))