branch: elpa/gptel
commit 3963afff60cd30e179861971aadc0317e597dcad
Author: Karthik Chikmagalur <karthikchikmaga...@gmail.com>
Commit: Karthik Chikmagalur <karthikchikmaga...@gmail.com>
gptel-org: Use gptel-org- prefix consistently
* gptel-org.el: (gptel--org-unescape-tool-results,
gptel--org-strip-tool-headers, gptel-org--create-prompt): Rename
to `gptel-org--unescape-tool-results' and
`gptel-org--strip-tool-headers'.
---
gptel-org.el | 11 ++++++-----
1 file changed, 6 insertions(+), 5 deletions(-)
diff --git a/gptel-org.el b/gptel-org.el
index ace590e5cd..355d274cab 100644
--- a/gptel-org.el
+++ b/gptel-org.el
@@ -228,8 +228,8 @@ value of `gptel-org-branching-context', which see."
do (insert-buffer-substring org-buf start end)
(goto-char (point-min)))
(goto-char (point-max))
- (gptel--org-unescape-tool-results)
- (gptel--org-strip-tool-headers)
+ (gptel-org--unescape-tool-results)
+ (gptel-org--strip-tool-headers)
(let ((major-mode 'org-mode))
(gptel--parse-buffer gptel-backend max-entries)))))
;; Create prompt the usual way
@@ -243,12 +243,13 @@ value of `gptel-org-branching-context', which see."
(set (make-local-variable sym)
(buffer-local-value sym org-buf)))
(insert-buffer-substring org-buf beg end)
- (gptel--org-unescape-tool-results)
- (gptel--org-strip-tool-headers)
+ (gptel-org--unescape-tool-results)
+ (gptel-org--strip-tool-headers)
(let ((major-mode 'org-mode))
(gptel--parse-buffer gptel-backend max-entries)))))))
(defun gptel--org-strip-tool-headers ()
+(defun gptel-org--strip-tool-headers ()
"Remove all tool_call block headers and footers.
Every line that matches will be removed entirely."
(save-excursion
@@ -260,7 +261,7 @@ Every line that matches will be removed entirely."
(delete-region (match-beginning 0)
(min (point-max) (1+ (line-end-position)))))))
-(defun gptel--org-unescape-tool-results ()
+(defun gptel-org--unescape-tool-results ()
"Undo escapes done to keep results from escaping blocks.
Scans backward for gptel tool text property, reads the arguments, then
unescapes the remainder."
