[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] scratch/org-contacts-rebased f07f259 049/118: org-contacts.el, ad
From: |
Stefan Monnier |
Subject: |
[elpa] scratch/org-contacts-rebased f07f259 049/118: org-contacts.el, add tel property |
Date: |
Fri, 12 Nov 2021 15:37:02 -0500 (EST) |
branch: scratch/org-contacts-rebased
commit f07f259abd033b0910de712b79794a85cd94c3ef
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 5f16d41..8172c80 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] scratch/org-contacts-rebased 543f2c5 045/118: contrib/lisp/org-contacts.el: Remove calls to cl functions, (continued)
- [elpa] scratch/org-contacts-rebased 543f2c5 045/118: contrib/lisp/org-contacts.el: Remove calls to cl functions, Stefan Monnier, 2021/11/12
- [elpa] scratch/org-contacts-rebased d7412d5 054/118: contrib/lisp/org-contacts: Fix two typos in comments, Stefan Monnier, 2021/11/12
- [elpa] scratch/org-contacts-rebased 2f0d7e9 002/118: org-contacts: make Gnus usage optional, Stefan Monnier, 2021/11/12
- [elpa] scratch/org-contacts-rebased ad7f57a 023/118: Fix error messages: don't use a dot at the end, Stefan Monnier, 2021/11/12
- [elpa] scratch/org-contacts-rebased 5526110 018/118: Merge branch 'origin-maint', Stefan Monnier, 2021/11/12
- [elpa] scratch/org-contacts-rebased 68918fc 034/118: org-contacts: Fix Agenda format., Stefan Monnier, 2021/11/12
- [elpa] scratch/org-contacts-rebased 85b506b 031/118: contrib/lisp/org-contacts.el: Delete trailing whitespaces, Stefan Monnier, 2021/11/12
- [elpa] scratch/org-contacts-rebased 30a76d5 038/118: org-contacts.el: Rename a function to follow emacs-lisp coding conventions, Stefan Monnier, 2021/11/12
- [elpa] scratch/org-contacts-rebased 57a9545 041/118: contrib/lisp/org-contacts.el: Fix compiler warnings., Stefan Monnier, 2021/11/12
- [elpa] scratch/org-contacts-rebased f4f5ff3 050/118: org-contacts.el (org-contacts-export-as-vcard): Don't use non-existent function `org-install-letbind', Stefan Monnier, 2021/11/12
- [elpa] scratch/org-contacts-rebased f07f259 049/118: org-contacts.el, add tel property,
Stefan Monnier <=
- [elpa] scratch/org-contacts-rebased 7f9ad6a 059/118: contrib/lisp/org-contacts.el: Permit to unload properly `org-contacts', Stefan Monnier, 2021/11/12
- [elpa] scratch/org-contacts-rebased c71bbd2 060/118: contrib/lisp/org-contacts.el (org-contacts-vcard-format): Silence byte-compiler, Stefan Monnier, 2021/11/12
- [elpa] scratch/org-contacts-rebased f259246 063/118: contrib/lisp/org-contacts.el: Add a complex org-contacts template to the file header, Stefan Monnier, 2021/11/12
- [elpa] scratch/org-contacts-rebased dbe6325 065/118: org-contacts: Ensure contacts cache is updated if it contains markers with no buffer, Stefan Monnier, 2021/11/12
- [elpa] scratch/org-contacts-rebased f62bfeb 066/118: org-contacts: use `org-' prefixed variants of cl functions, Stefan Monnier, 2021/11/12
- [elpa] scratch/org-contacts-rebased 13d35c9 072/118: Update copyright years again., Stefan Monnier, 2021/11/12
- [elpa] scratch/org-contacts-rebased b970428 091/118: Rationalize `org-link-(un)escape', Stefan Monnier, 2021/11/12
- [elpa] scratch/org-contacts-rebased 5a2519c 048/118: org-contacts.el, add note property, Stefan Monnier, 2021/11/12
- [elpa] scratch/org-contacts-rebased 9dec69a 056/118: contrib/lisp/org-contacts: Introduce the constant `org-contacts-property-values-separators', Stefan Monnier, 2021/11/12
- [elpa] scratch/org-contacts-rebased 5e67fd8 068/118: Update copyright years., Stefan Monnier, 2021/11/12