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

gptel: Offer suggestion when setting gptel-topic

Browse source 
gptel.el (gptel-set-topic): Offer a suggestion when setting a GPTEL_TOPIC
property for an Org heading.

Fix linting in docstring.
This commit is contained in:
Karthik Chikmagalur 2023-10-22 11:49:48 -07:00
parent 648fa228a1
commit ed0bfc9ed1
1 changed files with 10 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
gptel.el
View file

@ -66,6 +66,7 @@
(declare-function org-property-values "org") (declare-function org-property-values "org")
(declare-function org-open-line "org") (declare-function org-open-line "org")
(declare-function org-at-heading-p "org") (declare-function org-at-heading-p "org")
(declare-function org-get-heading "org")
(eval-when-compile (eval-when-compile
(require 'subr-x) (require 'subr-x)
@ -110,7 +111,7 @@ This option is ignored unless Curl is in use (see `gptel-use-curl').
When set to nil, Emacs waits for the full response and inserts it When set to nil, Emacs waits for the full response and inserts it
all at once. This wait is asynchronous. all at once. This wait is asynchronous.
'tis a bit silly." \='tis a bit silly."
:group 'gptel :group 'gptel
:type 'boolean) :type 'boolean)
(make-obsolete-variable 'gptel-playback 'gptel-stream "0.3.0") (make-obsolete-variable 'gptel-playback 'gptel-stream "0.3.0")
@ -648,7 +649,14 @@ current heading and the cursor position."
(org-set-property (org-set-property
"GPTEL_TOPIC" "GPTEL_TOPIC"
(completing-read "Set topic as: " (completing-read "Set topic as: "
(org-property-values "GPTEL_TOPIC")))) (org-property-values "GPTEL_TOPIC")
nil nil (downcase
(truncate-string-to-width
(substring-no-properties
(replace-regexp-in-string
"\\s-+" "-"
(org-get-heading)))
50)))))
('markdown-mode ('markdown-mode
(message (message
"Support for multiple topics per buffer is not implemented for `markdown-mode'.")))) "Support for multiple topics per buffer is not implemented for `markdown-mode'."))))