coop/rose-ash
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Adapter fixes, orchestration updates, example content + SPA tests

Browse Source 
From other session: adapter-html/sx/dom fixes, orchestration
improvements, examples-content refactoring, SPA navigation test
updates, WASM copies synced.

Co-Authored-By: Claude Opus 4.6 (1M context) <noreply@anthropic.com>
This commit is contained in:
giles
2026-04-01 13:35:49 +00:00
parent cd9ebc0cd8
commit 46f77c3b1e
15 changed files with 442 additions and 231 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
web/adapter-dom.sx
View File

@@ -1302,8 +1302,8 @@
(fn
((args :as list) (env :as dict) (ns :as string))
(let
((fallback-expr (first args))
(body-exprs (rest args))
((fallback-expr (if (> (len args) 1) (first args) nil))
(body-exprs (if (> (len args) 1) (rest args) args))
(container (dom-create-element "div" nil))
(retry-version (signal 0)))
(dom-set-attr container "data-sx-boundary" "true")
@@ -1333,6 +1333,6 @@
(retry-fn
(fn () (swap! retry-version (fn (n) (+ n 1))))))
(let
((fallback-dom (if (lambda? fallback-fn) (render-lambda-dom fallback-fn (list err retry-fn) env ns) (render-to-dom (apply fallback-fn (list err retry-fn)) env ns))))
((fallback-dom (if (nil? fallback-fn) (let ((el (dom-create-element "div" nil))) (dom-set-attr el "class" "sx-render-error") (dom-set-attr el "style" "color:red;font-size:0.875rem;padding:0.5rem;border:1px solid red;border-radius:0.25rem;margin:0.5rem 0;") (dom-set-text-content el (str "Render error: " err)) el) (if (lambda? fallback-fn) (render-lambda-dom fallback-fn (list err retry-fn) env ns) (render-to-dom (apply fallback-fn (list err retry-fn)) env ns)))))
(dom-append container fallback-dom)))))))
container)))