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>
150 lines
5.7 KiB
Plaintext
150 lines
5.7 KiB
Plaintext
;; SX reference — defhandler definitions for attribute detail demos
|
|
;;
|
|
;; These serve the live demos on the Reference > Attributes detail pages.
|
|
|
|
;; ---------------------------------------------------------------------------
|
|
;; Shared: return server time
|
|
;; ---------------------------------------------------------------------------
|
|
|
|
(defhandler ref-time (&key)
|
|
(let ((now (helper "now" "%H:%M:%S")))
|
|
(span (~tw :tokens "text-stone-800 text-sm")
|
|
"Server time: " (strong now))))
|
|
|
|
;; ---------------------------------------------------------------------------
|
|
;; sx-post: greet
|
|
;; ---------------------------------------------------------------------------
|
|
|
|
(defhandler ref-greet (&key)
|
|
(let ((name (or (form-data "name") "stranger")))
|
|
(span (~tw :tokens "text-stone-800 text-sm")
|
|
"Hello, " (strong name) "!")))
|
|
|
|
;; ---------------------------------------------------------------------------
|
|
;; sx-put: update status
|
|
;; ---------------------------------------------------------------------------
|
|
|
|
(defhandler ref-status (&key)
|
|
(let ((status (or (form-data "status") "unknown")))
|
|
(span (~tw :tokens "text-stone-700 text-sm")
|
|
"Status: " (strong status) " — updated via PUT")))
|
|
|
|
;; ---------------------------------------------------------------------------
|
|
;; sx-patch: update theme
|
|
;; ---------------------------------------------------------------------------
|
|
|
|
(defhandler ref-theme (&key)
|
|
(let ((theme (or (form-data "theme") "unknown")))
|
|
(str theme)))
|
|
|
|
;; ---------------------------------------------------------------------------
|
|
;; sx-delete: remove item
|
|
;; ---------------------------------------------------------------------------
|
|
|
|
(defhandler ref-delete (&key item-id)
|
|
"")
|
|
|
|
;; ---------------------------------------------------------------------------
|
|
;; sx-trigger: search
|
|
;; ---------------------------------------------------------------------------
|
|
|
|
(defhandler ref-trigger-search (&key)
|
|
(let ((q (helper "request-arg" "q" "")))
|
|
(if (empty? q)
|
|
(span (~tw :tokens "text-stone-400 text-sm") "Start typing to trigger a search.")
|
|
(span (~tw :tokens "text-stone-800 text-sm")
|
|
"Results for: " (strong q)))))
|
|
|
|
;; ---------------------------------------------------------------------------
|
|
;; sx-swap: new item
|
|
;; ---------------------------------------------------------------------------
|
|
|
|
(defhandler ref-swap-item (&key)
|
|
(let ((now (helper "now" "%H:%M:%S")))
|
|
(div (~tw :tokens "text-sm text-violet-700")
|
|
"New item (" now ")")))
|
|
|
|
;; ---------------------------------------------------------------------------
|
|
;; sx-swap-oob: update two targets
|
|
;; ---------------------------------------------------------------------------
|
|
|
|
(defhandler ref-oob (&key)
|
|
(let ((now (helper "now" "%H:%M:%S")))
|
|
(<>
|
|
(span (~tw :tokens "text-emerald-700 text-sm")
|
|
"Main updated at " now)
|
|
(div :id "ref-oob-side" :sx-swap-oob "innerHTML"
|
|
(span (~tw :tokens "text-violet-700 text-sm")
|
|
"OOB updated at " now)))))
|
|
|
|
;; ---------------------------------------------------------------------------
|
|
;; sx-select: page with multiple sections
|
|
;; ---------------------------------------------------------------------------
|
|
|
|
(defhandler ref-select-page (&key)
|
|
(let ((now (helper "now" "%H:%M:%S")))
|
|
(<>
|
|
(div :id "the-header"
|
|
(h3 "Page header — not selected"))
|
|
(div :id "the-content"
|
|
(span (~tw :tokens "text-emerald-700 text-sm")
|
|
"This fragment was selected from a larger response. Time: " now))
|
|
(div :id "the-footer"
|
|
(p "Page footer — not selected")))))
|
|
|
|
;; ---------------------------------------------------------------------------
|
|
;; sx-sync: slow echo
|
|
;; ---------------------------------------------------------------------------
|
|
|
|
(defhandler ref-slow-echo (&key)
|
|
(sleep 800)
|
|
(let ((q (helper "request-arg" "q" "")))
|
|
(span (~tw :tokens "text-stone-800 text-sm")
|
|
"Echo: " (strong q))))
|
|
|
|
;; ---------------------------------------------------------------------------
|
|
;; sx-encoding: file upload name
|
|
;; ---------------------------------------------------------------------------
|
|
|
|
(defhandler ref-upload-name (&key)
|
|
(let ((name (or (file-name "file") "(no file)")))
|
|
(span (~tw :tokens "text-stone-800 text-sm")
|
|
"Received: " (strong name))))
|
|
|
|
;; ---------------------------------------------------------------------------
|
|
;; sx-headers: echo custom headers
|
|
;; ---------------------------------------------------------------------------
|
|
|
|
(defhandler ref-echo-headers (&key)
|
|
(let ((headers (helper "request-headers" :prefix "X-")))
|
|
(if (empty? headers)
|
|
(span (~tw :tokens "text-stone-400 text-sm") "No custom headers received.")
|
|
(ul (~tw :tokens "text-sm text-stone-700 space-y-1")
|
|
(map (fn (h)
|
|
(li (strong (first h)) ": " (last h)))
|
|
headers)))))
|
|
|
|
;; ---------------------------------------------------------------------------
|
|
;; sx-include / sx-vals: echo all values
|
|
;; ---------------------------------------------------------------------------
|
|
|
|
(defhandler ref-echo-vals (&key)
|
|
(let ((vals (helper "request-args")))
|
|
(if (empty? vals)
|
|
(span (~tw :tokens "text-stone-400 text-sm") "No values received.")
|
|
(ul (~tw :tokens "text-sm text-stone-700 space-y-1")
|
|
(map (fn (v)
|
|
(li (strong (first v)) ": " (last v)))
|
|
vals)))))
|
|
|
|
;; ---------------------------------------------------------------------------
|
|
;; sx-retry: flaky endpoint
|
|
;; ---------------------------------------------------------------------------
|
|
|
|
(defhandler ref-flaky (&key)
|
|
(let ((n (inc-counter "ref-flaky")))
|
|
(if (!= (mod n 3) 0)
|
|
(error 503)
|
|
(span (~tw :tokens "text-emerald-700 text-sm")
|
|
"Success on attempt " n "!"))))
|