From fee9e6afbf38db8dcf94763d1e07ca2b35342dea Mon Sep 17 00:00:00 2001 From: Feng Shu Date: Fri, 5 Apr 2013 09:54:06 +0800 Subject: [PATCH 2/3] 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 --- contrib/lisp/org-contacts.el | 6 ++++++ 1 个文件被修改，插入 6 行(+) diff --git a/contrib/lisp/org-contacts.el b/contrib/lisp/org-contacts.el index b85ae2d..5f16d41 100644 --- a/contrib/lisp/org-contacts.el +++ b/contrib/lisp/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) -- 1.7.10.4