Support fileChange for eca_write_file as well

Author: ericdallo

CHANGELOG.md

@@ -4,6 +4,7 @@
 
 - Support custom system prompts via config `systemPromptTemplate`.
 - Add support for file change diffs on `eca_edit_file` tool call.
+- Fix response output to LLM when tool call is rejected.
 
 ## 0.15.3
 

resources/eca_prompt.txt

@@ -11,11 +11,8 @@ Pay attention to the langauge name after the code block backticks start, use the
 </communication>
 
 <edit_file_instructions>
-Before editing a file, ensure you have its content via the provided context or eca_read_file tool.
-Use the eca_edit_file tool to modify files.
-NEVER show the code edits to the user - only call the tool. The system will apply and display the edits.
-For each file, give a short description of what needs to be edited, then use the eca_edit_file tool. You can use the tool multiple times in a response, and you can keep writing text after using a tool.
-The eca_edit_file tool is very smart and can understand how to apply your edits to the user's files.
+NEVER show the code edits or new files to the user - only call the proper tool. The system will apply and display the edits.
+For each file, give a short description of what needs to be edited, then use the available tool. You can use the tool multiple times in a response, and you can keep writing text after using a tool.
 </edit_file_instructions>
 
 <tool_calling>

src/eca/features/chat.clj

@@ -247,8 +247,8 @@
                                               :details details)))
                             (do
                               (add-to-history! {:role "tool_call" :content tool-call})
-                              (add-to-history! {:role "tool_call_output" :content (assoc tool-call :output {:contents [{:content "Tool call rejected by user"
-                                                                                                                        :error true
+                              (add-to-history! {:role "tool_call_output" :content (assoc tool-call :output {:error true
+                                                                                                            :contents [{:text "Tool call rejected by user"
                                                                                                                         :type :text}]})})
                               (send-content! chat-ctx :assistant
                                              (assoc-some

src/eca/features/tools.clj

@@ -98,6 +98,15 @@
                                                                         (update :tools #(mapv with-tool-status %)))))})))
 (defn get-tool-call-details [name arguments]
   (case name
+    "eca_write_file" (let [path (get arguments "path")
+                           content (get arguments "content")]
+                       (when (and path content)
+                         (let [{:keys [added removed diff]} (diff/diff "" content path)]
+                           {:type :fileChange
+                            :path path
+                            :linesAdded added
+                            :linesRemoved removed
+                            :diff diff})))
     "eca_edit_file" (let [path (get arguments "path")
                           original-content (get arguments "original_content")
                           new-content (get arguments "new_content")