Fix providers disappearing from /login after saving an API key.

Fixes #196

Author: ericdallo

CHANGELOG.md

@@ -2,6 +2,7 @@
 
 ## Unreleased
 
+- Fix providers (openai, anthropic, google, azure, deepseek, openrouter, z-ai) disappearing from `/login` after saving an API key. #196
 - Bump plumcp to 0.2.0-beta5.
 - Fix auto-continue clobbering new prompt status and losing the stop button.
 - Add configurable shell for `shell_command` tool via `toolCall.shellCommand.path` and `toolCall.shellCommand.args`. #370

src/eca/llm_providers/anthropic.clj

@@ -608,7 +608,7 @@
   (if (string/starts-with? input "sk-")
     (do
       (config/update-global-config! {:providers {"anthropic" {:key input}}})
-      (swap! db* update :auth dissoc provider)
+      (swap! db* assoc-in [:auth provider] {:step :login/done :type :auth/token})
       (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))))

src/eca/llm_providers/azure.clj

@@ -30,6 +30,6 @@
                                                                  {}
                                                                  (string/split input #","))
                                                         :key api-key}}}))
-  (swap! db* update :auth dissoc provider)
+  (swap! db* assoc-in [:auth provider] {:step :login/done :type :auth/token})
   (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* update :auth dissoc provider)
+  (swap! db* assoc-in [:auth provider] {:step :login/done :type :auth/token})
   (send-msg! (format "API key and models saved to %s" (.getCanonicalPath (config/global-config-file))))
   (f.login/login-done! ctx))

src/eca/llm_providers/google.clj

@@ -13,7 +13,7 @@
   (if (not (string/blank? input))
     (do
       (config/update-global-config! {:providers {"google" {:key input}}})
-      (swap! db* update :auth dissoc provider)
+      (swap! db* assoc-in [:auth provider] {:step :login/done :type :auth/token})
       (send-msg! (format "API key saved to %s" (.getCanonicalPath (config/global-config-file))))
       (f.login/login-done! ctx))
     (send-msg! (format "Invalid API key '%s'" input))))

src/eca/llm_providers/openai.clj

@@ -428,10 +428,9 @@
 (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* update :auth dissoc provider)
+        (swap! db* assoc-in [:auth provider] {:step :login/done :type :auth/token})
         (send-msg! (str "API key saved in " (.getCanonicalPath (config/global-config-file))))
-
-        (f.login/login-done! ctx :update-cache? false))
+        (f.login/login-done! ctx))
     (send-msg! (format "Invalid API key '%s'" input))))
 
 (defmethod f.login/login-step ["openai" :login/renew-token] [{:keys [db* provider] :as ctx}]

src/eca/llm_providers/openrouter.clj

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