Add a env var ECA_CONFIGFILE option to pass in config

Author: sg-qwt

CHANGELOG.md

@@ -2,6 +2,8 @@
 
 ## Unreleased
 
+- Add `ECA_CONFIGFILE` env var to allow point config file explicitly.
+
 ## 0.71.2
 
 - Fix regression in `/compact` command. #162

docs/configuration.md

@@ -45,6 +45,10 @@ There are multiples ways to configure ECA:
     ```bash
     ECA_CONFIG='{"myConfig": "my_value"}' eca server
     ```
+	
+    ```bash
+    ECA_CONFIGFILE='/home/alex/dev/testconfig.json' eca server
+    ```
 
 ## Providers / Models
 

src/eca/config.clj

@@ -4,7 +4,11 @@
   1. base: fixed config var `eca.config/initial-config`.
   2. env var: searching for a `ECA_CONFIG` env var which should contains a valid json config.
   3. local config-file: searching from a local `.eca/config.json` file.
-  4. `initializatonOptions` sent in `initialize` request."
+  4. `initializatonOptions` sent in `initialize` request.
+
+  When a `ECA_CONFIGFILE` env var set, it takes precedence and we only deep merge:
+  1. base: fixed config var `eca.config/initial-config`.
+  2. env file: searching for a `ECA_CONFIGFILE` env var which points to a json config file."
   (:require
    [camel-snake-kebab.core :as csk]
    [cheshire.core :as json]
@@ -23,6 +27,7 @@
 (def ^:private logger-tag "[CONFIG]")
 
 (def ^:dynamic *env-var-config-error* false)
+(def ^:dynamic *env-file-config-error* false)
 (def ^:dynamic *global-config-error* false)
 (def ^:dynamic *local-config-error* false)
 
@@ -143,11 +148,19 @@
       (logger/warn logger-tag "Error parsing config json:" (.getMessage e)))))
 
 (defn ^:private config-from-envvar* []
-  (some-> (System/getenv "ECA_CONFIG")
+  (some-> (get-env "ECA_CONFIG")
           (safe-read-json-string (var *env-var-config-error*))))
 
 (def ^:private config-from-envvar (memoize config-from-envvar*))
 
+(defn ^:private config-from-envfile* []
+  (when-some [path (get-env "ECA_CONFIGFILE")]
+    (let [config-file (io/file path)]
+      (when (.exists config-file)
+        (safe-read-json-string (slurp config-file) (var *env-file-config-error*))))))
+
+(def ^:private config-from-envfile (memoize config-from-envfile*))
+
 (defn global-config-dir ^File []
   (let [xdg-config-home (or (get-env "XDG_CONFIG_HOME")
                             (io/file (get-property "user.home") ".config"))]
@@ -265,17 +278,24 @@
 (defn all [db]
   (let [initialization-config @initialization-config*
         pure-config? (:pureConfig initialization-config)]
-    (deep-merge initial-config
-                (normalize-fields
-                 eca-config-normalization-rules
-                 (deep-merge initialization-config
-                             (when-not pure-config? (config-from-envvar))
-                             (when-not pure-config? (config-from-global-file))
-                             (when-not pure-config? (config-from-local-file (:workspace-folders db))))))))
+    (if-some [envfile-config (config-from-envfile)]
+      (deep-merge initial-config
+                  (normalize-fields
+                   eca-config-normalization-rules
+                   (deep-merge initialization-config
+                               (when-not pure-config? envfile-config))))
+      (deep-merge initial-config
+                  (normalize-fields
+                   eca-config-normalization-rules
+                   (deep-merge initialization-config
+                               (when-not pure-config? (config-from-envvar))
+                               (when-not pure-config? (config-from-global-file))
+                               (when-not pure-config? (config-from-local-file (:workspace-folders db)))))))))
 
 (defn validation-error []
   (cond
     *env-var-config-error* "ENV"
+    *env-file-config-error* "ENVFILE"
     *global-config-error* "global"
     *local-config-error* "local"