From 708fc312d2de8bddb07b6adbe28ffff4a1e689c1 Mon Sep 17 00:00:00 2001 From: Daniel Borchmann Date: Sat, 21 Mar 2026 14:48:56 +0100 Subject: [PATCH] Make custom consult bookmark menu robust for upgrade `consult--source-bookmark` is gone in later versions. --- site-lisp/db-utils.el | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/site-lisp/db-utils.el b/site-lisp/db-utils.el index 1b3a0e3..c4ae7b2 100644 --- a/site-lisp/db-utils.el +++ b/site-lisp/db-utils.el @@ -92,6 +92,7 @@ (defun db/shortcuts () "Open helm completion on common locations." (interactive) + (require 'consult) (let (sources) (push (list :name "Frequently Used" :items (mapcar #'(lambda (entry) @@ -101,7 +102,13 @@ :annotate #'(lambda (_) "") :action #'call-interactively) sources) - (push 'consult--source-bookmark + (push (cond + ((boundp 'consult-source-bookmark) + 'consult-source-bookmark) + ((boundp 'consult--source-bookmark) + 'consult--source-bookmark) + (t + (error "No consult source for adding bookmarks"))) sources) (when (file-directory-p db/important-documents-path) (let ((search-path (expand-file-name db/important-documents-path)))