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

Live-read all DOM attributes: forms and preloads too
All checks were successful
Build and Deploy / build-and-deploy (push) Successful in 3m49s
Details

Browse Source 
bindBoostForm re-reads method/action at submit time.
bind-preload-for re-reads verb-info and headers at preload time.
No closed-over stale values anywhere in the event binding system.

Co-Authored-By: Claude Opus 4.6 <noreply@anthropic.com>
This commit is contained in:
giles
2026-03-07 02:11:09 +00:00
parent b85a46bb62
commit 04ff03f5d4
3 changed files with 29 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
shared/sx/ref/orchestration.sx
View File

@@ -780,17 +780,18 @@
;; Bind preload event listeners based on sx-preload attribute
(let ((preload-attr (dom-get-attr el "sx-preload")))
(when preload-attr
(let ((info (get-verb-info el)))
(when info
(let ((url (get info "url"))
(headers (build-request-headers el
(loaded-component-names) _css-hash))
(events (if (= preload-attr "mousedown")
(list "mousedown" "touchstart")
(list "mouseover")))
(debounce-ms (if (= preload-attr "mousedown") 0 100)))
(bind-preload el events debounce-ms
(fn () (do-preload url headers))))))))))
(let ((events (if (= preload-attr "mousedown")
(list "mousedown" "touchstart")
(list "mouseover")))
(debounce-ms (if (= preload-attr "mousedown") 0 100)))
;; Re-read verb info and headers at preload time, not bind time
(bind-preload el events debounce-ms
(fn ()
(let ((info (get-verb-info el)))
(when info
(do-preload (get info "url")
(build-request-headers el
(loaded-component-names) _css-hash)))))))))))
(define do-preload