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

Allow custom prompt in own Org location query function

Browse Source
This commit is contained in:
Daniel Borchmann 2025-08-17 15:47:50 +02:00
parent eff28a5321
commit 44fb922b66
No known key found for this signature in database
GPG Key ID: 50EA937BF472ADD1
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-org.el
View File

@ -1863,11 +1863,11 @@ not."
(t (user-error "Neither ID nor CUSTOM_ID given")))))
(org-search-view nil query)))
(defun db/org-get-location (&optional use-all-org-files initial-input)
(defun db/org-get-location (&optional use-all-org-files initial-input prompt)
"Interactively query for location and return mark.
Use INITIAL-INPUT as initial input when filtering available
locations.
locations. Use PROMPT as prompt when given.
When USE-ALL-ORG-FILES is nil, this functions by default searches
through the current buffer if that one is an Org buffer and is
@ -1912,7 +1912,7 @@ linking to any item."
(consult--read (consult--slow-operation "Collecting headings..."
(or (consult-org--headings t nil scope)
(user-error "No headings")))
:prompt "Choose heading: "
:prompt (or prompt "Choose heading: ")
:category 'org-heading
:sort nil
:initial initial-input