aliens/org-contacts
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

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 5d5faa5e6b
commit cb941d4023
1 changed files with 12 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
org-contacts.el
View file

@ -61,6 +61,11 @@ When set to nil, all your Org files will be used."
:type 'string :type 'string
:group 'org-contacts) :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" (defcustom org-contacts-address-property "ADDRESS"
"Name of the property for contact address." "Name of the property for contact address."
:type 'string :type 'string
@ -839,6 +844,13 @@ to do our best."
result)) result))
(when addr (when addr
(format "ADR:;;%s\n" (replace-regexp-in-string "\\, ?" ";" 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 (when bday
(let ((cal-bday (calendar-gregorian-from-absolute (org-time-string-to-absolute bday)))) (let ((cal-bday (calendar-gregorian-from-absolute (org-time-string-to-absolute bday))))
(format "BDAY:%04d-%02d-%02d\n" (format "BDAY:%04d-%02d-%02d\n"