[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/org-contacts fe1f566f1b: Detect whether Org headline is
From: |
ELPA Syncer |
Subject: |
[elpa] externals/org-contacts fe1f566f1b: Detect whether Org headline is really an org-contacts entry |
Date: |
Wed, 28 Feb 2024 00:58:31 -0500 (EST) |
branch: externals/org-contacts
commit fe1f566f1b5cd0f5a7cf0d6f1c5cac99948d0493
Author: Tom Willemse <tom@ryuslash.org>
Commit: stardiviner <numbchild@gmail.com>
Detect whether Org headline is really an org-contacts entry
---
org-contacts.el | 7 ++++++-
1 file changed, 6 insertions(+), 1 deletion(-)
diff --git a/org-contacts.el b/org-contacts.el
index 18cfa42857..a58a3974ac 100644
--- a/org-contacts.el
+++ b/org-contacts.el
@@ -1300,7 +1300,12 @@ are effectively trimmed). If nil, all zero-length
substrings are retained."
(when (and (eq major-mode 'org-mode)
(member (buffer-file-name)
(mapcar #'expand-file-name (org-contacts-files)))
- (not (org-before-first-heading-p)))
+ (not (org-before-first-heading-p))
+ (let ((element (org-element-at-point)))
+ (funcall (cdr (org-make-tags-matcher org-contacts-matcher))
+ (org-element-property :todo-keyword element)
+ (org-get-tags element)
+ (org-element-property :level element))))
(if (bound-and-true-p org-id-link-to-org-use-id)
(org-id-store-link)
(let ((headline-str (substring-no-properties (org-get-heading t t t t))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/org-contacts fe1f566f1b: Detect whether Org headline is really an org-contacts entry,
ELPA Syncer <=