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

add navigation system

Browse Source
This commit is contained in:
Adam Jeniski 2025-07-18 17:45:18 -09:00
parent 8a3f9fee9a
commit 2f04ea6d49
2 changed files with 103 additions and 47 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
resources/public/index.html
View File

@ -1,14 +1,10 @@
<!-- This is auto-generated by Datastar. DO NOT EDIT. -->
<!DOCTYPE html> <!DOCTYPE html>
<html lang="en"> <html lang="en">
<head> <head>
<title>hello world d*</title> <title>hello world d*</title>
<script src="https://unpkg.com/@tailwindcss/browser@4"></script>
<script type="module" src="https://cdn.jsdelivr.net/gh/starfederation/datastar@main/bundles/datastar.js"></script> <script type="module" src="https://cdn.jsdelivr.net/gh/starfederation/datastar@main/bundles/datastar.js"></script>
<!-- put css here -->
</head> </head>
<body style="outline: solid; 1px; red"> <body>
%%content%% %%content%%
</body> </body>
</html> </html>

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

@ -12,7 +12,12 @@
[starfederation.datastar.clojure.adapter.ring :refer [->sse-response on-open on-close] :as dr] [starfederation.datastar.clojure.adapter.ring :refer [->sse-response on-open on-close] :as dr]
[clojure.data.json :as json])) [clojure.data.json :as json]))
(declare conns) ;; for broadcasts (declare conns add-elements! sse-navigate!)
;; global utils
(defn tap! [x]
(println "tap:" x)
x)
;; html utils ;; html utils
(defn html->str [hiccup-forms] (defn html->str [hiccup-forms]
@ -20,32 +25,61 @@
(hc/compile (hc/compile
hiccup-forms))) hiccup-forms)))
(defn page-template [content] (defn html-template [content]
(-> (io/resource "public/index.html") (-> (io/resource "public/index.html")
slurp slurp
(string/split-lines) (string/split-lines)
(->> (drop 3) (->> (drop 3)
(apply str)) (apply str))
(str "<div data-on-load=\"@get('connect')\"></div>")
(string/replace "%%content%%" content))) (string/replace "%%content%%" content)))
;; fix. use replaceState api? or push some real state? back button doesn't work yet
(defn update-url-frag [url]
(html->str [:script (format "history.pushState({page:1}, 'Title', '%s')"
url)]))
;; home page (defn sse-page [request respond view url]
(def home-frag
(html->str
[:main {:id "main"
:data-on-load "@get('/connect')"}
[:input {:data-bind "msg"}]
[:div {:data-text "$msg"}]
[:button {:data-on-click "@get('/hello-world')"} "click for text animation"]]))
(def home-page
(page-template home-frag))
(defn home [request respond _]
(respond (respond
(-> home-page (->sse-response request
{on-open
(fn [sse]
(d*/with-open-sse sse
(sse-navigate! sse (view {}))
(add-elements! sse (update-url-frag url))))})))
(defn text-html-page [request respond view]
(-> (html-template (view {}))
ruresp/response ruresp/response
(ruresp/content-type "text/html")))) (ruresp/content-type "text/html")
respond))
(defn page [request respond url view]
(if (-> request
:headers
(get "datastar-request")
(= "true"))
(sse-page request respond view url)
(text-html-page request respond view)
))
;; views
(def home-view
(fn [_]
(html->str
[:main
[:div
[:input {:data-bind "msg"}]
[:div {:data-text "$msg"}]
[:button {:data-on-click "@get('/hello-world')"} "click for text animation"]]
[:button {:data-on-click "@get('/page2')"} "go to page 2"]])))
(defn page2-view [_]
(html->str
[:main
[:p "this is page2"]
[:button {:data-on-click "@get('/')"} "go back to home"]]))
;; d* api utils ;; d* api utils
@ -55,11 +89,15 @@
(defn add-elements! [sse elems] (defn add-elements! [sse elems]
(d*/patch-elements! sse elems #:d*.elements{:patch-mode "append" (d*/patch-elements! sse elems #:d*.elements{:patch-mode "append"
:selector "body"})) :selector "body"}))
(defn sse-navigate! [sse elems]
(d*/patch-elements! sse elems #:d*.elements{:patch-mode "replace"
:selector "main"}))
(defn try! (defn try!
[d*-f! sse & args] [d*-f! sse & args]
(try (apply d*-f! sse args) (try (apply d*-f! sse args)
(catch Exception _ (catch Exception e
(println "exception occured. dropping connection") (println "exception occured. dropping connection. error:" e)
(d*/close-sse! sse) (d*/close-sse! sse)
(swap! conns disj sse)))) (swap! conns disj sse))))
@ -75,6 +113,14 @@
(doseq [conn @conns] (doseq [conn @conns]
(apply try! f conn arg args)))) (apply try! f conn arg args))))
(defn connect-sse! [sse]
(swap! conns conj sse)
(println "adding connection"))
(defn disconnect-sse! [sse]
(swap! conns disj sse)
(println "dropping connection"))
(defn broadcast-signals! [data] (defn broadcast-signals! [data]
(broadcast! patch-signals-edn! data)) (broadcast! patch-signals-edn! data))
@ -89,16 +135,16 @@
(try! d*/close-sse! conn) (try! d*/close-sse! conn)
(swap! conns disj conn))) (swap! conns disj conn)))
(defn connect [request respond _raise] (defn defaction-async [url on-open-f on-close-f]
(respond (let [sse-handler
(->sse-response request (fn [request respond raise_]
{on-open (respond
(fn [sse] (swap! conns conj sse) (->sse-response
(println "adding connection")) request
on-close {on-open on-open-f
(fn [sse] on-close on-close-f})))]
(swap! conns disj sse) [[url sse-handler]
(println "dropping connection"))}))) [(str "/sse" url) sse-handler]]))
;; hello world animation ;; hello world animation
@ -106,22 +152,36 @@
(def msg-count (count message)) (def msg-count (count message))
(defn hello-world [request respond _raise] (defn hello-world [sse]
(respond (dotimes [i msg-count]
(->sse-response request (patch-signals-edn! sse {:msg (subs message 0 (inc i))})
{on-open (Thread/sleep 500)))
(fn [sse]
(d*/with-open-sse sse
(dotimes [i msg-count]
(patch-signals-edn! sse {:msg (subs message 0 (inc i))})
(Thread/sleep 500))))})))
;; http stuffs ;; http stuffs
(defn defaction [url f]
(let [sse-handler
(fn [request respond raise_]
(respond
(->sse-response
request
{on-open #(d*/with-open-sse % (f %))})))]
[[url sse-handler]
[(str "/sse" url) sse-handler]]))
(defn defpage [endpoint view]
[[endpoint
{:handler (fn [request respond _]
(page request respond endpoint view))}]
[(str "/sse" endpoint)
{:handler (fn [request respond _]
(page request respond endpoint view))}]])
(def routes (def routes
[["/" {:handler home}] (concat
["/connect" {:handler connect}] (defpage "/" home-view)
["/hello-world" {:handler hello-world}]]) (defpage "/page2" page2-view)
(defaction "/hello-world" hello-world)
(defaction-async "/connect" connect-sse! disconnect-sse!)))
(def router (rr/router routes)) (def router (rr/router routes))