[elpa] externals/org-contacts 2ec03e18b8 086/154: org-contacts: Fix org-contacts-matcher for BIRTHDAYs

[ELPA Syncer]

branch: externals/org-contacts
commit 2ec03e18b827fcc9753a4fe89ecd51e280693fc3
Author: Jan Malakhovski <oxij@oxij.org>
Commit: Nicolas Goaziou <mail@nicolasgoaziou.fr>

    org-contacts: Fix org-contacts-matcher for BIRTHDAYs
    
    * contrib/lisp/org-contacts.el (org-contacts-matcher): Fix expression to
      work for BIRTHDAY-only contacts.
---
 org-contacts.el | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

diff --git a/org-contacts.el b/org-contacts.el
index ebc7bcd138..500128337c 100644
--- a/org-contacts.el
+++ b/org-contacts.el
@@ -159,12 +159,14 @@ The following replacements are available:
   :group 'org-contacts)
 
 (defcustom org-contacts-matcher
-  (mapconcat 'identity (list org-contacts-email-property
-                            org-contacts-alias-property
-                            org-contacts-tel-property
-                            org-contacts-address-property
-                            org-contacts-birthday-property)
-                            "<>\"\"|")
+  (mapconcat #'identity
+            (mapcar (lambda (x) (concat x "<>\"\""))
+                    (list org-contacts-email-property
+                          org-contacts-alias-property
+                          org-contacts-tel-property
+                          org-contacts-address-property
+                          org-contacts-birthday-property))
+            "|")
   "Matching rule for finding heading that are contacts.
 This can be a tag name, or a property check."
   :type 'string