From 59542243278c9bf2312547509e7362299c6906a4 Mon Sep 17 00:00:00 2001
From: KKlochko <KKlochko@protonmail.com>
Date: Wed, 27 Mar 2024 15:57:55 +0200
Subject: [PATCH] Add the db module with functions to create the connection.

---
 src/main/blog/db.cljs     | 16 ++++++++++++++++
 src/main/blog/server.cljs |  4 ++++
 2 files changed, 20 insertions(+)
 create mode 100644 src/main/blog/db.cljs

diff --git a/src/main/blog/db.cljs b/src/main/blog/db.cljs
new file mode 100644
index 0000000..c99f533
--- /dev/null
+++ b/src/main/blog/db.cljs
@@ -0,0 +1,16 @@
+(ns blog.db
+  (:require ["pg" :refer [Client]]
+            [blog.env :as env]))
+
+(defn create-client
+  "Create a new client for Postgres using enviroment variables."
+  []
+  (->> (env/get-database-credentials)
+       (cljs.core/clj->js)
+       (new Client)))
+
+(defn connect-client
+  "Connect a client to the database"
+  [client]
+  (. client connect))
+
diff --git a/src/main/blog/server.cljs b/src/main/blog/server.cljs
index 6f46b6a..271df89 100644
--- a/src/main/blog/server.cljs
+++ b/src/main/blog/server.cljs
@@ -1,9 +1,11 @@
 (ns blog.server
   (:require ["express" :as express]
+            [blog.db :as db]
             [blog.env :as env]))
 
 (def app (express))
 (def port (env/get-port))
+(def client (db/create-client))
 
 (defn set-routes
   "Sets the routes for server."
@@ -17,6 +19,8 @@
   []
   (set-routes)
 
+  (db/connect-client client)
+
   (. app listen port
      (fn []
        (println "Listen on " port))))