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

org-contacts.el, add note property

Browse source 
* org-contacts.el (org-contacts-note-property): New varible which add  note property
  (org-contacts-vcard-format): Add the ability  exporting  note property
This commit is contained in:
Feng Shu 2013-04-05 09:54:06 +08:00 committed by Bastien Guerry
parent 58afa03d8c
commit 5d5faa5e6b
1 changed files with 6 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
org-contacts.el
View file

@ -71,6 +71,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-note-property "NOTE"
"Name of the property for contact note."
:type 'string
:group 'org-contacts)
(defcustom org-contacts-birthday-format "Birthday: %l (%Y)" (defcustom org-contacts-birthday-format "Birthday: %l (%Y)"
"Format of the anniversary agenda entry. "Format of the anniversary agenda entry.
The following replacements are available: The following replacements are available:
@ -841,6 +846,7 @@ to do our best."
(calendar-extract-month cal-bday) (calendar-extract-month cal-bday)
(calendar-extract-day cal-bday)))) (calendar-extract-day cal-bday))))
(when nick (format "NICKNAME:%s\n" nick)) (when nick (format "NICKNAME:%s\n" nick))
(when note (format "NOTE:%s\n" note))
"END:VCARD\n\n"))) "END:VCARD\n\n")))
(defun org-contacts-export-as-vcard (&optional name file to-buffer) (defun org-contacts-export-as-vcard (&optional name file to-buffer)