exot/.emacs.d
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Use more generic location slot for storing URLs in bookmarks

Browse Source 
This might allow easier relocation of such bookmarks later on.
This commit is contained in:
Daniel Borchmann 2025-03-02 17:38:42 +01:00
parent c74eed5df1
commit 76815c0171
No known key found for this signature in database
GPG Key ID: 784AA8DF0CCDF625
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
site-lisp/db-utils.el
View File

@ -845,14 +845,14 @@ number of bytes has been inserted."
HANDLER is a function receiving a single argument, namely
LOCATION. If a bookmark named NAME is already present, replace
it."
(let ((new-record `((filename . ,location)
(let ((new-record `((location . ,location)
(handler . ,handler))))
(bookmark-update-last-modified new-record)
(bookmark-store name new-record nil)))
(defun db/bookmark-browse-url (bmk)
"Extract filename from bookmark BMK and apply `browse-url' to it."
(browse-url (bookmark-get-filename bmk)))
(browse-url (bookmark-location bmk)))
;; https://takeonrules.com/2024/12/17/extending-built-in-emacs-bookmark-package/
(put 'db/bookmark-browse-url 'bookmark-handler-type "URL")
@ -863,7 +863,7 @@ it."
(defun db/bookmark-eww (bmk)
"Extract filename from bookmark BMK and apply `eww' to it."
(eww (bookmark-get-filename bmk)))
(eww (bookmark-location bmk)))
(put 'db/bookmark-eww 'bookmark-handler-type "EWW")