From 14a114e852cf6f02d1c6b81ffb42aeb4eac63515 Mon Sep 17 00:00:00 2001
From: Erik Mackdanz <erikmack@gmail.com>
Date: Sun, 14 Dec 2025 12:20:20 -0600
Subject: [PATCH] Include tool output

---
 gptel | 20 +++++++++++++++++---
 1 file changed, 17 insertions(+), 3 deletions(-)

diff --git a/gptel b/gptel
index 85faa93..ff168a9 100644
--- a/gptel
+++ b/gptel
@@ -36,6 +36,7 @@
 		     :type string
 		     :description "The project's directory to change to before running the command. Defaults to '.'"
 	       ))
+ :include t
  :category "rust")                    ; Group under rust tools
 
 (gptel-make-tool
@@ -51,6 +52,7 @@
 		     :type string
 		     :description "The project's directory to change to before running the command. Defaults to '.'"
 	       ))
+ :include t
  :category "rust")                    ; Group under rust tools
 
 (gptel-make-tool
@@ -66,6 +68,7 @@
 		     :type string
 		     :description "The project's directory to change to before running the command. Defaults to '.'"
 	       ))
+ :include t
  :category "rust")                    ; Group under rust tools
 
 (gptel-make-tool
@@ -81,6 +84,7 @@
 		      :description "The string to search for in the cargo registry"
 		      )
 	      )
+ :include t
  :category "rust")
 
 ;; https://github.com/skissue/llm-tool-collection
@@ -100,6 +104,7 @@
 		      :description "The URL to open"
 		      )
 	      )
+ :include t
  :category "www")
 
 (gptel-make-tool
@@ -116,6 +121,7 @@
  :function (lambda ()
 	     (pwd)
 	     )
+ :include t
  :category "filesystem"
  :confirm nil
  :description "Returns the current working directory."
@@ -127,6 +133,7 @@
 	     (with-temp-buffer
 	       (insert-file-contents (expand-file-name path))
 	       (buffer-string)))
+ :include t
  :category "filesystem"
  :confirm nil
  :description "Read the contents of a file and return its content as a string."
@@ -147,6 +154,7 @@
 				"\n")
 		 (error "%s is not a directory" expanded-path)))
 	     )
+ :include t
  :category "filesystem"
  :confirm nil
  :description "List the contents of a specified directory."
@@ -182,6 +190,7 @@
 		     :description "Content to write to the file"
 		     )
 	     )
+ :include t
  :category "filesystem")
 
 (gptel-make-tool
@@ -194,7 +203,7 @@
 	       (with-current-buffer output-buffer (buffer-string))
 	       )
 	     )
- :description "Patch files in the working directory. A patch should only have one hunk; if multiple hunks are required, generate multiple patches. If the patch fails to apply, generate a new patch and try again. Remember that a patch should always end with a newline"
+ :description "Patch files in the working directory. A patch must end with a newline and only have one hunk. If multiple hunks are required, generate multiple patches. If the patch fails to apply, generate a different patch and try again."
  :args (list '(:name "workingdirectory"
 		     :type string
 		     :description "The project's directory to change to before running the command. Defaults to '.'"
@@ -205,6 +214,7 @@
 		     )
 	     )
  :confirm t
+ :include t
  :category "filesystem")
 
 (gptel-make-preset 'rustdev
@@ -275,6 +285,7 @@
 		      :description "The string to search for in the email headers and body"
 		      )
 	      )
+ :include t
  :category "mail")
 
 (gptel-make-tool
@@ -291,6 +302,7 @@
 		      :description "The base ledger file"
 		      )
 	      )
+ :include t
  :category "ledger")
 
 (gptel-make-preset 'ledger
@@ -327,23 +339,25 @@
 	       (with-current-buffer output-buffer (buffer-string))
 	       ))
  :description "Run the given query in the sample PostgreSQL database. It can be DML (select, update) or DDL (e.g. create table, alter index)"
- :confirm nil
+ :confirm t
  :args (list '(:name "query"
 		      :type string
 		      :description "The query to run"
 		      )
 	      )
+ :include t
  :category "database")
 
 (gptel-make-tool
  :name "db_get_schema"
  :function (lambda ()
 	     (let ((output-buffer (generate-new-buffer "*query-output*")))
-               (call-process-region "" nil "pg_dump" nil output-buffer t "llm")
+               (call-process-region "" nil "pg_dump" nil output-buffer t "--schema-only" "llm")
 	       ;; (message "Get schema output: %s" (with-current-buffer output-buffer (buffer-string)))
 	       (with-current-buffer output-buffer (buffer-string))
 	       ))
  :description "Dump the schema of the sample PostgreSQL database"
  :confirm nil
  :args nil
+ :include t
  :category "database")
-- 
2.52.0