Fix manual anthropic login to save credentials in global config instead of cache.

Author: ericdallo

CHANGELOG.md

@@ -2,6 +2,8 @@
 
 ## Unreleased
 
+- Fix manual anthropic login to save credentials in global config instead of cache.
+
 ## 0.51.2
 
 - Minor log improvement of failed to start MCPs.

src/eca/llm_providers/anthropic.clj

@@ -3,6 +3,7 @@
    [cheshire.core :as json]
    [clojure.java.io :as io]
    [clojure.string :as string]
+   [eca.config :as config]
    [eca.features.login :as f.login]
    [eca.llm-util :as llm-util]
    [eca.logger :as logger]
@@ -328,11 +329,11 @@
 
 (defmethod f.login/login-step ["anthropic" :login/waiting-api-key] [{:keys [db* input provider send-msg!] :as ctx}]
   (if (string/starts-with? input "sk-")
-    (do (swap! db* assoc-in [:auth provider] {:step :login/done
-                                              :type :auth/token
-                                              :mode :manual
-                                              :api-key input})
-        (f.login/login-done! ctx))
+    (do
+      (config/update-global-config! {:providers {"anthropic" {:key input}}})
+      (swap! db* dissoc :auth provider)
+      (send-msg! (format "API key and models saved to %s" (.getCanonicalPath (config/global-config-file))))
+      (f.login/login-done! ctx))
     (send-msg! (format "Invalid API key '%s'" input))))
 
 (defmethod f.login/login-step ["anthropic" :login/renew-token] [{:keys [db* provider] :as ctx}]

src/eca/llm_providers/azure.clj

@@ -30,6 +30,6 @@
                                                                  {}
                                                                  (string/split input #","))
                                                         :key api-key}}}))
-  (swap! db* assoc-in [:auth provider] nil)
+  (swap! db* dissoc :auth provider)
   (send-msg! (format "API key, url and models saved to %s" (.getCanonicalPath (config/global-config-file))))
   (f.login/login-done! ctx))

src/eca/llm_providers/deepseek.clj

@@ -24,6 +24,6 @@
                                                                     {}
                                                                     (string/split input #","))
                                                            :key api-key}}}))
-  (swap! db* assoc-in [:auth provider] nil)
+  (swap! db* dissoc :auth provider)
   (send-msg! (format "API key and models saved to %s" (.getCanonicalPath (config/global-config-file))))
   (f.login/login-done! ctx))

src/eca/llm_providers/openai.clj

@@ -205,7 +205,7 @@
 (defmethod f.login/login-step ["openai" :login/waiting-api-key] [{:keys [input db* provider send-msg!] :as ctx}]
   (if (string/starts-with? input "sk-")
     (do (config/update-global-config! {:providers {"openai" {:key input}}})
-        (swap! db* assoc-in [:auth provider] nil)
+        (swap! db* dissoc :auth provider)
         (send-msg! (str "API key saved in " (.getCanonicalPath (config/global-config-file))))
 
         (f.login/login-done! ctx :update-cache? false))

src/eca/llm_providers/openrouter.clj

@@ -24,6 +24,6 @@
                                                                       {}
                                                                       (string/split input #","))
                                                              :key api-key}}}))
-  (swap! db* assoc-in [:auth provider] nil)
+  (swap! db* dissoc :auth provider)
   (send-msg! (format "API key and models saved to %s" (.getCanonicalPath (config/global-config-file))))
   (f.login/login-done! ctx))

src/eca/llm_providers/z_ai.clj

@@ -24,6 +24,6 @@
                                                                 {}
                                                                 (string/split input #","))
                                                        :key api-key}}}))
-  (swap! db* assoc-in [:auth provider] nil)
+  (swap! db* dissoc :auth provider)
   (send-msg! (format "API key and models saved to %s" (.getCanonicalPath (config/global-config-file))))
   (f.login/login-done! ctx))