giles
d40a9c6796
Build tooling: updated OCaml bootstrapper, compile-modules, bundle.sh, sx-build-all. WASM browser: rebuilt sx_browser.bc.js/wasm, sx-platform-2.js, .sxbc bytecode files. CSSX/Tailwind: reworked cssx.sx templates and tw-layout, added tw-type support. Content: refreshed essays, plans, geography, reactive islands, docs, demos, handlers. New tools: bisect_sxbc.sh, test-spa.js, render-trace.sx, morph playwright spec. Tests: added test-match.sx, test-examples.sx, updated test-tw.sx and web tests. Co-Authored-By: Claude Opus 4.6 (1M context) <noreply@anthropic.com>
94 lines
5.9 KiB
Plaintext
94 lines
5.9 KiB
Plaintext
;; Streaming & Suspense demo — Phase 6
|
|
;;
|
|
;; This page uses :stream true to enable chunked transfer encoding.
|
|
;; The browser receives the HTML shell immediately with loading skeletons,
|
|
;; then content fills in as each IO resolves at staggered intervals.
|
|
;;
|
|
;; The :data expression is an async generator that yields three chunks
|
|
;; at 1s, 3s, and 5s. Each chunk resolves a different ~shared:pages/suspense slot.
|
|
|
|
;; Color map for stream chunk styling (all string keys for get compatibility)
|
|
(define stream-colors
|
|
{"green" {"border" "border-green-200" "bg" "bg-green-50" "title" "text-green-900"
|
|
"text" "text-green-800" "sub" "text-green-700" "code" "bg-green-100"
|
|
"dot" "bg-green-400"}
|
|
"blue" {"border" "border-blue-200" "bg" "bg-blue-50" "title" "text-blue-900"
|
|
"text" "text-blue-800" "sub" "text-blue-700" "code" "bg-blue-100"
|
|
"dot" "bg-blue-400"}
|
|
"amber" {"border" "border-amber-200" "bg" "bg-amber-50" "title" "text-amber-900"
|
|
"text" "text-amber-800" "sub" "text-amber-700" "code" "bg-amber-100"
|
|
"dot" "bg-amber-400"}})
|
|
|
|
;; Generic streamed content chunk — rendered once per yield from the
|
|
;; async generator. The :content expression receives different bindings
|
|
;; each time, and the _stream_id determines which ~shared:pages/suspense slot it fills.
|
|
(defcomp ~streaming-demo/chunk (&key (stream-label :as string) (stream-color :as string) (stream-message :as string) (stream-time :as string))
|
|
(let ((colors (get stream-colors stream-color)))
|
|
(div :class (str "rounded-lg border p-5 space-y-3 " (get colors "border") " " (get colors "bg"))
|
|
(div (~tw :tokens "flex items-center gap-2")
|
|
(div :class (str "w-3 h-3 rounded-full " (get colors "dot")))
|
|
(h2 :class (str "text-lg font-semibold " (get colors "title")) stream-label))
|
|
(p :class (get colors "text") stream-message)
|
|
(p :class (str "text-sm " (get colors "sub"))
|
|
"Resolved at: " (code :class (str "px-1 rounded " (get colors "code")) stream-time)))))
|
|
|
|
;; Skeleton placeholder for a stream slot
|
|
(defcomp ~streaming-demo/stream-skeleton ()
|
|
(div (~tw :tokens "rounded-lg border border-stone-200 bg-stone-50 p-5 space-y-3 animate-pulse")
|
|
(div (~tw :tokens "flex items-center gap-2")
|
|
(div (~tw :tokens "w-3 h-3 rounded-full bg-stone-300"))
|
|
(div (~tw :tokens "h-6 bg-stone-200 rounded w-1/3")))
|
|
(div (~tw :tokens "h-4 bg-stone-200 rounded w-2/3"))
|
|
(div (~tw :tokens "h-4 bg-stone-200 rounded w-1/2"))))
|
|
|
|
;; Static layout — takes &rest children where the three suspense slots go.
|
|
(defcomp ~streaming-demo/layout (&rest children)
|
|
(div (~tw :tokens "space-y-8")
|
|
(div (~tw :tokens "border-b border-stone-200 pb-6")
|
|
(h1 (~tw :tokens "text-2xl font-bold text-stone-900") "Streaming & Suspense Demo")
|
|
(p (~tw :tokens "mt-2 text-stone-600")
|
|
"This page uses " (code (~tw :tokens "bg-stone-100 px-1 rounded text-violet-700") ":stream true")
|
|
" in its defpage declaration. The browser receives the page skeleton instantly, "
|
|
"then three IO sources resolve at staggered intervals (1s, 3s, 5s)."))
|
|
|
|
;; Slot: suspense placeholders (or resolved content)
|
|
(div (~tw :tokens "grid gap-4") children)
|
|
|
|
;; Flow diagram
|
|
(div (~tw :tokens "space-y-4")
|
|
(h2 (~tw :tokens "text-lg font-semibold text-stone-800") "Streaming Flow")
|
|
(div (~tw :tokens "grid gap-3")
|
|
(map (fn (item)
|
|
(div (~tw :tokens "flex items-start gap-3 rounded-lg border border-stone-200 bg-white p-4")
|
|
(div (~tw :tokens "flex-shrink-0 w-8 h-8 rounded-full bg-violet-100 flex items-center justify-center text-violet-700 font-bold text-sm")
|
|
(get item "label"))
|
|
(p (~tw :tokens "text-stone-700 text-sm pt-1") (get item "detail"))))
|
|
(list
|
|
{:label "Shell" :detail "HTML shell with three suspense placeholders sent immediately"}
|
|
{:label "Boot" :detail "sx-browser.js loads, renders fallback skeletons"}
|
|
{:label "1s" :detail "Fast API responds — first skeleton replaced with green box"}
|
|
{:label "3s" :detail "Database query completes — second skeleton replaced with blue box"}
|
|
{:label "5s" :detail "ML inference finishes — third skeleton replaced with amber box"}))))
|
|
|
|
;; How it works
|
|
(div (~tw :tokens "rounded-lg border border-violet-200 bg-violet-50 p-5 space-y-3")
|
|
(h2 (~tw :tokens "text-lg font-semibold text-violet-900") "How Multi-Stream Works")
|
|
(ol (~tw :tokens "list-decimal list-inside text-violet-800 space-y-2 text-sm")
|
|
(li "Server evaluates " (code ":data") " — gets an " (em "async generator"))
|
|
(li "HTML shell with three " (code "~shared:pages/suspense") " placeholders sent immediately")
|
|
(li "Generator yields first chunk after 1s — server sends " (code "__sxResolve(\"stream-fast\", ...)"))
|
|
(li "Generator yields second chunk after 3s — " (code "__sxResolve(\"stream-medium\", ...)"))
|
|
(li "Generator yields third chunk after 5s — " (code "__sxResolve(\"stream-slow\", ...)"))
|
|
(li "Each resolve replaces its skeleton independently")))
|
|
|
|
;; Technical details
|
|
(div (~tw :tokens "rounded-lg border border-stone-200 bg-stone-50 p-4 text-sm space-y-2")
|
|
(p (~tw :tokens "font-semibold text-stone-800") "Implementation details")
|
|
(ul (~tw :tokens "list-disc list-inside text-stone-600 space-y-1")
|
|
(li (code "defpage :stream true") " — opts the page into chunked transfer encoding")
|
|
(li (code ":data") " helper is an async generator — each " (code "yield") " resolves a different suspense slot")
|
|
(li "Each yield includes " (code "_stream_id") " matching a " (code "~shared:pages/suspense :id") " in the shell")
|
|
(li (code ":content") " expression is re-evaluated with each yield's bindings")
|
|
(li "Headers stream concurrently — independent of the data generator")
|
|
(li "Future: SSE/WebSocket for re-resolving slots after initial page load")))))
|