From c7223f0a00082597ca2a129ba3af931269452e0a Mon Sep 17 00:00:00 2001
From: KKlochko <KKlochko@protonmail.com>
Date: Wed, 27 Mar 2024 16:17:44 +0200
Subject: [PATCH] Add the get-articles to read all articles.

---
 src/main/blog/db.cljs | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/src/main/blog/db.cljs b/src/main/blog/db.cljs
index 3d6b0ce..c39a6a2 100644
--- a/src/main/blog/db.cljs
+++ b/src/main/blog/db.cljs
@@ -1,5 +1,7 @@
 (ns blog.db
   (:require ["pg" :refer [Client]]
+            [cljs.core.async :refer [go, take!, put!, >!, chan]]
+            [cljs.core.async.interop :refer-macros [<p!]]
             [blog.env :as env]))
 
 (defn create-client
@@ -18,3 +20,14 @@
   [client]
   (. client query "CREATE TABLE IF NOT EXISTS articles (id SERIAL PRIMARY KEY, title VARCHAR(255) NOT NULL, content TEXT NOT NULL, created TIMESTAMP DEFAULT CURRENT_TIMESTAMP);"))
 
+(defn get-articles
+  "Reads all articles and returns via channel. It gets and returns the same channel."
+  [client channel]
+  (go
+    (try
+      (let [res (<p! (. client query "select * from articles"))]
+        (>! channel (.-rows res)))
+      (catch js/Error err (js/console.log (ex-cause err))))
+    )
+  channel)
+