Support openrouter login

Author: ericdallo

CHANGELOG.md

@@ -4,6 +4,7 @@
 
 - Support more providers login via `/login`.
   - openai
+  - openrouter
 
 ## 0.46.0
 

docs/models.md

@@ -157,8 +157,16 @@ Only set this when your provider uses a different path or expects query paramete
     ```
 
 === "OpenRouter"
-
+    
     [OpenRouter](https://openrouter.ai) provides access to many models through a unified API:
+
+    1. Login via the chat command `/login`.
+    2. Type 'openrouter' and send it.
+    3. Specify your Openrouter API key.
+    4. Inform at least a model, ex: `openai/gpt-5`
+    5. Done, it should be saved to your global config.
+
+    or manually via config:
 
     ```javascript
     {

src/eca/db.clj

@@ -32,7 +32,8 @@
    :chats {}
    :auth {"anthropic" {}
           "github-copilot" {}
-          "openai" {}}})
+          "openai" {}
+          "openrouter" {}}})
 
 (defonce db* (atom initial-db))
 

src/eca/features/login.clj

@@ -74,8 +74,10 @@
     (catch Exception e
       (on-error (.getMessage e)))))
 
-(defn login-done! [{:keys [chat-id db* messenger provider send-msg!]} & [silent]]
-  (db/update-global-cache! @db*)
+(defn login-done! [{:keys [chat-id db* messenger provider send-msg!]} & {:keys [silent?]
+                                                                         :or {silent? false}}]
+  (when (get-in @db* [:auth provider])
+    (db/update-global-cache! @db*))
   (models/sync-models! db*
                        (config/all @db*) ;; force get updated config
                        (fn [new-models]
@@ -85,5 +87,5 @@
                            {:models (sort (keys new-models))}})))
   (swap! db* assoc-in [:chats chat-id :login-provider] nil)
   (swap! db* assoc-in [:chats chat-id :status] :idle)
-  (when-not silent
+  (when-not silent?
     (send-msg! (format "Login successful! You can now use the '%s' models." provider))))

src/eca/llm_api.clj

@@ -8,6 +8,7 @@
    [eca.llm-providers.ollama :as llm-providers.ollama]
    [eca.llm-providers.openai :as llm-providers.openai]
    [eca.llm-providers.openai-chat :as llm-providers.openai-chat]
+   [eca.llm-providers.openrouter]
    [eca.llm-util :as llm-util]
    [eca.logger :as logger]))
 

src/eca/llm_providers/anthropic.clj

@@ -343,4 +343,4 @@
                                                  :refresh-token refresh-token
                                                  :api-key access-token
                                                  :expires-at expires-at})
-    (f.login/login-done! ctx true)))
+    (f.login/login-done! ctx :silent? true)))

src/eca/llm_providers/copilot.clj

@@ -77,4 +77,4 @@
         {:keys [api-key expires-at]} (oauth-renew-token access-token)]
     (swap! db* update-in [:auth provider] merge {:api-key api-key
                                                  :expires-at expires-at})
-    (f.login/login-done! ctx true)))
+    (f.login/login-done! ctx :silent? true)))

src/eca/llm_providers/openai.clj

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

src/eca/llm_providers/openrouter.clj

@@ -0,0 +1,29 @@
+(ns eca.llm-providers.openrouter
+  (:require
+   [clojure.string :as string]
+   [eca.config :as config]
+   [eca.features.login :as f.login]))
+
+(defmethod f.login/login-step ["openrouter" :login/start] [{:keys [db* chat-id provider send-msg!]}]
+  (swap! db* assoc-in [:chats chat-id :login-provider] provider)
+  (swap! db* assoc-in [:auth provider] {:step :login/waiting-api-key})
+  (send-msg! "Paste your API Key"))
+
+(defmethod f.login/login-step ["openrouter" :login/waiting-api-key] [{:keys [input db* provider send-msg!]}]
+  (swap! db* assoc-in [:auth provider] {:step :login/waiting-models
+                                        :api-key input})
+  (send-msg! "Inform one or more models (separated by `,`):"))
+
+(defmethod f.login/login-step ["openrouter" :login/waiting-models] [{:keys [input db* provider send-msg!] :as ctx}]
+  (let [api-key (get-in @db* [:auth provider :api-key])]
+    (config/update-global-config! {:providers {"openrouter" {:api "openai-chat"
+                                                             :url "https://openrouter.ai/api/v1"
+                                                             :models (reduce
+                                                                      (fn [models model-str]
+                                                                        (assoc models (string/trim model-str) {}))
+                                                                      {}
+                                                                      (string/split input #","))
+                                                             :key api-key}}}))
+  (swap! db* assoc-in [:auth provider] nil)
+  (send-msg! (format "API key and models saved to %s" (.getCanonicalPath (config/global-config-file))))
+  (f.login/login-done! ctx))