Include tool output

diff --git a/gptel b/gptel
index 85faa931ce7604b4524b9dd17709fbde02edbfcc..ff168a9bb17adc797606da94c8be923505057875 100644 (file)
--- 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")