aboutsummaryrefslogtreecommitdiff
path: root/gptel-tools/read_buffer.el
diff options
context:
space:
mode:
Diffstat (limited to 'gptel-tools/read_buffer.el')
-rw-r--r--gptel-tools/read_buffer.el33
1 files changed, 0 insertions, 33 deletions
diff --git a/gptel-tools/read_buffer.el b/gptel-tools/read_buffer.el
deleted file mode 100644
index c9136e3c..00000000
--- a/gptel-tools/read_buffer.el
+++ /dev/null
@@ -1,33 +0,0 @@
-;;; read_buffer.el --- Read buffer tool for GPTel -*- coding: utf-8; lexical-binding: t; -*-
-
-;;; Commentary:
-;; Gptel tool that returns the contents of an Emacs buffer by name.
-
-;;; Code:
-
-(require 'gptel)
-
-(defun cj/read-buffer--get-content (buffer)
- "Return the substring of BUFFER from `point-min' to `point-max'.
-BUFFER may be a buffer object or a buffer name string. Signal an
-error when no live buffer matches."
- (unless (buffer-live-p (get-buffer buffer))
- (error "Buffer %s is not live" buffer))
- (with-current-buffer buffer
- (save-restriction
- (widen)
- (buffer-substring-no-properties (point-min) (point-max)))))
-
-(gptel-make-tool
- :name "read_buffer"
- :function (lambda (buffer) (cj/read-buffer--get-content buffer))
- :description "return the contents of an emacs buffer"
- :args (list '(:name "buffer"
- :type string
- :description "the name of the buffer whose contents are to be retrieved"))
- :category "emacs")
-
-(add-to-list 'gptel-tools (gptel-get-tool '("emacs" "read_buffer")))
-
-(provide 'read_buffer)
-;;; read_buffer.el ends here