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

45
web/adapter-html.sx
View File

@@ -110,10 +110,47 @@
(render-html-lake args env)
(= name "marsh")
(render-html-marsh args env)
(or
(= name "portal")
(= name "error-boundary")
(= name "promise-delayed"))
(= name "error-boundary")
(let
((has-fallback (> (len args) 1)))
(let
((body-exprs (if has-fallback (rest args) args))
(fallback-expr (if has-fallback (first args) nil)))
(str
"<div data-sx-boundary=\"true\">"
(try-catch
(fn
()
(join
""
(map (fn (x) (render-to-html x env)) body-exprs)))
(fn
(err)
(let
((safe-err (replace (replace (str err) "<" "&lt;") ">" "&gt;")))
(if
(and fallback-expr (not (nil? fallback-expr)))
(try-catch
(fn
()
(render-to-html
(list
(trampoline (eval-expr fallback-expr env))
err
nil)
env))
(fn
(e2)
(str
"<div class=\"sx-render-error\" style=\"color:red;font-size:0.875rem;padding:0.5rem;border:1px solid red;border-radius:0.25rem;margin:0.5rem 0;\">Render error: "
safe-err
"</div>")))
(str
"<div class=\"sx-render-error\" style=\"color:red;font-size:0.875rem;padding:0.5rem;border:1px solid red;border-radius:0.25rem;margin:0.5rem 0;\">Render error: "
safe-err
"</div>")))))
"</div>")))
(or (= name "portal") (= name "promise-delayed"))
(join "" (map (fn (x) (render-to-html x env)) args))
(contains? HTML_TAGS name)
(render-html-element name args env)