tristan/gptel
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

gptel-transient: Rename additional-directive functions

Browse source 
* gptel-transient.el (gptel--get-directive,
gptel--infix-add-directive, gptel-menu): Rename the
directive-related functions to be shorter/more consistent with the
rest of the code.

gptel--additional-directive     -> gptel--infix-add-directive
gptel--additional-directive-get -> gptel--get-directive
This commit is contained in:
Karthik Chikmagalur 2024-03-15 15:12:07 -07:00
parent 161c77ad7f
commit 6d3e4a99f5
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
gptel-transient.el
View file

@ -124,7 +124,7 @@ which see."
["" [""
"Instructions" "Instructions"
("s" "Set system message" gptel-system-prompt :transient t) ("s" "Set system message" gptel-system-prompt :transient t)
(gptel--additional-directive :if (lambda () gptel-expert-commands))]] (gptel--infix-add-directive :if (lambda () gptel-expert-commands))]]
[["Model Parameters" [["Model Parameters"
(gptel--infix-provider) (gptel--infix-provider)
;; (gptel--infix-model) ;; (gptel--infix-model)
@ -185,7 +185,7 @@ which see."
(lambda () (lambda ()
"Inspect the query that will be sent as a lisp object." "Inspect the query that will be sent as a lisp object."
(interactive) (interactive)
(let* ((extra (gptel--additional-directive-get (let* ((extra (gptel--get-directive
(transient-args (transient-args
transient-current-command))) transient-current-command)))
(gptel--system-message (gptel--system-message
@ -196,7 +196,7 @@ which see."
(lambda () (lambda ()
"Inspect the query that will be sent as a JSON object." "Inspect the query that will be sent as a JSON object."
(interactive) (interactive)
(let* ((extra (gptel--additional-directive-get (let* ((extra (gptel--get-directive
(transient-args (transient-args
transient-current-command))) transient-current-command)))
(gptel--system-message (gptel--system-message
@ -477,7 +477,7 @@ Also format its value in the Transient menu."
(concat "(" (symbol-name (oref obj display-nil)) ")") (concat "(" (symbol-name (oref obj display-nil)) ")")
'face 'transient-inactive-value)))) 'face 'transient-inactive-value))))
(transient-define-infix gptel--additional-directive () (transient-define-infix gptel--infix-add-directive ()
"Additional directive intended for the next query only. "Additional directive intended for the next query only.
This is useful to define a quick task on top of a more extensive This is useful to define a quick task on top of a more extensive
@ -507,7 +507,7 @@ Or in an extended conversation:
:description "Add directive" :description "Add directive"
:transient t) :transient t)
(defun gptel--additional-directive-get (args) (defun gptel--get-directive (args)
"Find the additional directive in the transient ARGS of this command." "Find the additional directive in the transient ARGS of this command."
(cl-some (lambda (s) (and (string-prefix-p ":" s) (cl-some (lambda (s) (and (string-prefix-p ":" s)
(concat "\n\n" (substring s 1)))) (concat "\n\n" (substring s 1))))
@ -546,7 +546,7 @@ Or in an extended conversation:
(backend-name (gptel-backend-name gptel-backend)) (backend-name (gptel-backend-name gptel-backend))
(buffer) (position) (buffer) (position)
(callback) (gptel-buffer-name) (callback) (gptel-buffer-name)
(system-extra (gptel--additional-directive-get args)) (system-extra (gptel--get-directive args))
;; Input redirection: grab prompt from elsewhere? ;; Input redirection: grab prompt from elsewhere?
(prompt (prompt
(cond (cond