mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-09-29 20:37:51 +00:00
Code Releases Activity

org-contacts.el: Add support for org-id generated link.

Browse source 
* contrib/lisp/org-contacts.el (org-contacts-link-store): Use org-id
store link if org-id-link-to-org-use-id is t.
This commit is contained in:
stardiviner 2020-12-17 13:51:45 +08:00
parent e7f625d426
commit 6b83c6e4ea
No known key found for this signature in database
GPG key ID: 1B5DF1C95AE89AC3
1 changed files with 7 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
contrib/lisp/org-contacts.el
View file

@ -1159,11 +1159,13 @@ are effectively trimmed). If nil, all zero-length substrings are retained."
"Store the contact in `org-contacts-files' with a link."
(when (and (eq major-mode 'org-mode)
(member (buffer-file-name) (mapcar 'expand-file-name org-contacts-files)))
(let ((headline-str (substring-no-properties (org-get-heading t t t t))))
(org-store-link-props
:type "org-contact"
:link headline-str
:description headline-str))))
(if org-id-link-to-org-use-id
(org-id-store-link)
(let ((headline-str (substring-no-properties (org-get-heading t t t t))))
(org-store-link-props
:type "org-contact"
:link headline-str
:description headline-str)))))
(defun org-contacts--all-contacts ()
"Return an alist (name . (file . position)) of all contacts in `org-contacts-files'."