Switch to markdown-mode in a dedicated response buffer
Markdown formatting not supported (yet) in the shell.
This commit is contained in:
parent
3ae19c59db
commit
823f3256c3
1 changed files with 5 additions and 1 deletions
6
kagi.el
6
kagi.el
|
@ -391,13 +391,17 @@ retrieving a result from Lisp code."
|
||||||
(gethash "code" firsterror)))
|
(gethash "code" firsterror)))
|
||||||
(error "An error occurred while querying FastGPT")))))
|
(error "An error occurred while querying FastGPT")))))
|
||||||
|
|
||||||
|
(declare-function markdown-mode nil)
|
||||||
|
|
||||||
(defun kagi--fastgpt-display-result (result)
|
(defun kagi--fastgpt-display-result (result)
|
||||||
"Display the RESULT of a FastGPT prompt in a new buffer."
|
"Display the RESULT of a FastGPT prompt in a new buffer."
|
||||||
(let ((buffer-name (generate-new-buffer-name "*fastgpt-result*")))
|
(let ((buffer-name (generate-new-buffer-name "*fastgpt-result*")))
|
||||||
(with-current-buffer (get-buffer-create buffer-name)
|
(with-current-buffer (get-buffer-create buffer-name)
|
||||||
(save-excursion
|
(save-excursion
|
||||||
(insert result))
|
(insert result))
|
||||||
(text-mode)
|
(if (featurep 'markdown-mode)
|
||||||
|
(markdown-mode)
|
||||||
|
(text-mode))
|
||||||
(display-buffer buffer-name))))
|
(display-buffer buffer-name))))
|
||||||
|
|
||||||
(defun kagi--fastgpt-welcome-message (_config)
|
(defun kagi--fastgpt-welcome-message (_config)
|
||||||
|
|
Loading…
Reference in a new issue