aciceri/nixfleet
1
0
Fork 0
Code Issues Pull requests 1 Projects Releases Packages Wiki Activity Actions

New gptel tools
All checks were successful
EVAL aarch64-linux.sisko
Details
/ test (push) Successful in 10s
Details

Browse source
This commit is contained in:
Andrea Ciceri 2025-05-21 17:59:56 +02:00
parent 6d715d8878
commit 24a80896a8
No known key found for this signature in database
1 changed files with 33 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

33
hmModules/emacs/init.el
View file

@ -1159,6 +1159,23 @@ This is meant to be an helper to be called from the window manager."
:type string :type string
:description "The text to append to the buffer.")) :description "The text to append to the buffer."))
:category "emacs") :category "emacs")
,(gptel-make-tool
:function (lambda (buffer text)
(with-current-buffer (get-buffer-create buffer)
(save-excursion
(goto-char (point-max))
(insert text)))
(format "Appended text to buffer %s" buffer))
:name "append_to_buffer"
:description "Append text to an Emacs buffer. If the buffer does not exist, it will be created."
:confirm t
:args (list '(:name "buffer"
:type string
:description "The name of the buffer to append text to.")
'(:name "text"
:type string
:description "The text to append to the buffer."))
:category "emacs")
,(gptel-make-tool ,(gptel-make-tool
:name "EditBuffer" :name "EditBuffer"
:function #'ccr/edit-buffer :function #'ccr/edit-buffer
@ -1192,6 +1209,22 @@ This is meant to be an helper to be called from the window manager."
:description "Content to write to the buffer" :description "Content to write to the buffer"
:required t)) :required t))
:category "edit") :category "edit")
,(gptel-make-tool
:function (lambda (title body)
(org-roam-capture-
:templates `(("d" "" plain "%?" :target (file+head "%<%Y%m%d%H%M%S>-${slug}.org" ,(concat "#+title: ${title}\n\n" body)))) ; override default template
:node (org-roam-node-create :title title)
:props '(:unnarrowed 't :tags "gptel"))
)
:name "create_org_roam_note"
:description "Create a new org-roam note."
:args (list '(:name "title"
:type string
:description "The name of the note to create. Try to automatically infere it and ask only if dubious.")
'(:name "body"
:type string
:description "The body of the note write in an org language, aovoid starting with an headline as first line. Feel free to exploit the org syntax."))
:category "org-roam")
)) ))