From 1cc035b8b0005fe959a574ff7871313611d994ef Mon Sep 17 00:00:00 2001 From: Bram Schoenmakers Date: Mon, 25 Dec 2023 00:11:43 +0100 Subject: [PATCH] Implement kagi-summarize-region Remove duplicate functions and created function for buffer name. --- kagi.el | 23 ++++++----------------- 1 file changed, 6 insertions(+), 17 deletions(-) diff --git a/kagi.el b/kagi.el index a781559..78e9abc 100644 --- a/kagi.el +++ b/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: "))