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

gptel-transient: Rename gptel-send-menu -> gptel-menu

Browse source 
* gptel.el (gptel-send): Replace references to `gptel-send-menu'.

* gptel-transient.el: Rename `gptel-send-menu' t `gptel-menu'.
This shorter name is apropos of its increased feature set (in the
forthcoming commits).
This commit is contained in:
Karthik Chikmagalur 2023-04-09 03:34:16 -07:00
parent 8a9ae56e77
commit c6abda6f0f
2 changed files with 30 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

29
gptel-transient.el
View file

@ -29,8 +29,31 @@
(require 'gptel) (require 'gptel)
(require 'transient) (require 'transient)
;;;###autoload (autoload 'gptel-send-menu "gptel-transient" nil t) (declare-function ediff-regions-internal "ediff")
(transient-define-prefix gptel-send-menu () (declare-function ediff-make-cloned-buffer "ediff-utils")
;; * Helper functions
(defun gptel--refactor-or-rewrite ()
"Rewrite should be refactored into refactor.
Or is it the other way around?"
(if (derived-mode-p 'prog-mode)
"Refactor" "Rewrite"))
(defvar-local gptel--rewrite-message nil)
(defun gptel--rewrite-message ()
"Set a generic refactor/rewrite message for the buffer."
(if (derived-mode-p 'prog-mode)
(format "You are a %s programmer. Refactor the following code. Generate only code, no explanation."
(substring (symbol-name major-mode) nil -5))
(format "You are a prose editor. Rewrite the following text to be more professional.")))
;; * Transient Prefixes
(define-obsolete-function-alias 'gptel-send-menu 'gptel-menu "0.3.2")
;;;###autoload (autoload 'gptel-menu "gptel-transient" nil t)
(transient-define-prefix gptel-menu ()
"Change parameters of prompt to send ChatGPT." "Change parameters of prompt to send ChatGPT."
[:description [:description
(lambda () (format "Directive: %s" (lambda () (format "Directive: %s"
@ -233,7 +256,7 @@ will get progressively longer!"
`((display-buffer-reuse-window `((display-buffer-reuse-window
display-buffer-use-some-window) display-buffer-use-some-window)
(body-function . ,#'select-window))) (body-function . ,#'select-window)))
(call-interactively #'gptel-send-menu)))))) (call-interactively #'gptel-menu))))))
(provide 'gptel-transient) (provide 'gptel-transient)
;;; gptel-transient.el ends here ;;; gptel-transient.el ends here

8
gptel.el
View file

@ -54,7 +54,7 @@
;;; Code: ;;; Code:
(declare-function markdown-mode "markdown-mode") (declare-function markdown-mode "markdown-mode")
(declare-function gptel-curl-get-response "gptel-curl") (declare-function gptel-curl-get-response "gptel-curl")
(declare-function gptel-send-menu "gptel-transient") (declare-function gptel-menu "gptel-transient")
(declare-function pulse-momentary-highlight-region "pulse") (declare-function pulse-momentary-highlight-region "pulse")
(eval-when-compile (eval-when-compile
@ -260,14 +260,14 @@ By default, \"openai.com\" is used as HOST and \"apikey\" as USER."
" " 'display `(space :align-to ,(max 1 (- (window-width) (+ 2 l1 l2))))) " " 'display `(space :align-to ,(max 1 (- (window-width) (+ 2 l1 l2)))))
(propertize (propertize
(button-buttonize num-exchanges (button-buttonize num-exchanges
(lambda (&rest _) (gptel-send-menu))) (lambda (&rest _) (gptel-menu)))
'mouse-face 'highlight 'mouse-face 'highlight
'help-echo 'help-echo
"Number of past exchanges to include with each request") "Number of past exchanges to include with each request")
" " " "
(propertize (propertize
(button-buttonize (concat "[" gptel-model "]") (button-buttonize (concat "[" gptel-model "]")
(lambda (&rest _) (gptel-send-menu))) (lambda (&rest _) (gptel-menu)))
'mouse-face 'highlight 'mouse-face 'highlight
'help-echo "OpenAI GPT model in use")))))) 'help-echo "OpenAI GPT model in use"))))))
(setq header-line-format gptel--old-header-line))) (setq header-line-format gptel--old-header-line)))
@ -395,7 +395,7 @@ With prefix arg ARG activate a transient menu with more options
instead." instead."
(interactive "P") (interactive "P")
(if (and arg (require 'gptel-transient nil t)) (if (and arg (require 'gptel-transient nil t))
(call-interactively #'gptel-send-menu) (call-interactively #'gptel-menu)
(message "Querying ChatGPT...") (message "Querying ChatGPT...")
(let* ((response-pt (let* ((response-pt
(if (use-region-p) (if (use-region-p)