Add support for azure for /login

Author: ericdallo

CHANGELOG.md

@@ -6,6 +6,7 @@
   - openai
   - openrouter
   - deepseek
+  - azure
 
 ## 0.46.0
 

src/eca/db.clj

@@ -31,10 +31,11 @@
    ;; cacheable, bump cache when changing
    :chats {}
    :auth {"anthropic" {}
+          "azure" {}
+          "deepseek" {}
           "github-copilot" {}
           "openai" {}
-          "openrouter" {}
-          "deepseek" {}}})
+          "openrouter" {}}})
 
 (defonce db* (atom initial-db))
 

src/eca/llm_api.clj

@@ -4,12 +4,13 @@
    [clojure.string :as string]
    [eca.config :as config]
    [eca.llm-providers.anthropic :as llm-providers.anthropic]
+   [eca.llm-providers.azure]
    [eca.llm-providers.copilot]
+   [eca.llm-providers.deepseek]
    [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-providers.deepseek]
    [eca.llm-util :as llm-util]
    [eca.logger :as logger]))
 

src/eca/llm_providers/azure.clj

@@ -0,0 +1,35 @@
+(ns eca.llm-providers.azure
+  (:require
+   [clojure.string :as string]
+   [eca.config :as config]
+   [eca.features.login :as f.login]))
+
+(defmethod f.login/login-step ["azure" :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 ["azure" :login/waiting-api-key] [{:keys [input db* provider send-msg!]}]
+  (swap! db* assoc-in [:auth provider] {:step :login/waiting-api-url
+                                        :api-key input})
+  (send-msg! "Inform the API URL (ex: 'https://your-resource-name.openai.azure.com'):"))
+
+(defmethod f.login/login-step ["azure" :login/waiting-api-url] [{:keys [input db* provider send-msg!]}]
+  (swap! db* update-in [:auth provider] merge {:step :login/waiting-models
+                                               :url input})
+  (send-msg! "Inform one or more models (separated by `,`):"))
+
+(defmethod f.login/login-step ["azure" :login/waiting-models] [{:keys [input db* provider send-msg!] :as ctx}]
+  (let [{:keys [api-url api-key]} (get-in @db* [:auth provider])]
+    (config/update-global-config! {:providers {"azure" {:api "openai-responses"
+                                                        :url api-url
+                                                        :completionUrlRelativePath "/openai/responses?api-version=2025-04-01-preview"
+                                                        :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, url and models saved to %s" (.getCanonicalPath (config/global-config-file))))
+  (f.login/login-done! ctx))