Add message to when config failed to be parsed.

Author: ericdallo

CHANGELOG.md

@@ -3,6 +3,7 @@
 ## Unreleased
 
 - Improve anthropic extraPayload requirement when adding models.
+- Add message to when config failed to be parsed.
 
 ## 0.40.0
 

src/eca/config.clj

@@ -6,19 +6,25 @@
   3. local config-file: searching from a local `.eca/config.json` file.
   4. `initializatonOptions` sent in `initialize` request."
   (:require
+   [camel-snake-kebab.core :as csk]
    [cheshire.core :as json]
    [cheshire.factory :as json.factory]
    [clojure.core.memoize :as memoize]
    [clojure.java.io :as io]
    [clojure.string :as string]
    [eca.logger :as logger]
-   [eca.shared :as shared]
-   [camel-snake-kebab.core :as csk])
+   [eca.shared :as shared])
   (:import
    [java.io File]))
 
 (set! *warn-on-reflection* true)
 
+(def ^:private logger-tag "[CONFIG]")
+
+(def ^:dynamic *env-var-config-error* false)
+(def ^:dynamic *global-config-error* false)
+(def ^:dynamic *local-config-error* false)
+
 (def initial-config
   {:providers {"openai" {:api "openai-responses"
                          :url "https://api.openai.com"
@@ -74,17 +80,19 @@
 
 (def ^:private ttl-cache-config-ms 5000)
 
-(defn ^:private safe-read-json-string [raw-string]
+(defn ^:private safe-read-json-string [raw-string config-dyn-var]
   (try
+    (alter-var-root config-dyn-var (constantly false))
     (binding [json.factory/*json-factory* (json.factory/make-json-factory
                                            {:allow-comments true})]
       (json/parse-string raw-string))
     (catch Exception e
-      (logger/warn "Error parsing config json:" (.getMessage e)))))
+      (alter-var-root config-dyn-var (constantly true))
+      (logger/warn logger-tag "Error parsing config json:" (.getMessage e)))))
 
 (defn ^:private config-from-envvar* []
   (some-> (System/getenv "ECA_CONFIG")
-          (safe-read-json-string)))
+          (safe-read-json-string (var *env-var-config-error*))))
 
 (def ^:private config-from-envvar (memoize config-from-envvar*))
 
@@ -96,7 +104,7 @@
 (defn ^:private config-from-global-file* []
   (let [config-file (io/file (global-config-dir) "config.json")]
     (when (.exists config-file)
-      (safe-read-json-string (slurp config-file)))))
+      (safe-read-json-string (slurp config-file) (var *global-config-error*)))))
 
 (def ^:private config-from-global-file (memoize/ttl config-from-global-file* :ttl/threshold ttl-cache-config-ms))
 
@@ -107,7 +115,7 @@
       final-config
       (let [config-file (io/file (shared/uri->filename uri) ".eca" "config.json")]
         (when (.exists config-file)
-          (safe-read-json-string (slurp config-file))))))
+          (safe-read-json-string (slurp config-file) (var *local-config-error*))))))
    {}
    roots))
 
@@ -193,3 +201,12 @@
                              (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"
+    *global-config-error* "global"
+    *local-config-error* "local"
+
+    ;; all good
+    :else nil))

src/eca/handlers.clj

@@ -9,6 +9,7 @@
    [eca.features.tools.mcp :as f.mcp]
    [eca.llm-api :as llm-api]
    [eca.logger :as logger]
+   [eca.messenger :as messenger]
    [eca.models :as models]
    [eca.shared :as shared]))
 
@@ -49,19 +50,28 @@
                   ollama-models)]
       (swap! db* update :models merge models))))
 
-(defn initialize [{:keys [db*]} params]
+(defn initialize [{:keys [db* messenger]} params]
   (logger/logging-task
    :eca/initialize
    (reset! config/initialization-config* (shared/map->camel-cased-map (:initialization-options params)))
    (let [config (config/all @db*)]
-     (logger/debug "Considered config: " config)
      (swap! db* assoc
             :client-info (:client-info params)
             :workspace-folders (:workspace-folders params)
             :client-capabilities (:capabilities params))
      (initialize-models! db* config)
      (when-not (:pureConfig config)
        (db/load-db-from-cache! db*))
+     (future
+       (Thread/sleep 1000) ;; wait chat window is open in some editors.
+       (when-let [error (config/validation-error)]
+         (messenger/chat-content-received
+          messenger
+          {:role "system"
+           :content {:type :text
+                     :text (format "\nFailed to parse '%s' config, check stderr logs, double check your config and restart\n"
+                                   error)}})))
+     (logger/debug "Considered config: " config)
      {:models (sort (keys (:models @db*)))
       :chat-default-model (f.chat/default-model @db* config)
       :chat-behaviors (:chat-behaviors @db*)