mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-22 07:09:47 +00:00
Code

org-contacts.el, add tel property

Browse Source 
* org-contacts.el (org-contacts-tel-property): New variable,
  add tel property
  (org-contacts-vcard-format): Add the ability exporting tel property
This commit is contained in:
Feng Shu 2013-04-05 09:59:55 +08:00 committed by Bastien Guerry
parent 61fab323ec
commit bf55024ce0
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
contrib/lisp/org-contacts.el
View File

@ -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"