[elpa] externals/ellama c7a67d700b 3/3: Merge pull request #115 from torgeir/main

[ELPA Syncer]

branch: externals/ellama
commit c7a67d700b9f74cc382b9a86aa9741f01e58b948
Merge: 6e6ec8e28b 8fe381cebe
Author: Sergey Kostyaev <s-kostyaev@users.noreply.github.com>
Commit: GitHub <noreply@github.com>

    Merge pull request #115 from torgeir/main
    
    Improved website summarization
---
 ellama.el | 17 +++++++++++++----
 1 file changed, 13 insertions(+), 4 deletions(-)

diff --git a/ellama.el b/ellama.el
index b2f6c6d7d4..3602f356bf 100644
--- a/ellama.el
+++ b/ellama.el
@@ -1424,18 +1424,27 @@ buffer."
   (ellama-make-format ellama-make-table-prompt-template))
 
 (defun ellama-summarize-webpage (url)
-  "Summarize webpage fetched from URL."
-  (interactive "sEnter URL you want to summarize: ")
+  "Summarize webpage fetched from URL.
+
+Summarize the URL at point if `thing-at-point' is present, otherwise
+prompt user for URL to summarize."
+  (interactive
+   (list
+    (if-let ((url (and (fboundp 'thing-at-point) (thing-at-point 'url))))
+        url
+      (read-string "Enter URL you want to summarize: "))))
   (let ((buffer-name (url-retrieve-synchronously url t)))
     ;; (display-buffer buffer-name)
     (with-current-buffer buffer-name
       (goto-char (point-min))
-      (search-forward "<!DOCTYPE")
+      (or (search-forward "<!DOCTYPE" nil t)
+          (search-forward "<html" nil))
       (beginning-of-line)
       (kill-region (point-min) (point))
       (shr-insert-document (libxml-parse-html-region (point-min) (point-max)))
       (goto-char (point-min))
-      (search-forward "<!DOCTYPE")
+      (or (search-forward "<!DOCTYPE" nil t)
+          (search-forward "<html" nil))
       (beginning-of-line)
       (kill-region (point) (point-max))
       (ellama-summarize))))