branch: scratch/org-contacts-rebased
commit 45bc95acf0dd7a31a4eef7b9336f119742611bff
Author: Jan Malakhovski <[email protected]>
Commit: Nicolas Goaziou <[email protected]>
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 ebc7bcd..5001283 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
