Add support for deepseek login

Author: ericdallo

CHANGELOG.md

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

docs/models.md

@@ -189,6 +189,14 @@ Only set this when your provider uses a different path or expects query paramete
 
     [DeepSeek](https://deepseek.com) offers powerful reasoning and coding models:
 
+    1. Login via the chat command `/login`.
+    2. Type 'deepseek' and send it.
+    3. Specify your Deepseek API key.
+    4. Inform at least a model, ex: `deepseek-chat`
+    5. Done, it should be saved to your global config.
+    
+    or manually via config:
+    
     ```javascript
     {
       "providers": {

src/eca/db.clj

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

src/eca/llm_api.clj

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

src/eca/llm_providers/deepseek.clj

@@ -0,0 +1,29 @@
+(ns eca.llm-providers.deepseek
+  (:require
+   [clojure.string :as string]
+   [eca.config :as config]
+   [eca.features.login :as f.login]))
+
+(defmethod f.login/login-step ["deepseek" :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 ["deepseek" :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 ["deepseek" :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 {"deepseek" {:api "openai-chat"
+                                                           :url "https://api.deepseek.com"
+                                                           :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))