branch: externals/org-contacts
commit 2d7db49d661fec9971fe488f8485e75185334f05
Author: stardiviner <numbch...@gmail.com>
Commit: stardiviner <numbch...@gmail.com>

    add new CATEGORIES into vCard export format
---
 org-contacts.el | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/org-contacts.el b/org-contacts.el
index 8c0e815ae5..8f0412702e 100644
--- a/org-contacts.el
+++ b/org-contacts.el
@@ -1322,6 +1322,7 @@ to do our best."
          (bday (org-contacts-vcard-escape (cdr (assoc-string 
org-contacts-birthday-property properties))))
          (addr (cdr (assoc-string org-contacts-address-property properties)))
          (nick (org-contacts-vcard-escape (cdr (assoc-string 
org-contacts-nickname-property properties))))
+         (categories (mapconcat (lambda (str) (concat " " str)) (delq "" 
(string-split (cdr (assoc-string "TAGS" properties)) ":"))))
          (head (format "BEGIN:VCARD\nVERSION:3.0\nN:%s\nFN:%s\n" n name))
          emails-list result phones-list)
     (concat
@@ -1354,6 +1355,7 @@ to do our best."
                  (calendar-extract-month cal-bday)
                  (calendar-extract-day cal-bday))))
      (when nick (format "NICKNAME:%s\n" nick))
+     (when categories (format "CATEGORIES:%s\n" categories))
      (when note (format "NOTE:%s\n" note))
      "END:VCARD\n\n")))
 

Reply via email to