From 96ac10216e6049262a46b2f2341efc2bd35a14d1 Mon Sep 17 00:00:00 2001 From: Daniel Borchmann Date: Thu, 15 May 2025 18:16:11 +0200 Subject: [PATCH] Try out `consult-org-agenda` for jumping directly to Org headings Looks good and includes tags! --- site-lisp/db-org.el | 13 +------------ 1 file changed, 1 insertion(+), 12 deletions(-) diff --git a/site-lisp/db-org.el b/site-lisp/db-org.el index 9905225..c97b314 100644 --- a/site-lisp/db-org.el +++ b/site-lisp/db-org.el @@ -1302,18 +1302,7 @@ Current Task: %s(replace-regexp-in-string \"%\" \"%%\" (or org-clock-current-tas " ("c" (db/org-clock-goto-first-open-checkbox nil) nil) - ("a" (with-current-buffer - ;; Make sure we are in some Org buffer, as `org-refile-get-location' - ;; might try to parse the current buffer in search for some Org - ;; headings, possibly producing errors along the way. - (->> (org-agenda-files :unrestricted) - cl-first - get-file-buffer) - ;; Show all possible items, i.e. exclude refile verification; since the - ;; cache includes only verified items, also disable it locally. - (let ((org-refile-use-cache nil) - (org-refile-target-verify-function nil)) - (org-refile '(4)))) + ("a" consult-org-agenda nil) ("s" (db/org-clock-goto-first-open-checkbox t) nil))