Re: EWW func add url under point as bookmark

[Alex <project@gnuhacker.org>]

Yay! I get it!

#+begin_src elisp
;; Copyright 2022 Alex
;; Under GPLv3-or-later License

(defun eww-bookmark-add (url title)
  "Bookmark url with a title."
  (unless (stringp url)
    (user-error "invalid url string required"))
  (unless (stringp title)
    (user-error "invalid title string required"))
  (eww-read-bookmarks)
  (dolist (bookmark eww-bookmarks)
    (when (equal url (plist-get bookmark :url))
      (user-error "Already bookmarked")))
  (push (list :url url
	      :title title
	      :time (current-time-string))
	eww-bookmarks)
  (eww-write-bookmarks)
  (message "Bookmarked %s (%s)" url title))

(defun eww-bookmark-url-under-point (title)
  "Bookmark url under point"
  (interactive (list (read-string "Bookmark title: ")))
  (let ((str-url (thing-at-point 'url)))
    (eww-bookmark-add str-url title)))

;; test here:
;; cursor on url and M-x eww-bookmark-url-under-point RET
;; http://www.gnuhacker.org

#+end_src

-- 
Alex
Emacs Lover.
FSF Member.
Free/Libre Software supporter.
stallmansupport.org - Disinformation succeeds because so many people
care deeply about injustice but do not take the time to check the facts.