Fix anthropic api for custom providers.

Author: ericdallo

src/eca/features/chat.clj

@@ -142,9 +142,10 @@
                                                                      :state :running
                                                                      :text "Generating"}))
       :on-usage-updated (fn [usage]
-                          (send-content! chat-ctx :system
-                                         (merge {:type :usage}
-                                                (usage-msg->usage usage model chat-ctx))))
+                          (when-let [usage (usage-msg->usage usage model chat-ctx)]
+                            (send-content! chat-ctx :system
+                                           (merge {:type :usage}
+                                                  usage))))
       :on-message-received (fn [{:keys [type] :as msg}]
                              (assert-chat-not-stopped! chat-ctx)
                              (case type

src/eca/llm_api.clj

@@ -177,7 +177,6 @@
             :max-output-tokens max-output-tokens
             :reason? (and reason? (:reason? model-config))
             :past-messages past-messages
-            :web-search web-search
             :tools tools
             :extra-payload extra-payload
             :api-url url

src/eca/shared.clj

@@ -50,19 +50,19 @@
 (defn tokens->cost [input-tokens input-cache-creation-tokens input-cache-read-tokens output-tokens model db]
   (let [normalized-model (if (string/includes? model "/")
                            (last (string/split model #"/"))
-                           model)
-        {:keys [input-token-cost output-token-cost
-                input-cache-creation-token-cost input-cache-read-token-cost]} (get-in db [:models normalized-model])
-        input-cost (* input-tokens input-token-cost)
-        input-cost (if (and input-cache-creation-tokens input-cache-creation-token-cost)
-                     (+ input-cost (* input-cache-creation-tokens input-cache-creation-token-cost))
-                     input-cost)
-        input-cost (if (and input-cache-read-tokens input-cache-read-token-cost)
-                     (+ input-cost (* input-cache-read-tokens input-cache-read-token-cost))
-                     input-cost)]
-    (when (and input-token-cost output-token-cost)
-      (format "%.2f" (+ input-cost
-                        (* output-tokens output-token-cost))))))
+                           model)]
+    (when-let [{:keys [input-token-cost output-token-cost
+                       input-cache-creation-token-cost input-cache-read-token-cost]} (get-in db [:models normalized-model])]
+      (when (and input-token-cost output-token-cost)
+        (let [input-cost (* input-tokens input-token-cost)
+              input-cost (if (and input-cache-creation-tokens input-cache-creation-token-cost)
+                           (+ input-cost (* input-cache-creation-tokens input-cache-creation-token-cost))
+                           input-cost)
+              input-cost (if (and input-cache-read-tokens input-cache-read-token-cost)
+                           (+ input-cost (* input-cache-read-tokens input-cache-read-token-cost))
+                           input-cost)]
+          (format "%.2f" (+ input-cost
+                            (* output-tokens output-token-cost))))))))
 
 (defn map->camel-cased-map [m]
   (let [f (fn [[k v]]