ajet/tbd
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

refactor to use utils

Browse Source
This commit is contained in:
Adam Jeniski 2025-09-17 12:46:18 -09:00
parent 09af95c459
commit 905640b0e1
1 changed files with 44 additions and 60 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

104
src/ajet/todo/core.clj
View File

@ -12,6 +12,27 @@
[starfederation.datastar.clojure.api :as d*]
[starfederation.datastar.clojure.expressions :refer [->expr]]))
;; utils
(defmacro fn-sse [[req sse :as _bindings]
& body]
`(fn [~req respond# _#]
(respond#
(->sse-response
~req
{on-open (fn [~sse]
(d*/with-open-sse ~sse
~@body))}))))
(defmacro defn-sse [var-name
[req sse :as _bindings]
& body]
`(defn ~var-name [~req respond# _#]
(respond#
(->sse-response
~req
{on-open (fn [~sse]
(d*/with-open-sse ~sse
~@body))}))))
(comment
(do
(defonce printer (bound-fn* pprint/pprint))
@ -19,6 +40,7 @@
(remove-tap printer))
;; app
(defn render-page [content]
(str
(h/html
@ -34,8 +56,7 @@
[:body content]])))
(defn todos-fragment []
;; todo: make functional. sloppy sloppy
(let [todos (db/get-all-todos)]
(let [todos (db/get-all-todos)] ;; todo: make functional. sloppy sloppy
(h/html
[:div {:id "todos"}
[:div {:data-computed-show-toggle-display "($showComplete ? 'hide' : 'show') + ' done'"}]
@ -90,28 +111,7 @@
#:d*.elements{:selector "#todos"
:patch-mode "replace"}))
(defmacro fn-sse [[req sse :as _bindings]
& body]
`(fn [~req respond# _#]
(respond#
(->sse-response
~req
{on-open (fn [~sse]
(d*/with-open-sse ~sse
~@body))}))))
(defmacro defn-sse [var-name
[req sse :as _bindings]
& body]
`(defn ~var-name [~req respond# _#]
(respond#
(->sse-response
~req
{on-open (fn [~sse]
(d*/with-open-sse ~sse
~@body))}))))
(defn-sse create-todo [req sse]
(defn-sse create-todo-handler [req sse]
(let [title (-> req :body :title)]
(when title
(db/add-todo! title))
@ -126,43 +126,27 @@
render-page
respond)))
(wrap-json-body
(context "/sse/todo" []
(GET "/" []
(fn-sse [_req sse]
(refresh-todos! sse)))
(POST "/create-todo" [] create-todo)
(-> (context "/sse/todo" []
(GET "/" []
(fn-sse [_req sse]
(refresh-todos! sse)))
(POST "/create-todo" [] create-todo-handler)
(context ["/:id", :id #"[0-9]+"] [id]
(let-routes [id (read-string id)]
(PATCH "/set" []
(fn [req respond _]
(db/set-todo-done! id true)
(respond
(->sse-response req
{on-open (fn [sse]
(d*/with-open-sse sse
(refresh-todos! sse)))}))))
(PATCH "/unset" []
(fn [req respond _]
(db/set-todo-done! id false)
(respond
(->sse-response
req
{on-open (fn [sse]
(d*/with-open-sse sse
(refresh-todos! sse)))}))))
(DELETE "/" []
(db/delete-todo! id)
(fn [req respond _]
(respond
(->sse-response
req
{on-open
(fn [sse]
(d*/with-open-sse sse
(refresh-todos! sse)))})))))))
{:keywords? true})
(context ["/:id", :id #"[0-9]+"] [id]
(let-routes [id (read-string id)]
(PATCH "/set" []
(fn-sse [_req sse]
(db/set-todo-done! id true)
(refresh-todos! sse)))
(PATCH "/unset" []
(fn-sse [_req sse]
(db/set-todo-done! id false)
(refresh-todos! sse)))
(DELETE "/" []
(fn-sse [_req sse]
(db/delete-todo! id)
(refresh-todos! sse))))))
(wrap-json-body {:keywords? true}))
(route/not-found (str (h/html [:h2 "Not Found"]))))
(def app #'approutes)