[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/org-contacts cb941d4023 052/154: org-contacts.el, add t
From: |
ELPA Syncer |
Subject: |
[elpa] externals/org-contacts cb941d4023 052/154: org-contacts.el, add tel property |
Date: |
Fri, 9 Sep 2022 15:58:25 -0400 (EDT) |
branch: externals/org-contacts
commit cb941d402362c3a4bf823f44c9c1bca42a91a420
Author: Feng Shu <tumashu@gmail.com>
Commit: Bastien Guerry <bzg@altern.org>
org-contacts.el, add tel property
* org-contacts.el (org-contacts-tel-property): New variable,
add tel property
(org-contacts-vcard-format): Add the ability exporting tel property
---
org-contacts.el | 12 ++++++++++++
1 file changed, 12 insertions(+)
diff --git a/org-contacts.el b/org-contacts.el
index 5f16d41d7d..8172c8082d 100644
--- a/org-contacts.el
+++ b/org-contacts.el
@@ -61,6 +61,11 @@ When set to nil, all your Org files will be used."
:type 'string
:group 'org-contacts)
+(defcustom org-contacts-tel-property "PHONE"
+ "Name of the property for contact phone number."
+ :type 'string
+ :group 'org-contacts)
+
(defcustom org-contacts-address-property "ADDRESS"
"Name of the property for contact address."
:type 'string
@@ -839,6 +844,13 @@ to do our best."
result))
(when addr
(format "ADR:;;%s\n" (replace-regexp-in-string "\\, ?" ";" addr)))
+ (when tel (progn
+ (setq phones-list (split-string tel "[,;: ]+"))
+ (setq result "")
+ (while phones-list
+ (setq result (concat result "TEL:" (car phones-list)
"\n"))
+ (setq phones-list (cdr phones-list)))
+ result))
(when bday
(let ((cal-bday (calendar-gregorian-from-absolute
(org-time-string-to-absolute bday))))
(format "BDAY:%04d-%02d-%02d\n"
- [elpa] externals/org-contacts 038a608e79 119/154: Fix AVATAR property value not exist problem, (continued)
- [elpa] externals/org-contacts 038a608e79 119/154: Fix AVATAR property value not exist problem, ELPA Syncer, 2022/09/09
- [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 <=
- [elpa] externals/org-contacts 68a0286a8f 056/154: org-contacts.el, add name alias property., ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts 6f1a63da03 067/154: org-contacts: Provide ordering when using cycle completion, ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts bb08fb96ab 071/154: Update copyright years., ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts 8829fb451a 073/154: Revert "Update copyright years.", ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts c32dbab114 081/154: contrib/lisp/org-contacts.el: Allow the user to customize interactively the vcard export, ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts 3fa42fb53f 084/154: Remove some home-grown copies of cl-lib functions., ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts 75021a1fc2 080/154: contrib/lisp/org-contacts.el: Fix a bug when contacts don't have an email address, ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts 0ec6917ed8 091/154: Deprecate `org-no-warnings' in favor of `with-no-warnings', ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts 304fd01fe3 101/154: org-contacts.el: Add usage comments, ELPA Syncer, 2022/09/09
- [elpa] externals/org-contacts c8ceb5290e 099/154: org-contacts.el: Add support for org-id generated link., ELPA Syncer, 2022/09/09