KKlochko/simple-cljs-blog
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Add functions to get an article or articles with the brief content.

Browse Source
This commit is contained in:
KKlochko
2024-04-10 21:41:46 +03:00
parent d8d8340aa2
commit 72b9e604ca
1 changed files with 34 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/main/blog/db.cljs
+34 -2
View File
@@ -26,7 +26,21 @@
[client channel]
(go
(try
(let [res (<p! (. client query "select * from articles"))]
(let [res (<p! (. client query "select id, title, content, created from articles"))]
(>! channel (.-rows res)))
(catch js/Error err (js/console.log (ex-cause err)))))
channel)
(defn get-articles-briefly
"Reads all articles and returns via channel. It gets and returns the same channel. The content will be brief (<=60 characters)."
[client channel]
(go
(try
(let [res (<p! (. client query
(str "select id, title,"
"substr(content, 0, 60) content,"
"length(content) content_length,"
"created from articles")))]
(>! channel (.-rows res)))
(catch js/Error err (js/console.log (ex-cause err)))))
channel)
@@ -37,7 +51,25 @@
(go
(try
(let [res (<p! (.query client
"select * from articles where id=$1"
"select id, title, content, created from articles where id=$1"
(clj->js [id])))]
(>! channel (-> (.-rows res)
(js->clj :keywordize-keys true)
(first))))
(catch js/Error err (js/console.log (ex-cause err)))))
channel)
(defn get-article-briefly
"Reads an article with the id and returns via channel. It gets and returns the same channel. Empty collection if not found. The content will be brief (<=60 characters)."
[client id channel]
(go
(try
(let [res (<p! (.query client
(str "select id, title,"
"substr(content, 0, 60) content,"
"length(content) content_length,"
"created from articles"
"where id=$1")
(clj->js [id])))]
(>! channel (-> (.-rows res)
(js->clj :keywordize-keys true)