From 669ecb6e4fec6a8bde96f85f940249fe71969777 Mon Sep 17 00:00:00 2001 From: Daniel Borchmann Date: Sat, 26 Sep 2020 18:16:43 +0200 Subject: [PATCH] Trying to make backling searching work for custom-id links --- site-lisp/db-org.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/site-lisp/db-org.el b/site-lisp/db-org.el index b0cfaa6..625b4f4 100644 --- a/site-lisp/db-org.el +++ b/site-lisp/db-org.el @@ -613,9 +613,11 @@ not." (user-error "CUSTOM_ID must consist of alphanumeric charaters only")) (let ((query (cond - ((and id custom-id) (format "{\\[\\[id:%s\\]\\|\\[\\[#%s\\]}" id custom-id)) + ((and id custom-id) (format "{\\[\\[id:%s\\]\\|\\[\\[file:[^]]*::#%s\\]\\|\\[#%s\\]}" + id custom-id custom-id)) (id (format "[[id:%s]" id)) - (custom-id (format "[[#%s]" custom-id)) + (custom-id (format "{\\[file:[^]]*::#%s\\]\\|\\[#%s\\]}" + custom-id custom-id)) (t (user-error "Neither ID nor CUSTOM_ID given"))))) (org-search-view nil query)))