clinic: add config module

.gitignore

@@ -12,7 +12,7 @@ pom.xml.asc
 .hgignore
 .hg/
 .calva/
-.clj-kondo/
+**/.clj-kondo/.cache/
 .lsp/
 target/
 node_modules/

clinic/.clj-kondo/config.edn

@@ -0,0 +1 @@
+{:lint-as {mount.core/defstate clojure.core/def}}

clinic/.gitignore

@@ -1,4 +1,5 @@
-.clj-kondo/
+.clj-kondo/.cache
 .lsp/
 target/
 resources/public/js
+.env

clinic/project.clj

@@ -1,7 +1,9 @@
 (defproject clinic "0.1.0-SNAPSHOT"
   :description "Onboarding project #2"
   :url "https://github.com/nilenso/ashutosh-onboarding/blob/main/clinic"
-  :dependencies [[org.clojure/clojure "1.11.1"]]
+  :dependencies [[aero "1.1.6"]
+                 [mount "0.1.17"]
+                 [org.clojure/clojure "1.11.1"]]
   :source-paths ["src/clj"]
   :main ^:skip-aot clinic.core
   :target-path "target/%s"

clinic/resources/config.edn

@@ -0,0 +1,2 @@
+{:fhir-server-base-url #or [#env FHIR_SERVER_BASE_URL "http://localhost:8090/fhir"]
+ :http-port #long #or [#env HTTP_PORT 8080]}

clinic/src/clj/clinic/config.clj

@@ -0,0 +1,14 @@
+(ns clinic.config
+  (:refer-clojure :exclude [read])
+  (:require [aero.core :as aero]
+            [clojure.java.io :as io]
+            [mount.core :refer [defstate]]))
+
+(defstate ^:private config
+  :start (-> "config.edn"
+             (io/resource)
+             (aero/read-config))
+  :stop nil)
+
+(defn read [key]
+  (get config key))

clinic/src/clj/clinic/core.clj

@@ -1,4 +1,7 @@
-(ns clinic.core)
+(ns clinic.core
+  (:require [clinic.config :as config]
+            [mount.core :as mount]))
 
 (defn -main []
-  (prn "Hello, world!"))
+  (mount/start)
+  (prn (config/read :fhir-server-base-url) (config/read :http-port)))

clinic/test/clj/clinic/config_test.clj

@@ -0,0 +1,10 @@
+(ns clj.clinic.config-test
+  (:require [clojure.test :refer [deftest is]]
+            [aero.core :as aero]
+            [clinic.config :as config]
+            [mount.core :as mount]))
+
+(deftest read-test
+  (with-redefs [aero/read-config (constantly {:test-key "test-val"})]
+    (mount/start #'config/config)
+    (is (= "test-val" (config/read :test-key)))))