From d81469b7d7fd979236badafbdf0b04c6c876e3f1 Mon Sep 17 00:00:00 2001 From: JSDurand Date: Wed, 15 Sep 2021 17:09:52 +0800 Subject: EWW: integrate with the built-in bookmark framework * bookmark-conf.el (blist-eww-p): Group EWW bookmarks together. * eww-conf.el (durand-eww-bookmark-make-record) (durand-eww-set-bookmark-record-function, eww-mode-hook): Make records for EWW buffers. (durand-eww-bookmark-jump): Jump to EWW bookmarks. --- bookmark-conf.el | 13 ++++++++++--- 1 file changed, 10 insertions(+), 3 deletions(-) (limited to 'bookmark-conf.el') diff --git a/bookmark-conf.el b/bookmark-conf.el index a8244e5..fc95cb8 100644 --- a/bookmark-conf.el +++ b/bookmark-conf.el @@ -50,6 +50,7 @@ blist-filter-groups (list (cons "Eshell" #'blist-eshell-p) + (cons "EWW" #'blist-eww-p) (cons "Gnus" #'blist-gnus-p) (cons "PDF" #'blist-pdf-p) (cons "ELisp" #'blist-elisp-p) @@ -64,9 +65,15 @@ ;; There seems to be only two GNUS bookmark handlers (or one?) (blist-define-criterion "gnus" "Gnus" - (let ((handler (bookmark-get-handler bookmark))) - (memq handler (list #'gnus-summary-bookmark-jump - #'gnus-bookmark-jump)))) + (memq (bookmark-get-handler bookmark) + (list #'gnus-summary-bookmark-jump + #'gnus-bookmark-jump))) + +;;;; EWW group + +(blist-define-criterion "eww" "EWW" + (eq (bookmark-get-handler bookmark) + #'durand-eww-bookmark-jump)) ;;;; Info group -- cgit v1.2.3-18-g5258