ajet/datastar-explore
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

add broadcast ui example

Browse Source
This commit is contained in:
Adam Jeniski 2025-07-21 08:44:33 -09:00
parent 7af519c788
commit 32fcf7a6e9
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/main/example/core.clj
View File

@ -16,6 +16,9 @@
(u/patch-signals-edn! sse {:msg (subs message 0 (inc i))}) (u/patch-signals-edn! sse {:msg (subs message 0 (inc i))})
(Thread/sleep 500))) (Thread/sleep 500)))
(defaction say-hi [sse_]
(u/broadcast-signals! {:msg "hello from the great beyond!"}))
;; pages ;; pages
(defpage home-page (defpage home-page
(html->str (html->str
@ -31,7 +34,12 @@
(defpage page-2 (defpage page-2
(html->str (html->str
[:main [:main
[:div
[:p "this is page2"] [:p "this is page2"]
[:button
{:data-on-click (->expr (@post ~say-hi))}
"say hi to everyone"]]
[:button {:data-on-click (->expr (@post ~home-page))} [:button {:data-on-click (->expr (@post ~home-page))}
"go back to home"]])) "go back to home"]]))