Update README.org
This commit is contained in:
parent
4b650dfd84
commit
ca1fa23ca9
2 changed files with 39 additions and 39 deletions
10
README.org
10
README.org
|
|
@ -125,7 +125,7 @@ Stuff, headers, etc.
|
|||
These tools are primarily concerned with Emacs, Emacs Lisp, and files-or-buffers.
|
||||
|
||||
|
||||
**** exec_lisp
|
||||
**** eval
|
||||
Dangerous, but occasionally useful for pure chaos and amusement...
|
||||
I would like to say. But in actuality, especially with the 'smarter' models, they can surprise with the varied approaches they have to problem-solving.
|
||||
|
||||
|
|
@ -148,7 +148,7 @@ Highly not recommended, but sometimes an LLM can pull a rabbit out of pure entro
|
|||
:category "emacs")
|
||||
#+end_src
|
||||
|
||||
**** emacs-list-buffers
|
||||
**** list-buffers
|
||||
I wanted the assistant to have an easier time finding my files and buffers, and this has proven to be a great choice. I have yet to manage to get rid of the =:args=, but having them optional/ do nothing works well enough.
|
||||
|
||||
The rationale behind using ~ibuffer~ is the same as with dired. They both display a lot of data, densely. So instead of trying to use some workaround with ~buffer-file-name~ or other functions, I'd rather just grab a 'text capture' of the same UI I'm looking at, and call it a day.
|
||||
|
|
@ -170,7 +170,7 @@ Seems to be one of the most reliable tools in the basket... mostly because
|
|||
:optional t))
|
||||
:category "emacs")
|
||||
#+end_src
|
||||
**** dired-list
|
||||
**** dired
|
||||
See above, same reasoning. There's very little reason to use the ~directory-files~ function for this (as in another tool I saw.) The reason is, ~directory-files~ doesn't provide nearly as much information about the items in that directory. Not even a distinction between files and directories.
|
||||
|
||||
~directory-files-and-attributes~ might, but I personally found its output horrendous to read, and still somehow more expensive context-wise than just plain ol' dired.
|
||||
|
|
@ -196,7 +196,7 @@ Be sure to customize the function to point to your org directory, if you wish. I
|
|||
:category "filesystem")
|
||||
#+end_src
|
||||
|
||||
**** emacs-find-buffer-visiting
|
||||
**** find-buffer-visiting
|
||||
#+begin_src elisp
|
||||
(gptel-make-tool
|
||||
:function (lambda (filename)
|
||||
|
|
@ -208,7 +208,7 @@ Be sure to customize the function to point to your org directory, if you wish. I
|
|||
:description "The filename to compare to open buffers."))
|
||||
:category "org-mode")
|
||||
#+end_src
|
||||
**** emacs-find-file-noselect
|
||||
**** find-file-noselect
|
||||
Continuation from above. Open a file into a buffer for processing. Onec it's found by dired-list.
|
||||
#+begin_src elisp
|
||||
(gptel-make-tool
|
||||
|
|
|
|||
|
|
@ -39,8 +39,8 @@
|
|||
(with-temp-buffer
|
||||
(ibuffer)
|
||||
(let ((content (buffer-string)))
|
||||
(kill-buffer (current-buffer))
|
||||
content)))
|
||||
(kill-buffer (current-buffer))
|
||||
content)))
|
||||
:name "list-buffers"
|
||||
:description "Access the list of buffers open in Emacs, including file names and full paths."
|
||||
:args (list '(:name "arg"
|
||||
|
|
@ -76,12 +76,12 @@
|
|||
|
||||
(gptel-make-tool
|
||||
:function (lambda (file)
|
||||
(find-file-noselect file))
|
||||
(find-file-noselect file))
|
||||
:name "find-file-noselect"
|
||||
:description "Open the file in a buffer. This doesn't interfere with the user."
|
||||
:args (list '(:name "file"
|
||||
:type string
|
||||
:description "Path to file.."))
|
||||
:type string
|
||||
:description "Path to file.."))
|
||||
:category "filesystem")
|
||||
|
||||
(defun gptel-org-tools-org-extract-tags (buffer)
|
||||
|
|
@ -136,8 +136,8 @@
|
|||
(buffer-substring-no-properties
|
||||
(line-beginning-position)
|
||||
(progn
|
||||
(outline-next-heading)
|
||||
(line-beginning-position)))))))
|
||||
(outline-next-heading)
|
||||
(line-beginning-position)))))))
|
||||
|
||||
(gptel-make-tool
|
||||
:function #'gptel-org-tools-org-ql-select
|
||||
|
|
@ -179,8 +179,8 @@
|
|||
(with-temp-buffer
|
||||
(org-agenda-list (or days 14))
|
||||
(let ((content (buffer-string)))
|
||||
(kill-buffer (current-buffer))
|
||||
content)))
|
||||
(kill-buffer (current-buffer))
|
||||
content)))
|
||||
:name "org-agenda-fortnight"
|
||||
:description "Get the next 14 days of user's org-agenda."
|
||||
:args (list '(:name "days"
|
||||
|
|
@ -212,27 +212,27 @@
|
|||
:category "org-ql")
|
||||
|
||||
(defun gptel-org-tools-org-ql-select-headings-rifle (buf query)
|
||||
(org-ql-select
|
||||
(get-buffer buf)
|
||||
`(rifle ,query)
|
||||
:action :action #'(lambda ()
|
||||
(concat
|
||||
(buffer-substring-no-properties
|
||||
(line-beginning-position)
|
||||
(line-end-position))))))
|
||||
(org-ql-select
|
||||
(get-buffer buf)
|
||||
`(rifle ,query)
|
||||
:action :action #'(lambda ()
|
||||
(concat
|
||||
(buffer-substring-no-properties
|
||||
(line-beginning-position)
|
||||
(line-end-position))))))
|
||||
|
||||
|
||||
(gptel-make-tool
|
||||
:function #'gptel-org-tools-org-ql-select-headings-rifle
|
||||
:name "org-ql-select-headings-rifle"
|
||||
:description "Retreive headings from buffer using org-ql-select. Matches against both heading and content. Using filename fails."
|
||||
:args (list '(:name "buffer"
|
||||
:type string
|
||||
:description "The name of the buffer. See the NAME column in ~emacs-list-buffers~.")
|
||||
'(:name "query"
|
||||
:type string
|
||||
:description "The string to pass into org-ql-select-headings-rifle. This is a bare string. Example: \"searchterm\""))
|
||||
:category "org-ql")
|
||||
(gptel-make-tool
|
||||
:function #'gptel-org-tools-org-ql-select-headings-rifle
|
||||
:name "org-ql-select-headings-rifle"
|
||||
:description "Retreive headings from buffer using org-ql-select. Matches against both heading and content. Using filename fails."
|
||||
:args (list '(:name "buffer"
|
||||
:type string
|
||||
:description "The name of the buffer. See the NAME column in ~emacs-list-buffers~.")
|
||||
'(:name "query"
|
||||
:type string
|
||||
:description "The string to pass into org-ql-select-headings-rifle. This is a bare string. Example: \"searchterm\""))
|
||||
:category "org-ql")
|
||||
|
||||
(defun gptel-org-tools-org-ql-select-tags-local (buf query)
|
||||
(org-ql-select
|
||||
|
|
@ -243,8 +243,8 @@
|
|||
(buffer-substring-no-properties
|
||||
(line-beginning-position)
|
||||
(progn
|
||||
(outline-next-heading)
|
||||
(line-beginning-position)))))))
|
||||
(outline-next-heading)
|
||||
(line-beginning-position)))))))
|
||||
|
||||
|
||||
(gptel-make-tool
|
||||
|
|
@ -268,8 +268,8 @@
|
|||
(buffer-substring-no-properties
|
||||
(line-beginning-position)
|
||||
(progn
|
||||
(outline-next-heading)
|
||||
(line-beginning-position)))))))
|
||||
(outline-next-heading)
|
||||
(line-beginning-position)))))))
|
||||
|
||||
|
||||
(gptel-make-tool
|
||||
|
|
@ -293,8 +293,8 @@
|
|||
(buffer-substring-no-properties
|
||||
(line-beginning-position)
|
||||
(progn
|
||||
(outline-next-heading)
|
||||
(line-beginning-position)))))))
|
||||
(outline-next-heading)
|
||||
(line-beginning-position)))))))
|
||||
|
||||
(gptel-make-tool
|
||||
:function #'gptel-org-tools-org-ql-select-rifle
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue