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

gptel: Bump version and prepare for transient menus

Browse source 
gptel.el (gptel-send): Prepare to include transient dispatch menus from
`gptel-transient.el'.  This is WIP and not part of the project yet.
This commit is contained in:
Karthik Chikmagalur 2023-03-08 19:25:14 -08:00
parent 4e35e998a8
commit 3f7c81012b
1 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
gptel.el
View file

@ -3,7 +3,7 @@
;; Copyright (C) 2023 Karthik Chikmagalur ;; Copyright (C) 2023 Karthik Chikmagalur
;; Author: Karthik Chikmagalur ;; Author: Karthik Chikmagalur
;; Version: 0.05 ;; Version: 0.10
;; Package-Requires: ((emacs "27.1") (aio "1.0")) ;; Package-Requires: ((emacs "27.1") (aio "1.0"))
;; Keywords: convenience ;; Keywords: convenience
;; URL: https://github.com/karthink/gptel ;; URL: https://github.com/karthink/gptel
@ -49,6 +49,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")
(eval-when-compile (eval-when-compile
(require 'subr-x) (require 'subr-x)
@ -89,7 +90,6 @@ When set to nil, it is inserted all at once.
'text-mode)) 'text-mode))
(defvar gptel-prompt-string "### ") (defvar gptel-prompt-string "### ")
(aio-defun gptel-send ()
;; Model and interaction parameters ;; Model and interaction parameters
(defvar-local gptel--system-message (defvar-local gptel--system-message
"You are a large language model living in Emacs and a helpful assistant. Respond concisely.") "You are a large language model living in Emacs and a helpful assistant. Respond concisely.")
@ -108,8 +108,11 @@ When set to nil, it is inserted all at once.
"Ensure VAL is a number." "Ensure VAL is a number."
(if (stringp val) (string-to-number val) val)) (if (stringp val) (string-to-number val) val))
(aio-defun gptel-send (&optional arg)
"Submit this prompt to ChatGPT." "Submit this prompt to ChatGPT."
(interactive) (interactive "P")
(if (and arg (featurep 'gptel-transient))
(call-interactively #'gptel-send-menu)
(message "Querying ChatGPT...") (message "Querying ChatGPT...")
(setf (nth 1 header-line-format) (setf (nth 1 header-line-format)
(propertize " Waiting..." 'face 'warning)) (propertize " Waiting..." 'face 'warning))