From 39b8c633b0cb5639b18e4f16189cbe3b0814a63e Mon Sep 17 00:00:00 2001
From: KKlochko <KKlochko@protonmail.com>
Date: Wed, 27 Mar 2024 14:40:25 +0200
Subject: [PATCH] Update to move server logic to the server module.

---
 src/main/blog/core.cljs   | 13 ++-----------
 src/main/blog/server.cljs | 23 +++++++++++++++++++++++
 2 files changed, 25 insertions(+), 11 deletions(-)
 create mode 100644 src/main/blog/server.cljs

diff --git a/src/main/blog/core.cljs b/src/main/blog/core.cljs
index a4aa78f..30f2b93 100644
--- a/src/main/blog/core.cljs
+++ b/src/main/blog/core.cljs
@@ -1,16 +1,7 @@
 (ns blog.core
-  (:require ["express" :as express]
-            [blog.env :as env]))
+  (:require [blog.server :as server]))
 
-(def app (express))
-(def port (env/get-port))
 
 (defn main []
-  (. app get "/"
-     (fn [req res]
-       (. res send "Hello world")))
-
-  (. app listen port
-     (fn []
-       (println "Listen on " port))))
+  (server/start))
 
diff --git a/src/main/blog/server.cljs b/src/main/blog/server.cljs
new file mode 100644
index 0000000..6f46b6a
--- /dev/null
+++ b/src/main/blog/server.cljs
@@ -0,0 +1,23 @@
+(ns blog.server
+  (:require ["express" :as express]
+            [blog.env :as env]))
+
+(def app (express))
+(def port (env/get-port))
+
+(defn set-routes
+  "Sets the routes for server."
+  []
+  (. app get "/"
+     (fn [req res]
+       (. res send "Hello world"))))
+
+(defn start
+  "Starts server."
+  []
+  (set-routes)
+
+  (. app listen port
+     (fn []
+       (println "Listen on " port))))
+