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

Fix type signature for org-refile-get-location substitute function

Browse Source
This commit is contained in:
Daniel Borchmann 2025-08-17 17:51:01 +02:00
parent df98f37f69
commit 3f767faf08
No known key found for this signature in database
GPG Key ID: 50EA937BF472ADD1
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
init.el
View File

@ -953,7 +953,7 @@ split horizontally again, but this extra work should not matter much."
;; Use consult for querying refile targets ;; Use consult for querying refile targets
(define-advice org-refile-get-location (:around (define-advice org-refile-get-location (:around
(orig-func prompt default-buffer new-nodes) (orig-func &optional prompt default-buffer new-nodes)
use-consult-instead) use-consult-instead)
(ignore orig-func) (ignore orig-func)
(db/org-refile-get-location prompt default-buffer new-nodes)))) (db/org-refile-get-location prompt default-buffer new-nodes))))

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

@ -478,7 +478,7 @@ Via %%(with-temp-buffer (db/org-add-link-to-current-clock) (string-trim (buffer-
;; any agenda when a super-item is tagged with :HOLD:. ;; any agenda when a super-item is tagged with :HOLD:.
(not (member "HOLD" (org-get-tags (point)))))) (not (member "HOLD" (org-get-tags (point))))))
(defun db/org-refile-get-location (prompt default-buffer new-nodes) (defun db/org-refile-get-location (&optional prompt default-buffer new-nodes)
"Replacement function for `org-refile-get-location' using `consult'. "Replacement function for `org-refile-get-location' using `consult'.
This function can be used instead of `org-refile-get-location', This function can be used instead of `org-refile-get-location',