bram/kagi.el
1
0
Fork 0
Code Issues Activity

Implement kagi-summarize-region

Browse source 
Remove duplicate functions and created function for buffer name.
This commit is contained in:
Bram Schoenmakers 2023-12-25 00:11:43 +01:00
parent b36b668726
commit 1cc035b8b0
Signed by: bram
GPG key ID: 0CCD19DFDC63258F
1 changed files with 6 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
kagi.el
View file

@ -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: "))