Add /doctor command

Author: ericdallo

CHANGELOG.md

@@ -2,6 +2,8 @@
 
 ## Unreleased
 
+- Add `/doctor` command to help with troubleshooting
+
 ## 0.29.1
 
 - Fix args streaming in toolCallPrepare to not repeat the args. https://github.com/editor-code-assistant/eca-nvim/issues/28

docs/features.md

@@ -74,9 +74,12 @@ Eca supports commands that usually are triggered via shash (`/`) in the chat, co
 
 The built-in commands are:
 
-`/costs`: shows costs about current session.
-`/repo-map-show`: shows the current repoMap context of the session.
-`/resume`: resume a chat from previous session of this workspace folder.
+`/init`: Create/update the AGENT.md file with details about the workspace for best LLM output quality.
+`/costs`: Show costs about current session.
+`/resume`: Resume a chat from previous session of this workspace folder.
+`/doctor`: Show information about ECA, useful for troubleshooting.
+`/repo-map-show`: Show the current repoMap context of the session.
+`/prompt-show`: Show the final prompt sent to LLM with all contexts and ECA details.
 
 #### Custom commands
 

src/eca/features/commands.clj

@@ -7,6 +7,7 @@
    [eca.features.index :as f.index]
    [eca.features.prompt :as f.prompt]
    [eca.features.tools.mcp :as f.mcp]
+   [eca.llm-api :as llm-api]
    [eca.shared :as shared :refer [multi-str]]))
 
 (set! *warn-on-reflection* true)
@@ -82,6 +83,10 @@
                        :type :native
                        :description "Resume the chats from this session workspaces."
                        :arguments []}
+                      {:name "doctor"
+                       :type :native
+                       :description "Check ECA details for troubleshooting."
+                       :arguments []}
                       {:name "repo-map-show"
                        :type :native
                        :description "Actual repoMap of current session."
@@ -109,6 +114,22 @@
               raw-content
               (map-indexed vector args)))))
 
+(defn ^:private doctor-msg [db config]
+  (let [model (llm-api/default-model db config)]
+    (multi-str (str "ECA version:" (config/eca-version))
+               ""
+               (str "Default model: " model)
+               ""
+               (str "Relevant env vars: " (reduce (fn [s [key val]]
+                                                    (if (or (string/includes? key "KEY")
+                                                            (string/includes? key "API")
+                                                            (string/includes? key "URL")
+                                                            (string/includes? key "BASE"))
+                                                      (str s key "=" val "\n")
+                                                      s))
+                                                  ""
+                                                  (System/getenv))))))
+
 (defn handle-command! [command args chat-id model instructions config db*]
   (let [db @db*
         custom-commands (custom-commands config (:workspace-folders db))]
@@ -136,6 +157,8 @@
                                     (str "Total cost: $" (shared/tokens->cost total-input-tokens total-input-cache-creation-tokens total-input-cache-read-tokens total-output-tokens model db)))]
                 {:type :chat-messages
                  :chats {chat-id [{:role "system" :content [{:type :text :text text}]}]}})
+      "doctor" {:type :chat-messages
+                :chats {chat-id [{:role "system" :content [{:type :text :text (doctor-msg db config)}]}]}}
       "repo-map-show" {:type :chat-messages
                        :chats {chat-id [{:role "system" :content [{:type :text :text (f.index/repo-map db config {:as-string? true})}]}]}}
       "prompt-show" {:type :chat-messages