Fix model names with slashes

Author: ericdallo

src/eca/handlers.clj

@@ -25,8 +25,8 @@
                                       full-model (str provider "/" model)
                                       model-capabilities (merge
                                                           (or (get all-models full-model)
-                                                              ;; we guess the capabilities from
-                                                              ;; the first model with same name
+                                                                 ;; we guess the capabilities from
+                                                                 ;; the first model with same name
                                                               (when-let [found-full-model (first (filter #(= model (second (string/split % #"/" 2)))
                                                                                                          (keys all-models)))]
                                                                 (get all-models found-full-model))

src/eca/models.clj

@@ -11,7 +11,7 @@
 (defn ^:private models-dev* []
   (try
     (let [response (slurp "https://models.dev/api.json")
-          data (json/parse-string response keyword)]
+          data (json/parse-string response)]
       data)
     (catch Exception e
       (logger/error logger-tag " Error fetching models from models.dev:" (.getMessage e))
@@ -26,10 +26,10 @@
     "openai/gpt-5"
     "openai/gpt-5-mini"
     "openai/gpt-5-nano"
-    "anthropic/claude-sonnet-4"
-    "anthropic/claude-opus-4"
-    "anthropic/claude-opus-4.1"
-    "anthropic/claude-3.5-haiku"})
+    "anthropic/claude-sonnet-4-20250514"
+    "anthropic/claude-opus-4-20250514"
+    "anthropic/claude-opus-4-1-20250805"
+    "anthropic/claude-3-5-haiku-20241022"})
 
 (defn all
   "Return all known existing models with their capabilities and configs."
@@ -39,24 +39,24 @@
      (merge m
             (reduce
              (fn [p [model model-config]]
-               (let [provider-name (or (namespace model) (name provider))]
-                 (assoc p (str provider-name "/" (name model))
-                        (assoc-some
-                         {:provider provider-name
-                          :reason? (:reasoning model-config)
-                          ;; TODO how to check for web-search mode dynamically
-                          :web-search (contains? models-with-web-search-support (name model))
-                          :tools (:tool_call model-config)
-                          :max-output-tokens (-> model-config :limit :output)}
-                         :input-token-cost (some-> (:input (:cost model-config)) float (/ one-million))
-                         :output-token-cost (some-> (:output (:cost model-config)) float (/ one-million))
-                         :input-cache-creation-token-cost (some-> (:cache_write (:cost model-config)) float (/ one-million))
-                         :input-cache-read-token-cost (some-> (:cache_read (:cost model-config)) float (/ one-million))))))
+               (assoc p (str provider "/" model)
+                      (assoc-some
+                       {:reason? (get model-config "reasoning")
+                        ;; TODO how to check for web-search mode dynamically,
+                        ;; maybe fixed after web-search toolcall is implemented
+                        :web-search (contains? models-with-web-search-support (name model))
+                        :tools (get model-config "tool_call")
+                        :max-output-tokens (get-in model-config ["limit" "output"])}
+                       :input-token-cost (some-> (get-in model-config ["cost" "input"]) float (/ one-million))
+                       :output-token-cost (some-> (get-in model-config ["cost" "output"]) float (/ one-million))
+                       :input-cache-creation-token-cost (some-> (get-in model-config ["cost" "cache_write"]) float (/ one-million))
+                       :input-cache-read-token-cost (some-> (get-in model-config ["cost" "cache_read"]) float (/ one-million)))))
              {}
-             (:models provider-config))))
+             (get provider-config "models"))))
    {}
    (models-dev)))
 
 (comment
   (require '[clojure.pprint :as pprint])
+  (pprint/pprint (models-dev))
   (pprint/pprint (all)))