Add login providers to doctor command

Author: ericdallo

CHANGELOG.md

@@ -2,6 +2,8 @@
 
 ## Unreleased
 
+- Add login providers to `/doctor`.
+
 ## 0.36.1
 
 - Improved the `eca_directory_tree` tool. #82

src/eca/features/commands.clj

@@ -10,7 +10,7 @@
    [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]]))
+   [eca.shared :as shared :refer [multi-str update-some]]))
 
 (set! *warn-on-reflection* true)
 
@@ -105,19 +105,19 @@
                        :type :native
                        :description "Prompt sent to LLM as system instructions."
                        :arguments []}]
-        custom-commands (map (fn [custom]
-                               {:name (:name custom)
-                                :type :custom-prompt
-                                :description (:path custom)
-                                :arguments []})
-                             (custom-commands config (:workspace-folders db)))]
+        custom-cmds (map (fn [custom]
+                           {:name (:name custom)
+                            :type :custom-prompt
+                            :description (:path custom)
+                            :arguments []})
+                         (custom-commands config (:workspace-folders db)))]
     (concat mcp-prompts
             eca-commands
-            custom-commands)))
+            custom-cmds)))
 
-(defn ^:private get-custom-command [command args custom-commands]
+(defn ^:private get-custom-command [command args custom-cmds]
   (when-let [raw-content (:content (first (filter #(= command (:name %))
-                                                  custom-commands)))]
+                                                  custom-cmds)))]
     (let [raw-content (string/replace raw-content "$ARGS" (string/join " " args))]
       (reduce (fn [content [i arg]]
                 (string/replace content (str "$ARG" (inc i)) arg))
@@ -130,6 +130,15 @@
                ""
                (str "Default model: " model)
                ""
+               (str "Login providers: " (reduce
+                                         (fn [s [provider auth]]
+                                           (str s provider ": " (-> auth
+                                                                    (update-some :verifier shared/obfuscate)
+                                                                    (update-some :device-code shared/obfuscate)
+                                                                    (update-some :access-token shared/obfuscate)
+                                                                    (update-some :api-key shared/obfuscate)) "\n"))
+                                         "\n"
+                                         (:auth db)))
                (str "Relevant env vars: " (reduce (fn [s [key val]]
                                                     (if (or (string/includes? key "KEY")
                                                             (string/includes? key "API")
@@ -142,7 +151,7 @@
 
 (defn handle-command! [command args {:keys [chat-id db* config full-model instructions]}]
   (let [db @db*
-        custom-commands (custom-commands config (:workspace-folders db))]
+        custom-cmds (custom-commands config (:workspace-folders db))]
     (case command
       "init" {:type :send-prompt
               :clear-history-after-finished? true
@@ -188,7 +197,7 @@
                      :chats {chat-id [{:role "system" :content [{:type :text :text instructions}]}]}}
 
       ;; else check if a custom command
-      (if-let [custom-command-prompt (get-custom-command command args custom-commands)]
+      (if-let [custom-command-prompt (get-custom-command command args custom-cmds)]
         {:type :send-prompt
          :clear-history-after-finished? false
          :prompt custom-command-prompt}

src/eca/shared.clj

@@ -60,6 +60,17 @@
                  "assoc-some expects even number of arguments after map/vector, found odd number")))
        ret))))
 
+(defn update-some
+  "Update if the value if not nil."
+  ([m k f]
+   (if-let [v (get m k)]
+     (assoc m k (f v))
+     m))
+  ([m k f & args]
+   (if-let [v (get m k)]
+     (assoc m k (apply f v args))
+     m)))
+
 (defn multi-str [& strings] (string/join "\n" (remove nil? strings)))
 
 (defn tokens->cost [input-tokens input-cache-creation-tokens input-cache-read-tokens output-tokens full-model db]
@@ -86,3 +97,17 @@
                        (into {} (map f x))
                        x))
                    m)))
+
+(defn obfuscate
+  "Obfuscate all but first 3 and last 3 characters of a string, minimum 5 characters.
+   If the string is 4 characters or less, obfuscate all characters.
+   Replace the middle part with asterisks, but always at least 5 asterisks."
+  [s]
+  (when s
+    (string/replace
+      (if (<= (count s) 4)
+        (apply str (repeat (count s) "*"))
+        (str (subs s 0 3)
+             (apply str (repeat (- (count s) 4) "*"))
+             (subs s (- (count s) 3))))
+      (string/join "" (repeat (- (count s) 4) "*")) "*****")))