From a092283cf294d5cc65fdf8e44c430e044e834bcf Mon Sep 17 00:00:00 2001
From: KKlochko <KKlochko@protonmail.com>
Date: Wed, 27 Mar 2024 14:28:44 +0200
Subject: [PATCH] Add the environment variables support.

---
 src/main/blog/core.cljs | 5 +++--
 src/main/blog/env.cljs  | 9 +++++++++
 2 files changed, 12 insertions(+), 2 deletions(-)
 create mode 100644 src/main/blog/env.cljs

diff --git a/src/main/blog/core.cljs b/src/main/blog/core.cljs
index be61ffc..a4aa78f 100644
--- a/src/main/blog/core.cljs
+++ b/src/main/blog/core.cljs
@@ -1,8 +1,9 @@
 (ns blog.core
-  (:require ["express" :as express]))
+  (:require ["express" :as express]
+            [blog.env :as env]))
 
 (def app (express))
-(def port 3000)
+(def port (env/get-port))
 
 (defn main []
   (. app get "/"
diff --git a/src/main/blog/env.cljs b/src/main/blog/env.cljs
new file mode 100644
index 0000000..137c72c
--- /dev/null
+++ b/src/main/blog/env.cljs
@@ -0,0 +1,9 @@
+(ns blog.env)
+
+(defn get-port
+  "Gets the environment variable PORT. If no variable, then the default port is 3000. Server will listen requests on this port."
+  []
+  (or (-> (.-env js/process)
+          (.-PORT))
+      "3000"))
+