[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/org-contacts 9fdcb5e968 1/2: Use older compatible API f
From: |
ELPA Syncer |
Subject: |
[elpa] externals/org-contacts 9fdcb5e968 1/2: Use older compatible API function `org-entry-get` to replace egde new `org-entry-get-multivalued-property` |
Date: |
Tue, 21 May 2024 03:58:27 -0400 (EDT) |
branch: externals/org-contacts
commit 9fdcb5e968ad8118de02618967370f1cd40b0e14
Author: stardiviner <numbchild@gmail.com>
Commit: stardiviner <numbchild@gmail.com>
Use older compatible API function `org-entry-get` to replace egde new
`org-entry-get-multivalued-property`
---
org-contacts.el | 10 +++++-----
1 file changed, 5 insertions(+), 5 deletions(-)
diff --git a/org-contacts.el b/org-contacts.el
index ce5bd7f859..666b1a19af 100644
--- a/org-contacts.el
+++ b/org-contacts.el
@@ -866,7 +866,7 @@ This can be property key checking."
(properties (org-entry-properties headline 'standard))
;; extra headline properties
(avatar-image-path
- (when-let* ((avatar-value (car (org-entry-get-multivalued-property
headline "AVATAR")))
+ (when-let* ((avatar-value (org-entry-get headline "AVATAR"))
(avatar-link-path (cond
;; [[file:contact_dir/avatar.png]]
((string-match org-link-plain-re
avatar-value)
@@ -884,10 +884,10 @@ This can be property key checking."
avatar-absolute-path))
(info (concat "\n"
(concat org-contacts-ahead-space-padding " ")
- (string-join (let ((org-property-separators (list (cons
org-contacts-nickname-property "[,\ ]"))))
- (org-entry-get-multivalued-property
headline org-contacts-nickname-property)) ", ")
- (string-join (let ((org-property-separators (list (cons
org-contacts-email-property "[,\ ]"))))
- (org-entry-get-multivalued-property
headline org-contacts-email-property)) ", ")
+ (let ((org-property-separators (list (cons
org-contacts-nickname-property "[,\ ]"))))
+ (org-entry-get headline
org-contacts-nickname-property))
+ (let ((org-property-separators (list (cons
org-contacts-email-property "[,\ ]"))))
+ (org-entry-get headline org-contacts-email-property))
"\n"))
(middle-line-length (when-let* ((length (- (- org-tags-column)
(length (string-join tags
":"))