add write_file tool

1 files changed, 32 insertions, 1 deletions

diff --git a/llm-tools.el b/llm-tools.el
index 6476d15..a125e55 100644
--- a/llm-tools.el
+++ b/llm-tools.el
@@ -25,7 +25,38 @@ longer match after external changes."
  :confirm nil
  :include t)
 
-;; TODO write_file (with-temp-buffer + insert)
+;; write_file (write-region)
+(gptel-make-tool
+ :name "write_file"
+ :function (lambda (file contents)
+             (write-region contents nil file))
+ :description "\
+Overwrite an entire file with new contents. This is a destructive
+operation that replaces all existing content. Use this tool for:
+
+- Creating new files from scratch
+- Completely replacing small files where the new content is the
+  intended final state
+- Writing generated output, configuration files, or test fixtures
+
+Do NOT use this for partial edits, appending, or modifying existing
+files. Use `edit_file` instead for surgical changes to existing
+content. Always call `read_file` first if the file already exists to
+preserve content you intend to keep. This tool requires user
+confirmation before executing."
+ :args '((:name "file"
+                :type string
+                :description "Path to the file to write to, relative to the working directory.")
+         (:name "contents"
+                :type string
+                :description "\
+Full file contents to write. This will replace all existing
+content. Include newlines and indentation as they should appear in the
+final file."))
+ :async nil
+ :confirm t
+ :include t)
+
 ;; TODO edit_file (hashline + patch apply)
 
 ;; TODO bash_readonly (shell-command-to-string, whitelisted commands)