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

Remember to incorporate org-refile-target-verify-function

Browse Source
This commit is contained in:
Daniel Borchmann 2025-08-17 18:22:14 +02:00
parent 8725404332
commit 881d595e7c
No known key found for this signature in database
GPG Key ID: 50EA937BF472ADD1
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
site-lisp/db-org.el
View File

@ -493,7 +493,10 @@ Also note that the usual variables governing the behavior of
(when new-nodes (when new-nodes
(warn "Cannot create new nodes (yet) with consult interface for `org-refile'")) (warn "Cannot create new nodes (yet) with consult interface for `org-refile'"))
(let ((pom (with-current-buffer (or default-buffer (current-buffer)) (let ((pom (with-current-buffer (or default-buffer (current-buffer))
(db/org-get-location t nil (concat prompt " "))))) ; TODO: incorporate verify function (db/org-get-location t nil (concat prompt " "))))) ; TODO: incorporate verify
; function, use direct call to
; consult--read for this and
; replace the :predicate key?
(list (buffer-name (marker-buffer pom)) (list (buffer-name (marker-buffer pom))
(buffer-file-name (marker-buffer pom)) (buffer-file-name (marker-buffer pom))
;; The third entry is some regexp matching the headline, apparently? ;; The third entry is some regexp matching the headline, apparently?