Implement kagi-summarize-region
Remove duplicate functions and created function for buffer name.
This commit is contained in:
parent
b36b668726
commit
1cc035b8b0
1 changed files with 6 additions and 17 deletions
23
kagi.el
23
kagi.el
|
@ -233,30 +233,19 @@ https://kagi.com/settings?p=api"
|
|||
|
||||
;;; Summarizer
|
||||
|
||||
(defun kagi-summarize-buffer (buffer)
|
||||
"Summarize buffer content."
|
||||
(interactive "b")
|
||||
(with-current-buffer buffer
|
||||
(let ((summary-buffer-name (format "*%s (summary)*" (buffer-name))))
|
||||
(kagi--display-text-summary (buffer-string) summary-buffer-name))))
|
||||
|
||||
(defun kagi-summarize-region (begin end)
|
||||
(interactive "r"))
|
||||
|
||||
(defun kagi-summarize-url (url)
|
||||
(interactive "sURL: "))
|
||||
|
||||
;;; Summarizer
|
||||
(defun kagi--summary-buffer-name ()
|
||||
"Generate an alternative name for the summary based on the given BUFFER-NAME."
|
||||
(format "%s (summary)" (buffer-name)))
|
||||
|
||||
(defun kagi-summarize-buffer (buffer)
|
||||
"Summarize buffer content."
|
||||
(interactive "b")
|
||||
(with-current-buffer buffer
|
||||
(let ((summary-buffer-name (format "*%s (summary)*" (buffer-name))))
|
||||
(kagi--display-text-summary (buffer-string) summary-buffer-name))))
|
||||
(kagi--display-text-summary (buffer-string) (kagi--summary-buffer-name))))
|
||||
|
||||
(defun kagi-summarize-region (begin end)
|
||||
(interactive "r"))
|
||||
(interactive "r")
|
||||
(kagi--display-text-summary (buffer-substring begin end) (kagi--summary-buffer-name)))
|
||||
|
||||
(defun kagi-summarize-url (url)
|
||||
(interactive "sURL: "))
|
||||
|
|
Loading…
Reference in a new issue