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

Use default mechanism to store URL bookmarks directly after creation

Browse Source 
Nicer :)
This commit is contained in:
Daniel Borchmann 2025-02-22 18:23:34 +01:00
parent 35cc0080d5
commit 795fcde3b8
No known key found for this signature in database
GPG Key ID: 784AA8DF0CCDF625
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
init.el
View File

@ -2353,7 +2353,8 @@ eventuelly be set to nil, however)."
(use-package bookmark (use-package bookmark
:init (setq bookmark-default-file (expand-file-name "bookmarks" emacs-d-userdata) :init (setq bookmark-default-file (expand-file-name "bookmarks" emacs-d-userdata)
bookmark-menu-confirm-deletion t)) bookmark-menu-confirm-deletion t
bookmark-save-flag 1))
(use-package dumb-jump (use-package dumb-jump
:commands (dumb-jump-xref-activate) :commands (dumb-jump-xref-activate)

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

@ -847,8 +847,7 @@ it."
(let ((new-record `((filename . ,location) (let ((new-record `((filename . ,location)
(handler . ,handler)))) (handler . ,handler))))
(bookmark-update-last-modified new-record) (bookmark-update-last-modified new-record)
(bookmark-store name new-record nil) (bookmark-store name new-record nil)))
(bookmark-save)))
(defun db/bookmark-browse-url (bmk) (defun db/bookmark-browse-url (bmk)
"Extract filename from bookmark BMK and apply `browse-url' to it." "Extract filename from bookmark BMK and apply `browse-url' to it."