[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/org 6b83c6e 8/8: org-contacts.el: Add support for org-i
From: |
Stefan Monnier |
Subject: |
[elpa] externals/org 6b83c6e 8/8: org-contacts.el: Add support for org-id generated link. |
Date: |
Thu, 17 Dec 2020 18:39:47 -0500 (EST) |
branch: externals/org
commit 6b83c6e4eaec4af47a90d05c3410d4637d8cb8da
Author: stardiviner <numbchild@gmail.com>
Commit: stardiviner <numbchild@gmail.com>
org-contacts.el: Add support for org-id generated link.
* contrib/lisp/org-contacts.el (org-contacts-link-store): Use org-id
store link if org-id-link-to-org-use-id is t.
---
contrib/lisp/org-contacts.el | 12 +++++++-----
1 file changed, 7 insertions(+), 5 deletions(-)
diff --git a/contrib/lisp/org-contacts.el b/contrib/lisp/org-contacts.el
index 44ba455..fa62cd8 100644
--- a/contrib/lisp/org-contacts.el
+++ b/contrib/lisp/org-contacts.el
@@ -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'."
- [elpa] externals/org updated (b1dc454 -> 6b83c6e), Stefan Monnier, 2020/12/17
- [elpa] externals/org baf1e7a 3/8: ob-gnuplot: Fix error on non-string :var assignment, Stefan Monnier, 2020/12/17
- [elpa] externals/org b9f9283 1/8: Merge branch 'maint', Stefan Monnier, 2020/12/17
- [elpa] externals/org 11d186a 2/8: Fix previous commit, Stefan Monnier, 2020/12/17
- [elpa] externals/org 69760ae 4/8: Merge branch 'maint', Stefan Monnier, 2020/12/17
- [elpa] externals/org 6bdb664 5/8: lisp/ob-haskell.el: Add Lawrence Bottorff as maintainer, Stefan Monnier, 2020/12/17
- [elpa] externals/org 6b83c6e 8/8: org-contacts.el: Add support for org-id generated link.,
Stefan Monnier <=
- [elpa] externals/org e7f625d 7/8: org-contacts.el: Fix org-store-link error caused by org-contacts, Stefan Monnier, 2020/12/17
- [elpa] externals/org de6d902 6/8: org-attach: Consider inlinetasks when calculating attach dir, Stefan Monnier, 2020/12/17