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

Rename all 1,169 components to path-based names with namespace support

Browse Source 
Component names now reflect filesystem location using / as path separator
and : as namespace separator for shared components:
  ~sx-header → ~layouts/header
  ~layout-app-body → ~shared:layout/app-body
  ~blog-admin-dashboard → ~admin/dashboard

209 files, 4,941 replacements across all services.

Co-Authored-By: Claude Opus 4.6 <noreply@anthropic.com>
This commit is contained in:
giles
2026-03-12 22:00:12 +00:00
parent de80d921e9
commit b0920a1121
209 changed files with 4620 additions and 4620 deletions
Download Patch File Download Diff File Expand all files Collapse all files

302
sx/sx/handlers/examples.sx
View File

@@ -61,11 +61,11 @@
(&key)
(let ((now (now "%Y-%m-%d %H:%M:%S")))
(<>
(~click-result :time now)
(~doc-oob-code :target-id "click-comp"
:text (component-source "~click-result"))
(~doc-oob-code :target-id "click-wire"
:text (str "(~click-result :time \"" now "\")")))))
(~examples/click-result :time now)
(~docs/oob-code :target-id "click-comp"
:text (component-source "~examples/click-result"))
(~docs/oob-code :target-id "click-wire"
:text (str "(~examples/click-result :time \"" now "\")")))))
;; --------------------------------------------------------------------------
@@ -80,11 +80,11 @@
(&key)
(let ((name (request-form "name" "")))
(<>
(~form-result :name name)
(~doc-oob-code :target-id "form-comp"
:text (component-source "~form-result"))
(~doc-oob-code :target-id "form-wire"
:text (str "(~form-result :name \"" name "\")")))))
(~examples/form-result :name name)
(~docs/oob-code :target-id "form-comp"
:text (component-source "~examples/form-result"))
(~docs/oob-code :target-id "form-wire"
:text (str "(~examples/form-result :name \"" name "\")")))))
;; --------------------------------------------------------------------------
@@ -101,11 +101,11 @@
(let ((now (now "%H:%M:%S"))
(count (if (< n 10) n 10)))
(<>
(~poll-result :time now :count count)
(~doc-oob-code :target-id "poll-comp"
:text (component-source "~poll-result"))
(~doc-oob-code :target-id "poll-wire"
:text (str "(~poll-result :time \"" now "\" :count " count ")"))))))
(~examples/poll-result :time now :count count)
(~docs/oob-code :target-id "poll-comp"
:text (component-source "~examples/poll-result"))
(~docs/oob-code :target-id "poll-wire"
:text (str "(~examples/poll-result :time \"" now "\" :count " count ")"))))))
;; --------------------------------------------------------------------------
@@ -119,9 +119,9 @@
:returns "element"
(&key item-id)
(<>
(~doc-oob-code :target-id "delete-comp"
:text (component-source "~delete-row"))
(~doc-oob-code :target-id "delete-wire"
(~docs/oob-code :target-id "delete-comp"
:text (component-source "~examples/delete-row"))
(~docs/oob-code :target-id "delete-wire"
:text "(empty — row removed by outerHTML swap)")))
@@ -136,11 +136,11 @@
(&key)
(let ((value (request-arg "value" "")))
(<>
(~inline-edit-form :value value)
(~doc-oob-code :target-id "edit-comp"
:text (component-source "~inline-edit-form"))
(~doc-oob-code :target-id "edit-wire"
:text (str "(~inline-edit-form :value \"" value "\")")))))
(~examples/inline-edit-form :value value)
(~docs/oob-code :target-id "edit-comp"
:text (component-source "~examples/inline-edit-form"))
(~docs/oob-code :target-id "edit-wire"
:text (str "(~examples/inline-edit-form :value \"" value "\")")))))
(defhandler ex-edit-save
:path "/sx/(geography.(hypermedia.(example.(api.edit))))"
@@ -150,11 +150,11 @@
(&key)
(let ((value (request-form "value" "")))
(<>
(~inline-view :value value)
(~doc-oob-code :target-id "edit-comp"
:text (component-source "~inline-view"))
(~doc-oob-code :target-id "edit-wire"
:text (str "(~inline-view :value \"" value "\")")))))
(~examples/inline-view :value value)
(~docs/oob-code :target-id "edit-comp"
:text (component-source "~examples/inline-view"))
(~docs/oob-code :target-id "edit-wire"
:text (str "(~examples/inline-view :value \"" value "\")")))))
(defhandler ex-edit-cancel
:path "/sx/(geography.(hypermedia.(example.(api.edit-cancel))))"
@@ -163,11 +163,11 @@
(&key)
(let ((value (request-arg "value" "")))
(<>
(~inline-view :value value)
(~doc-oob-code :target-id "edit-comp"
:text (component-source "~inline-view"))
(~doc-oob-code :target-id "edit-wire"
:text (str "(~inline-view :value \"" value "\")")))))
(~examples/inline-view :value value)
(~docs/oob-code :target-id "edit-comp"
:text (component-source "~examples/inline-view"))
(~docs/oob-code :target-id "edit-wire"
:text (str "(~examples/inline-view :value \"" value "\")")))))
;; --------------------------------------------------------------------------
@@ -186,7 +186,7 @@
(div :id "oob-box-b" :sx-swap-oob "innerHTML"
(p :class "text-violet-600 font-medium" "Box B updated via OOB!")
(p :class "text-sm text-stone-500" (str "at " now)))
(~doc-oob-code :target-id "oob-wire"
(~docs/oob-code :target-id "oob-wire"
:text (str "(<> (p ... \"Box A updated!\") (div :id \"oob-box-b\" :sx-swap-oob \"innerHTML\" (p ... \"Box B updated!\")))")))))
@@ -201,11 +201,11 @@
(&key)
(let ((now (now "%H:%M:%S")))
(<>
(~lazy-result :time now)
(~doc-oob-code :target-id "lazy-comp"
:text (component-source "~lazy-result"))
(~doc-oob-code :target-id "lazy-wire"
:text (str "(~lazy-result :time \"" now "\")")))))
(~examples/lazy-result :time now)
(~docs/oob-code :target-id "lazy-comp"
:text (component-source "~examples/lazy-result"))
(~docs/oob-code :target-id "lazy-wire"
:text (str "(~examples/lazy-result :time \"" now "\")")))))
;; --------------------------------------------------------------------------
@@ -235,7 +235,7 @@
"Loading more...")
(div :class "p-3 text-center text-stone-500 text-sm font-medium"
"All items loaded."))
(~doc-oob-code :target-id "scroll-wire"
(~docs/oob-code :target-id "scroll-wire"
:text (str "(items for page " page " + sentinel)"))))))
@@ -254,11 +254,11 @@
(let ((job-id (str "job-" n)))
(state-set! (str "ex-job-" job-id) 0)
(<>
(~progress-status :percent 0 :job-id job-id)
(~doc-oob-code :target-id "progress-comp"
:text (component-source "~progress-status"))
(~doc-oob-code :target-id "progress-wire"
:text (str "(~progress-status :percent 0 :job-id \"" job-id "\")"))))))
(~examples/progress-status :percent 0 :job-id job-id)
(~docs/oob-code :target-id "progress-comp"
:text (component-source "~examples/progress-status"))
(~docs/oob-code :target-id "progress-wire"
:text (str "(~examples/progress-status :percent 0 :job-id \"" job-id "\")"))))))
(defhandler ex-progress-status
:path "/sx/(geography.(hypermedia.(example.(api.progress-status))))"
@@ -270,11 +270,11 @@
(let ((next (if (>= (+ current (random-int 15 30)) 100) 100 (+ current (random-int 15 30)))))
(state-set! (str "ex-job-" job-id) next)
(<>
(~progress-status :percent next :job-id job-id)
(~doc-oob-code :target-id "progress-comp"
:text (component-source "~progress-status"))
(~doc-oob-code :target-id "progress-wire"
:text (str "(~progress-status :percent " next " :job-id \"" job-id "\")")))))))
(~examples/progress-status :percent next :job-id job-id)
(~docs/oob-code :target-id "progress-comp"
:text (component-source "~examples/progress-status"))
(~docs/oob-code :target-id "progress-wire"
:text (str "(~examples/progress-status :percent " next " :job-id \"" job-id "\")")))))))
;; --------------------------------------------------------------------------
@@ -293,9 +293,9 @@
search-languages))))
(<>
(~search-results :items results :query q)
(~doc-oob-code :target-id "search-comp"
(~docs/oob-code :target-id "search-comp"
:text (component-source "~search-results"))
(~doc-oob-code :target-id "search-wire"
(~docs/oob-code :target-id "search-wire"
:text (str "(~search-results :items (list ...) :query \"" q "\")"))))))
@@ -312,22 +312,22 @@
(let ((result
(cond
(= email "")
(list "validation-error" "(~validation-error :message \"Email is required\")"
(~validation-error :message "Email is required"))
(list "validation-error" "(~examples/validation-error :message \"Email is required\")"
(~examples/validation-error :message "Email is required"))
(not (contains? email "@"))
(list "validation-error" "(~validation-error :message \"Invalid email format\")"
(~validation-error :message "Invalid email format"))
(list "validation-error" "(~examples/validation-error :message \"Invalid email format\")"
(~examples/validation-error :message "Invalid email format"))
(some (fn (e) (= (lower-case e) (lower-case email))) taken-emails)
(list "validation-error" (str "(~validation-error :message \"" email " is already taken\")")
(~validation-error :message (str email " is already taken")))
(list "validation-error" (str "(~examples/validation-error :message \"" email " is already taken\")")
(~examples/validation-error :message (str email " is already taken")))
:else
(list "validation-ok" (str "(~validation-ok :email \"" email "\")")
(~validation-ok :email email)))))
(list "validation-ok" (str "(~examples/validation-ok :email \"" email "\")")
(~examples/validation-ok :email email)))))
(<>
(nth result 2)
(~doc-oob-code :target-id "validate-comp"
(~docs/oob-code :target-id "validate-comp"
:text (component-source (first result)))
(~doc-oob-code :target-id "validate-wire"
(~docs/oob-code :target-id "validate-wire"
:text (nth result 1))))))
(defhandler ex-validate-submit
@@ -358,7 +358,7 @@
(map (fn (i) (option :value i i)) items))))
(<>
options
(~doc-oob-code :target-id "values-wire"
(~docs/oob-code :target-id "values-wire"
:text (str "(options for \"" cat "\")")))))))
@@ -375,11 +375,11 @@
(let ((msg (request-form "message" "(empty)"))
(now (now "%H:%M:%S")))
(<>
(~reset-message :message msg :time now)
(~doc-oob-code :target-id "reset-comp"
:text (component-source "~reset-message"))
(~doc-oob-code :target-id "reset-wire"
:text (str "(~reset-message :message \"" msg "\" :time \"" now "\")")))))
(~examples/reset-message :message msg :time now)
(~docs/oob-code :target-id "reset-comp"
:text (component-source "~examples/reset-message"))
(~docs/oob-code :target-id "reset-wire"
:text (str "(~examples/reset-message :message \"" msg "\" :time \"" now "\")")))))
;; --------------------------------------------------------------------------
@@ -394,12 +394,12 @@
(let ((default (get edit-row-defaults row-id {"id" row-id "name" "" "price" "0" "stock" "0"})))
(let ((row (state-get (str "ex-row-" row-id) default)))
(<>
(~edit-row-form :id (get row "id") :name (get row "name")
(~examples/edit-row-form :id (get row "id") :name (get row "name")
:price (get row "price") :stock (get row "stock"))
(~doc-oob-code :target-id "editrow-comp"
:text (component-source "~edit-row-form"))
(~doc-oob-code :target-id "editrow-wire"
:text (str "(~edit-row-form :id \"" (get row "id") "\" ...)"))))))
(~docs/oob-code :target-id "editrow-comp"
:text (component-source "~examples/edit-row-form"))
(~docs/oob-code :target-id "editrow-wire"
:text (str "(~examples/edit-row-form :id \"" (get row "id") "\" ...)"))))))
(defhandler ex-editrow-save
:path "/sx/(geography.(hypermedia.(example.(api.(editrow.<sx:row_id>)))))"
@@ -413,11 +413,11 @@
(state-set! (str "ex-row-" row-id)
{"id" row-id "name" name "price" price "stock" stock})
(<>
(~edit-row-view :id row-id :name name :price price :stock stock)
(~doc-oob-code :target-id "editrow-comp"
:text (component-source "~edit-row-view"))
(~doc-oob-code :target-id "editrow-wire"
:text (str "(~edit-row-view :id \"" row-id "\" ...)")))))
(~examples/edit-row-view :id row-id :name name :price price :stock stock)
(~docs/oob-code :target-id "editrow-comp"
:text (component-source "~examples/edit-row-view"))
(~docs/oob-code :target-id "editrow-wire"
:text (str "(~examples/edit-row-view :id \"" row-id "\" ...)")))))
(defhandler ex-editrow-cancel
:path "/sx/(geography.(hypermedia.(example.(api.(editrow-cancel.<sx:row_id>)))))"
@@ -427,12 +427,12 @@
(let ((default (get edit-row-defaults row-id {"id" row-id "name" "" "price" "0" "stock" "0"})))
(let ((row (state-get (str "ex-row-" row-id) default)))
(<>
(~edit-row-view :id (get row "id") :name (get row "name")
(~examples/edit-row-view :id (get row "id") :name (get row "name")
:price (get row "price") :stock (get row "stock"))
(~doc-oob-code :target-id "editrow-comp"
:text (component-source "~edit-row-view"))
(~doc-oob-code :target-id "editrow-wire"
:text (str "(~edit-row-view :id \"" (get row "id") "\" ...)"))))))
(~docs/oob-code :target-id "editrow-comp"
:text (component-source "~examples/edit-row-view"))
(~docs/oob-code :target-id "editrow-wire"
:text (str "(~examples/edit-row-view :id \"" (get row "id") "\" ...)"))))))
;; --------------------------------------------------------------------------
;; Bulk Update
@@ -460,14 +460,14 @@
(let ((default (get bulk-user-defaults uid
{"id" uid "name" "" "email" "" "status" "active"})))
(let ((u (state-get (str "ex-bulk-" uid) default)))
(~bulk-row :id (get u "id") :name (get u "name")
(~examples/bulk-row :id (get u "id") :name (get u "name")
:email (get u "email") :status (get u "status")))))
(list "1" "2" "3" "4" "5"))))
(<>
rows
(~doc-oob-code :target-id "bulk-comp"
:text (component-source "~bulk-row"))
(~doc-oob-code :target-id "bulk-wire"
(~docs/oob-code :target-id "bulk-comp"
:text (component-source "~examples/bulk-row"))
(~docs/oob-code :target-id "bulk-wire"
:text (str "(updated " (len ids) " users to " new-status ")")))))))
@@ -491,7 +491,7 @@
(span :id "swap-counter" :sx-swap-oob "innerHTML"
:class "self-center text-sm text-stone-500"
(str "Count: " n))
(~doc-oob-code :target-id "swap-wire"
(~docs/oob-code :target-id "swap-wire"
:text (str "(entry + oob counter: " n ")")))))
@@ -521,7 +521,7 @@
(p :class "text-xs text-amber-600" "Revenue")))
(div :id "dash-footer" :class "p-3 bg-stone-50 rounded"
(p :class "text-sm text-stone-500" (str "Last updated: " now)))
(~doc-oob-code :target-id "filter-wire"
(~docs/oob-code :target-id "filter-wire"
:text (str "(<> (div :id \"dash-header\" ...) (div :id \"dash-stats\" ...) (div :id \"dash-footer\" ...))")))))
@@ -539,10 +539,10 @@
content
(div :id "tab-buttons" :sx-swap-oob "innerHTML"
:class "flex border-b border-stone-200"
(~tab-btn :tab "tab1" :label "Overview" :active (if (= tab "tab1") "true" "false"))
(~tab-btn :tab "tab2" :label "Details" :active (if (= tab "tab2") "true" "false"))
(~tab-btn :tab "tab3" :label "History" :active (if (= tab "tab3") "true" "false")))
(~doc-oob-code :target-id "tabs-wire"
(~examples/tab-btn :tab "tab1" :label "Overview" :active (if (= tab "tab1") "true" "false"))
(~examples/tab-btn :tab "tab2" :label "Details" :active (if (= tab "tab2") "true" "false"))
(~examples/tab-btn :tab "tab3" :label "History" :active (if (= tab "tab3") "true" "false")))
(~docs/oob-code :target-id "tabs-wire"
:text (str "(content for " tab " + oob tab buttons")))))
@@ -560,9 +560,9 @@
(let ((color (nth anim-colors idx)))
(<>
(~anim-result :color color :time now)
(~doc-oob-code :target-id "anim-comp"
(~docs/oob-code :target-id "anim-comp"
:text (component-source "~anim-result"))
(~doc-oob-code :target-id "anim-wire"
(~docs/oob-code :target-id "anim-wire"
:text (str "(~anim-result :color \"" color "\" :time \"" now "\")"))))))
@@ -576,12 +576,12 @@
:returns "element"
(&key)
(<>
(~dialog-modal :title "Confirm Action"
(~examples/dialog-modal :title "Confirm Action"
:message "Are you sure you want to proceed? This is a demo dialog rendered entirely with sx components.")
(~doc-oob-code :target-id "dialog-comp"
:text (component-source "~dialog-modal"))
(~doc-oob-code :target-id "dialog-wire"
:text "(~dialog-modal :title \"Confirm Action\" :message \"...\")")))
(~docs/oob-code :target-id "dialog-comp"
:text (component-source "~examples/dialog-modal"))
(~docs/oob-code :target-id "dialog-wire"
:text "(~examples/dialog-modal :title \"Confirm Action\" :message \"...\")")))
(defhandler ex-dialog-close
:path "/sx/(geography.(hypermedia.(example.(api.dialog-close))))"
@@ -589,7 +589,7 @@
:returns "element"
(&key)
(<>
(~doc-oob-code :target-id "dialog-wire"
(~docs/oob-code :target-id "dialog-wire"
:text "(empty — dialog closed)")))
@@ -605,11 +605,11 @@
(let ((key (request-arg "key" "")))
(let ((action (get kbd-actions key (str "Unknown key: " key))))
(<>
(~kbd-result :key key :action action)
(~doc-oob-code :target-id "kbd-comp"
:text (component-source "~kbd-result"))
(~doc-oob-code :target-id "kbd-wire"
:text (str "(~kbd-result :key \"" key "\" :action \"" action "\")"))))))
(~examples/kbd-result :key key :action action)
(~docs/oob-code :target-id "kbd-comp"
:text (component-source "~examples/kbd-result"))
(~docs/oob-code :target-id "kbd-wire"
:text (str "(~examples/kbd-result :key \"" key "\" :action \"" action "\")"))))))
;; --------------------------------------------------------------------------
@@ -624,11 +624,11 @@
(let ((p (state-get "ex-profile"
{"name" "Ada Lovelace" "email" "ada@example.com" "role" "Engineer"})))
(<>
(~pp-form-full :name (get p "name") :email (get p "email") :role (get p "role"))
(~doc-oob-code :target-id "pp-comp"
:text (component-source "~pp-form-full"))
(~doc-oob-code :target-id "pp-wire"
:text (str "(~pp-form-full :name \"" (get p "name") "\" ...)")))))
(~examples/pp-form-full :name (get p "name") :email (get p "email") :role (get p "role"))
(~docs/oob-code :target-id "pp-comp"
:text (component-source "~examples/pp-form-full"))
(~docs/oob-code :target-id "pp-wire"
:text (str "(~examples/pp-form-full :name \"" (get p "name") "\" ...)")))))
(defhandler ex-pp-put
:path "/sx/(geography.(hypermedia.(example.(api.putpatch))))"
@@ -641,11 +641,11 @@
(role (request-form "role" "")))
(state-set! "ex-profile" {"name" name "email" email "role" role})
(<>
(~pp-view :name name :email email :role role)
(~doc-oob-code :target-id "pp-comp"
:text (component-source "~pp-view"))
(~doc-oob-code :target-id "pp-wire"
:text (str "(~pp-view :name \"" name "\" ...)")))))
(~examples/pp-view :name name :email email :role role)
(~docs/oob-code :target-id "pp-comp"
:text (component-source "~examples/pp-view"))
(~docs/oob-code :target-id "pp-wire"
:text (str "(~examples/pp-view :name \"" name "\" ...)")))))
(defhandler ex-pp-cancel
:path "/sx/(geography.(hypermedia.(example.(api.putpatch-cancel))))"
@@ -655,11 +655,11 @@
(let ((p (state-get "ex-profile"
{"name" "Ada Lovelace" "email" "ada@example.com" "role" "Engineer"})))
(<>
(~pp-view :name (get p "name") :email (get p "email") :role (get p "role"))
(~doc-oob-code :target-id "pp-comp"
:text (component-source "~pp-view"))
(~doc-oob-code :target-id "pp-wire"
:text (str "(~pp-view :name \"" (get p "name") "\" ...)")))))
(~examples/pp-view :name (get p "name") :email (get p "email") :role (get p "role"))
(~docs/oob-code :target-id "pp-comp"
:text (component-source "~examples/pp-view"))
(~docs/oob-code :target-id "pp-wire"
:text (str "(~examples/pp-view :name \"" (get p "name") "\" ...)")))))
;; --------------------------------------------------------------------------
@@ -676,11 +676,11 @@
(ct (request-content-type)))
(let ((body (json-encode data)))
(<>
(~json-result :body body :content-type ct)
(~doc-oob-code :target-id "json-comp"
:text (component-source "~json-result"))
(~doc-oob-code :target-id "json-wire"
:text (str "(~json-result :body \"" body "\" :content-type \"" ct "\")"))))))
(~examples/json-result :body body :content-type ct)
(~docs/oob-code :target-id "json-comp"
:text (component-source "~examples/json-result"))
(~docs/oob-code :target-id "json-wire"
:text (str "(~examples/json-result :body \"" body "\" :content-type \"" ct "\")"))))))
;; --------------------------------------------------------------------------
@@ -698,11 +698,11 @@
vals)))
(let ((items (map (fn (pair) (str (first pair) ": " (nth pair 1))) filtered)))
(<>
(~echo-result :label "values" :items items)
(~doc-oob-code :target-id "vals-comp"
:text (component-source "~echo-result"))
(~doc-oob-code :target-id "vals-wire"
:text (str "(~echo-result :label \"values\" :items (list ...))")))))))
(~examples/echo-result :label "values" :items items)
(~docs/oob-code :target-id "vals-comp"
:text (component-source "~examples/echo-result"))
(~docs/oob-code :target-id "vals-wire"
:text (str "(~examples/echo-result :label \"values\" :items (list ...))")))))))
(defhandler ex-echo-headers
:path "/sx/(geography.(hypermedia.(example.(api.echo-headers))))"
@@ -713,11 +713,11 @@
(let ((custom (filter (fn (pair) (starts-with? (first pair) "x-")) all-headers)))
(let ((items (map (fn (pair) (str (first pair) ": " (nth pair 1))) custom)))
(<>
(~echo-result :label "headers" :items items)
(~doc-oob-code :target-id "vals-comp"
:text (component-source "~echo-result"))
(~doc-oob-code :target-id "vals-wire"
:text (str "(~echo-result :label \"headers\" :items (list ...))")))))))
(~examples/echo-result :label "headers" :items items)
(~docs/oob-code :target-id "vals-comp"
:text (component-source "~examples/echo-result"))
(~docs/oob-code :target-id "vals-wire"
:text (str "(~examples/echo-result :label \"headers\" :items (list ...))")))))))
;; --------------------------------------------------------------------------
@@ -732,11 +732,11 @@
(sleep 2000)
(let ((now (now "%H:%M:%S")))
(<>
(~loading-result :time now)
(~doc-oob-code :target-id "loading-comp"
:text (component-source "~loading-result"))
(~doc-oob-code :target-id "loading-wire"
:text (str "(~loading-result :time \"" now "\")")))))
(~examples/loading-result :time now)
(~docs/oob-code :target-id "loading-comp"
:text (component-source "~examples/loading-result"))
(~docs/oob-code :target-id "loading-wire"
:text (str "(~examples/loading-result :time \"" now "\")")))))
;; --------------------------------------------------------------------------
@@ -752,11 +752,11 @@
(sleep delay-ms)
(let ((q (request-arg "q" "")))
(<>
(~sync-result :query q :delay (str delay-ms))
(~doc-oob-code :target-id "sync-comp"
:text (component-source "~sync-result"))
(~doc-oob-code :target-id "sync-wire"
:text (str "(~sync-result :query \"" q "\" :delay \"" delay-ms "\")"))))))
(~examples/sync-result :query q :delay (str delay-ms))
(~docs/oob-code :target-id "sync-comp"
:text (component-source "~examples/sync-result"))
(~docs/oob-code :target-id "sync-wire"
:text (str "(~examples/sync-result :query \"" q "\" :delay \"" delay-ms "\")"))))))
;; --------------------------------------------------------------------------
@@ -775,8 +775,8 @@
(set-response-status 503)
"")
(<>
(~retry-result :attempt (str n) :message "Success! The endpoint finally responded.")
(~doc-oob-code :target-id "retry-comp"
:text (component-source "~retry-result"))
(~doc-oob-code :target-id "retry-wire"
:text (str "(~retry-result :attempt \"" n "\" ...)"))))))
(~examples/retry-result :attempt (str n) :message "Success! The endpoint finally responded.")
(~docs/oob-code :target-id "retry-comp"
:text (component-source "~examples/retry-result"))
(~docs/oob-code :target-id "retry-wire"
:text (str "(~examples/retry-result :attempt \"" n "\" ...)"))))))