Support gpt-4.1 model

Author: ericdallo

docs/protocol.md

@@ -246,6 +246,7 @@ interface ChatPromptParams {
 
 type ChatModel = 
     | 'o4-mini'
+    | 'gpt-4.1'
     | "auto";
 
 type ChatContext = FileContext | DirectoryContext | WebContext | CodeContext;

src/eca/db.clj

@@ -6,7 +6,7 @@
    :client-capabilities {}
    :chats []
    :chat-behavior :agent
-   :models ["o4-mini"]
+   :models ["o4-mini" "gpt-4.1"]
    :default-model "o4-mini"})
 
 (defonce db* (atom initial-db))

src/eca/features/chat.clj

@@ -100,7 +100,7 @@
                                         :is-complete true
                                         :role :system
                                         :content {:type :text
-                                                  :text (or message (ex-message exception))}}))}))
+                                                  :text (str (or message (ex-message exception)) "\n")}}))}))
     {:chat-id chat-id
      :status :success}))
 

src/eca/llm_api.clj

@@ -10,10 +10,11 @@
 
 (defn complete! [{:keys [model message config on-message-received on-error]}]
   (case model
-    "o4-mini" (llm-providers.openai/completion!
-                {:model model
-                 :messages [{:role "user" :content message}]
-                 :api-key (:openai-api-key config)}
-                {:on-message-received on-message-received
-                 :on-error on-error})
+    ("o4-mini"
+     "gpt-4.1") (llm-providers.openai/completion!
+                 {:model model
+                  :messages [{:role "user" :content message}]
+                  :api-key (:openai-api-key config)}
+                 {:on-message-received on-message-received
+                  :on-error on-error})
     (on-error {:msg (str "ECA Unsupported model: " model)})))