From c9dcc7778e01ba8933ecdd0a619ea6d06cdc12ad Mon Sep 17 00:00:00 2001 From: Daniel Borchmann Date: Sat, 29 Oct 2022 10:17:28 +0200 Subject: [PATCH] Use Org builtin function to format links in strings --- site-lisp/db-org.el | 13 ++----------- 1 file changed, 2 insertions(+), 11 deletions(-) diff --git a/site-lisp/db-org.el b/site-lisp/db-org.el index 84c9926..909e704 100644 --- a/site-lisp/db-org.el +++ b/site-lisp/db-org.el @@ -1160,17 +1160,8 @@ their plain link part." (setq item (org-entry-get (point) "ITEM") id (org-id-get-create))) - ;; When item is a link, only use it's description when available; otherwise - ;; use the link part - (save-match-data - (while (string-match org-link-bracket-re item) - (let ((desc (or (match-string-no-properties 2 item) - (match-string-no-properties 1 item)))) - (setq item (concat (substring item 0 (match-beginning 0)) - desc - (substring item (match-end 0))))))) - - (org-link-make-string (format "id:%s" id) item))) + (org-link-make-string (format "id:%s" id) + (org-link-display-format item)))) (defun db/org--format-link-from-org-id (id) "Format ID as an Org mode link [[ID][item-headline]].