From 5d5faa5e6bce64b2d45b47e84d20c464528e0067 Mon Sep 17 00:00:00 2001 From: Feng Shu Date: Fri, 5 Apr 2013 09:54:06 +0800 Subject: [PATCH] org-contacts.el, add note property * org-contacts.el (org-contacts-note-property): New varible which add note property (org-contacts-vcard-format): Add the ability exporting note property --- org-contacts.el | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/org-contacts.el b/org-contacts.el index b85ae2d..5f16d41 100644 --- a/org-contacts.el +++ b/org-contacts.el @@ -71,6 +71,11 @@ When set to nil, all your Org files will be used." :type 'string :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)" "Format of the anniversary agenda entry. The following replacements are available: @@ -841,6 +846,7 @@ to do our best." (calendar-extract-month cal-bday) (calendar-extract-day cal-bday)))) (when nick (format "NICKNAME:%s\n" nick)) + (when note (format "NOTE:%s\n" note)) "END:VCARD\n\n"))) (defun org-contacts-export-as-vcard (&optional name file to-buffer)