branch: scratch/org-contacts-rebased
commit f46131efadc4f18d9ac5b5cb89b9ed2b81eaa7e7
Author: Bastien Guerry <b...@altern.org>
Commit: Bastien Guerry <b...@altern.org>
org-contacts.el (org-contacts-matcher): Better matcher
* contrib/lisp/org-contacts.el (org-contacts-matcher): Better matcher.
Thanks to Simon Thum for suggesting this.
---
org-contacts.el | 7 ++++++-
1 file changed, 6 insertions(+), 1 deletion(-)
diff --git a/org-contacts.el b/org-contacts.el
index 534372f..f529014 100644
--- a/org-contacts.el
+++ b/org-contacts.el
@@ -127,7 +127,12 @@ The following replacements are available:
:type 'string
:group 'org-contacts)
-(defcustom org-contacts-matcher (concat org-contacts-email-property "<>\"\"")
+(defcustom org-contacts-matcher
+ (mapconcat 'identity (list org-contacts-email-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
