From b84eb291e36cc537663e3c0b409884c068a10820 Mon Sep 17 00:00:00 2001 From: Daniel Borchmann Date: Thu, 9 Jun 2022 21:27:35 +0200 Subject: [PATCH] Use org-ql regexp search to find backlins This is because org-ql link queries seem to be broken when target links contain brackets in their description. --- site-lisp/db-org.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/site-lisp/db-org.el b/site-lisp/db-org.el index fd40470..5eca886 100644 --- a/site-lisp/db-org.el +++ b/site-lisp/db-org.el @@ -1004,9 +1004,12 @@ referenced in `org-agenda-text-search-extra-files'." (pop extra-files)) (setq files (append files extra-files)) + ;; Search directly for “[[id:ITEM-ID]” instead of using the regular + ;; expression for links, as the latter seems to be broken (as of + ;; [2022-06-09] when descriptions contain brackets (org-ql-query :select '(org-id-get-create) :from files - :where (let ((link-expression `(link :target ,item-id))) + :where (let ((link-expression `(regexp ,(format "\\[\\[id:%s\\]" item-id)))) (if org-ql-match `(and ,link-expression ,org-ql-match) link-expression)))))