|
|
@ -98,6 +98,20 @@
|
|
|
|
(res/status 500)
|
|
|
|
(res/status 500)
|
|
|
|
(res/send (ex-message err))))))))
|
|
|
|
(res/send (ex-message err))))))))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(defn htmx-delete-article-row-handler-factory
|
|
|
|
|
|
|
|
[client]
|
|
|
|
|
|
|
|
(fn [req res]
|
|
|
|
|
|
|
|
(let [channel (chan)
|
|
|
|
|
|
|
|
id (.-id (.-params req))]
|
|
|
|
|
|
|
|
(go
|
|
|
|
|
|
|
|
(try
|
|
|
|
|
|
|
|
(let [id (<! (db/delete-article client id channel))]
|
|
|
|
|
|
|
|
(res/status 200)
|
|
|
|
|
|
|
|
(.send res ""))
|
|
|
|
|
|
|
|
(catch js/Error err
|
|
|
|
|
|
|
|
(res/status 500)
|
|
|
|
|
|
|
|
(res/send (ex-message err))))))))
|
|
|
|
|
|
|
|
|
|
|
|
(defn htmx-create-article-handler-factory
|
|
|
|
(defn htmx-create-article-handler-factory
|
|
|
|
[client]
|
|
|
|
[client]
|
|
|
|
(fn [req res]
|
|
|
|
(fn [req res]
|
|
|
|