Improve model capabilities for providers which model name has slash

Author: ericdallo

CHANGELOG.md

@@ -3,6 +3,7 @@
 ## Unreleased
 
 - Improve read-file summary to show final range properly.
+- Improve model capabilities for providers which model name has slash: `my-provider/anthropic/my-model`
 
 ## 0.87.0
 

src/eca/llm_providers/openai_chat.clj

@@ -229,12 +229,12 @@
 (defn ^:private valid-message?
   "Check if a message should be included in the final output."
   [{:keys [role content tool_calls reasoning_content] :as _msg}]
-  (and (or (= role "tool") ; Never remove tool messages
-           (seq tool_calls) ; Keep messages with tool calls
-           (seq reasoning_content) ; Keep messages with reasoning_content (DeepSeek)
-           (and (string? content)
-                (not (string/blank? content)))
-           (sequential? content))))
+  (or (= role "tool") ; Never remove tool messages
+      (seq tool_calls) ; Keep messages with tool calls
+      (seq reasoning_content) ; Keep messages with reasoning_content (DeepSeek)
+      (and (string? content)
+           (not (string/blank? content)))
+      (sequential? content)))
 
 (defn ^:private normalize-messages
   "Converts ECA message format to OpenAI API format (also used by compatible providers).

src/eca/models.clj

@@ -92,8 +92,12 @@
                                                                     (or (get all-models full-real-model)
                                                                            ;; we guess the capabilities from
                                                                            ;; the first model with same name
-                                                                        (when-let [found-full-model (first (filter #(= (shared/normalize-model-name real-model-name)
-                                                                                                                       (shared/normalize-model-name (second (string/split % #"/" 2))))
+                                                                        (when-let [found-full-model (first (filter #(or (= (shared/normalize-model-name (string/replace-first real-model-name
+                                                                                                                                                                              #"(.+/)"
+                                                                                                                                                                              ""))
+                                                                                                                           (shared/normalize-model-name (second (string/split % #"/" 2))))
+                                                                                                                        (= (shared/normalize-model-name real-model-name)
+                                                                                                                           (shared/normalize-model-name (second (string/split % #"/" 2)))))
                                                                                                                    (keys all-models)))]
                                                                           (get all-models found-full-model))
                                                                         {:tools true
@@ -129,4 +133,9 @@
 (comment
   (require '[clojure.pprint :as pprint])
   (pprint/pprint (models-dev))
-  (pprint/pprint (all)))
+  (pprint/pprint (all))
+  (require '[eca.db :as db])
+  (sync-models! db/db*
+                (config/all @db/db*)
+                (fn [new-models]
+                  (pprint/pprint new-models))))