mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 18:40:39 -08:00
Code Issues Projects Releases Wiki Activity

Add bookmark.el support to eww

Browse source 
* lisp/net/eww.el (eww-bookmark-name, eww-bookmark-make-record)
(eww-bookmark-jump): New defuns.
(eww-mode): Set up bookmark handler.
This commit is contained in:
Stefan Kangas 2021-09-29 03:24:10 +02:00
parent ee856b76ff
commit da89bdde2e
2 changed files with 28 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

23
lisp/net/eww.el
View file

@ -1101,6 +1101,7 @@ the like."
(setq-local thing-at-point-provider-alist
(append thing-at-point-provider-alist
'((url . eww--url-at-point))))
(setq-local bookmark-make-record-function #'eww-bookmark-make-record)
(buffer-disable-undo)
(setq buffer-read-only t))
@ -2419,6 +2420,28 @@ Otherwise, the restored buffer will contain a prompt to do so by using
(eww-previous-url))))
(current-buffer))
;;; bookmark.el support
(declare-function bookmark-make-record-default
"bookmark" (&optional no-file no-context posn))
(declare-function bookmark-prop-get "bookmark" (bookmark prop))
(defun eww-bookmark-name ()
"Create a default bookmark name for the current EWW buffer."
(plist-get eww-data :title))
(defun eww-bookmark-make-record ()
"Create a bookmark for the current EWW buffer."
`(,(eww-bookmark-name)
,@(bookmark-make-record-default t)
(location . ,(plist-get eww-data :url))
(handler . eww-bookmark-jump)))
;;;###autoload
(defun eww-bookmark-jump (bookmark)
"Default bookmark handler for EWW buffers."
(eww (bookmark-prop-get bookmark 'location)))
(provide 'eww)
;;; eww.el ends here