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

Use Org builtin function to format links in strings

Browse Source
This commit is contained in:
Daniel Borchmann 2022-10-29 10:17:28 +02:00
parent 43d9049307
commit c9dcc7778e
No known key found for this signature in database
GPG Key ID: 784AA8DF0CCDF625
1 changed files with 2 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -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]].