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

Make custom consult bookmark menu robust for upgrade

Browse Source 
`consult--source-bookmark` is gone in later versions.
This commit is contained in:
Daniel Borchmann 2026-03-21 14:48:56 +01:00
parent 0ecb4ff55a
commit 708fc312d2
No known key found for this signature in database
GPG Key ID: 50EA937BF472ADD1
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -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)))