[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/org-contacts 038a608e79 119/154: Fix AVATAR property va
From: |
ELPA Syncer |
Subject: |
[elpa] externals/org-contacts 038a608e79 119/154: Fix AVATAR property value not exist problem |
Date: |
Fri, 9 Sep 2022 15:58:53 -0400 (EDT) |
branch: externals/org-contacts
commit 038a608e795d0a0a308f85333a9cf4d8d32de69e
Author: stardiviner <numbchild@gmail.com>
Commit: stardiviner <numbchild@gmail.com>
Fix AVATAR property value not exist problem
---
org-contacts.el | 22 +++++++++++-----------
1 file changed, 11 insertions(+), 11 deletions(-)
diff --git a/org-contacts.el b/org-contacts.el
index 022e750988..7202730598 100644
--- a/org-contacts.el
+++ b/org-contacts.el
@@ -898,17 +898,17 @@ address."
(setq pom (or pom (point)))
(catch 'icon
;; Use `org-contacts-icon-property'
- (let ((image-path (let ((avatar (org-entry-get pom
org-contacts-icon-property))
- (link-matcher-regexp
"\\[\\[\\([^]]*\\)\\]\\(\\[\\(.*\\)\\]\\)?\\]"))
- (cond
- ;; [[file:dir/filename.png]]
- ((string-match-p "\\[\\[.*\\]\\]" avatar)
- (when (string-match link-matcher-regexp avatar)
- (expand-file-name (substring
(match-string-no-properties 1 avatar) 5 nil)
- (file-name-directory (first
org-contacts-files)))))
- ;; "" (empty string)
- ((string-empty-p avatar) nil)
- (t (expand-file-name avatar (file-name-directory
(first org-contacts-files))))))))
+ (let ((image-path (if-let ((avatar (org-entry-get pom
org-contacts-icon-property))
+ (link-matcher-regexp
"\\[\\[\\([^]]*\\)\\]\\(\\[\\(.*\\)\\]\\)?\\]"))
+ (cond
+ ;; [[file:dir/filename.png]]
+ ((string-match-p "\\[\\[.*\\]\\]" avatar)
+ (when (string-match link-matcher-regexp avatar)
+ (expand-file-name (substring
(match-string-no-properties 1 avatar) 5 nil)
+ (file-name-directory (first
org-contacts-files)))))
+ ;; "" (empty string)
+ ((string-empty-p avatar) nil)
+ (t (expand-file-name avatar (file-name-directory
(first org-contacts-files))))))))
(when image-path
(throw 'icon
(if (featurep 'imagemagick)
- [elpa] externals/org-contacts 2ec03e18b8 086/154: org-contacts: Fix org-contacts-matcher for BIRTHDAYs, (continued)
- [elpa] externals/org-contacts 2ec03e18b8 086/154: org-contacts: Fix org-contacts-matcher for BIRTHDAYs, ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts 33c5e0582c 085/154: contrib: move a few libraries to cl-lib in place of compile-time cl., ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts 27bec00a60 089/154: org-agenda: Remove unnecessary visibility modification, ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts f07048b75d 092/154: Use `string-match-p' instead of `org-string-match-p', ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts 4e3f139857 095/154: Fix function declarations, ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts eedaff3498 103/154: org-contacts.el: Only use org-id-store-link if org-id is loaded, ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts 4540f987ec 111/154: Clean up some more headers, ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts c98281fcfe 113/154: Remove compatibility code, ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts c1d2b6dfbc 122/154: prototype of org-contacts contact complete, ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts 1991ef0ecd 106/154: Fix typo in 304fd01fe, ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts 038a608e79 119/154: Fix AVATAR property value not exist problem,
ELPA Syncer <=
- [elpa] externals/org-contacts abe24d6f34 137/154: Display company-mode doc buffer bellow current window, ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts 18d4945fcc 132/154: Fix company-mode `company-show-location' support, ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts e52d4eed74 148/154: Drop the "v" prefix in "gnus" version., ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts a9b2eef66f 038/154: org-contacts.el: Check if the database need a refresh in a dedicated function, ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts 938ca34558 019/154: Add missing word to org-contacts y-or-n-p question, ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts 010b2ec38a 029/154: org-contacts.el (org-contacts-format-name): New function, ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts 50d8ec9752 031/154: Improve `completion-at-point' for `org-contacts.el' in mail, ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts b34f505d38 042/154: contrib/lisp/org-contacts.el (org-contacts-complete-name): Prevent an error when there is no completion available, ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts 7fcd20bcff 025/154: contrib/lisp/org-contacts.el: Docstring fixes and small code clean up, ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts cb941d4023 052/154: org-contacts.el, add tel property, ELPA Syncer, 2022/09/09