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

35
sx/sx/examples.sx
View File

@@ -7,7 +7,7 @@
demo
(sx-code :as string)
(sx-lang :as string?)
(handler-code :as string)
(handler-names :as list)
(handler-lang :as string?)
(comp-placeholder-id :as string?)
(wire-placeholder-id :as string?)
@@ -17,31 +17,38 @@
(~docs/page
:title title
(p :class "text-stone-600 mb-6" description)
(~examples/card
:title "Demo"
:description demo-description
(~examples/demo demo))
(h3 :class "text-lg font-semibold text-stone-700 mt-6" "S-expression")
(~examples/source
:src-code (highlight sx-code (if sx-lang sx-lang "lisp")))
(error-boundary
(~examples/card
:title "Demo"
:description demo-description
(~examples/demo demo)))
(h3 :class "text-lg font-semibold text-stone-700 mt-8 mb-3" "S-expression")
(error-boundary
(~examples/source
:src-code (highlight sx-code (if sx-lang sx-lang "lisp"))))
(when
comp-placeholder-id
(<>
(h3
:class "text-lg font-semibold text-stone-700 mt-6"
:class "text-lg font-semibold text-stone-700 mt-8 mb-3"
(if comp-heading comp-heading "Component"))
(~docs/placeholder :id comp-placeholder-id)))
(error-boundary (~docs/placeholder :id comp-placeholder-id))))
(h3
:class "text-lg font-semibold text-stone-700 mt-6"
:class "text-lg font-semibold text-stone-700 mt-8 mb-3"
(if handler-heading handler-heading "Server handler"))
(~examples/source
:src-code (highlight handler-code (if handler-lang handler-lang "python")))
(error-boundary
(~examples/source
:src-code (highlight
(join "\n\n" (map handler-source handler-names))
(if handler-lang handler-lang "python"))))
(div
:class "flex items-center justify-between mt-6"
(h3 :class "text-lg font-semibold text-stone-700" "Wire response")
(~docs/clear-cache-btn))
(when wire-note (p :class "text-stone-500 text-sm mb-2" wire-note))
(when wire-placeholder-id (~docs/placeholder :id wire-placeholder-id))))
(when
wire-placeholder-id
(error-boundary (~docs/placeholder :id wire-placeholder-id)))))
(defcomp
~examples/reference-index-content