Check for api limit usage

Author: ericdallo

src/eca/features/chat.clj

@@ -165,6 +165,15 @@
                                       :content {:type :url
                                                 :title (:title msg)
                                                 :url (:url msg)}})
+                               :limit-reached (do
+                                                (messenger/chat-content-received
+                                                 messenger
+                                                 {:chat-id chat-id
+                                                  :request-id request-id
+                                                  :role :system
+                                                  :content {:type :text
+                                                            :text (str "API limit reached. Tokens: " (:tokens msg))}})
+                                                (finish-chat-prompt! chat-id :idle messenger db*))
                                :finish (do
                                          (add-to-history! {:role "assistant" :content @received-msgs*})
                                          (finish-chat-prompt! chat-id :idle messenger db*))))

src/eca/features/tools.clj

@@ -40,7 +40,7 @@
      (mapv #(assoc % :source :mcp) mcp-tools))))
 
 (defn call-tool! [^String name ^Map arguments db config]
-  (logger/debug logger-tag (format "Calling tool '%s' with args '%s'" name arguments))
+  (logger/info logger-tag (format "Calling tool '%s' with args '%s'" name arguments))
   (if-let [native-tool-handler (get-in (native-definitions db config) [name :handler])]
     (native-tool-handler arguments {:db db :config config})
     (f.mcp/call-tool! name arguments db)))

src/eca/features/tools/filesystem.clj

@@ -48,7 +48,7 @@
   (or (tools.util/invalid-arguments arguments [["path" (partial allowed-path? db) (str "Access denied - path $path outside allowed directories: " (tools.util/workspace-roots-strs db))]])
       (let [path (get arguments "path")
             content (get arguments "content")]
-        (fs/create-dirs path)
+        (fs/create-dirs (fs/parent (fs/path path)))
         (spit path content)
         (tools.util/single-text-content (format "Successfully wrote to %s" path)))))
 

src/eca/llm_providers/anthropic.clj

@@ -154,6 +154,8 @@
                                                  :on-response handle-response}))))
                               "end_turn" (on-message-received {:type :finish
                                                                :finish-reason (-> data :delta :stop_reason)})
+                              "max_tokens" (on-message-received {:type :limit-reached
+                                                                 :tokens (:usage data)})
                               nil)
             nil))]
     (base-request!