[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/consult 9ad2b795b5 1/2: consult-org-*: show inherited t
From: |
ELPA Syncer |
Subject: |
[elpa] externals/consult 9ad2b795b5 1/2: consult-org-*: show inherited tags (#767) |
Date: |
Wed, 15 Mar 2023 11:57:39 -0400 (EDT) |
branch: externals/consult
commit 9ad2b795b54931aa956a81296cc9d9134b266212
Author: Alexandru Scvorțov <github@abstractbinary.org>
Commit: GitHub <noreply@github.com>
consult-org-*: show inherited tags (#767)
---
consult-org.el | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/consult-org.el b/consult-org.el
index 6512c34a49..5253730425 100644
--- a/consult-org.el
+++ b/consult-org.el
@@ -67,12 +67,13 @@ MATCH, SCOPE and SKIP are as in `org-map-entries'."
(unless (eq buffer (buffer-name))
(setq buffer (buffer-name)
org-outline-path-cache nil))
- (pcase-let ((`(_ ,level ,todo ,prio ,_hl ,tags)
(org-heading-components))
+ (pcase-let ((`(_ ,level ,todo ,prio ,_hl) (org-heading-components))
+ (tags (org-get-tags))
(cand (org-format-outline-path
(org-get-outline-path 'with-self 'use-cache)
most-positive-fixnum)))
(when tags
- (setq tags (concat " " tags))
+ (setq tags (concat " :" (string-join tags ":") ":"))
(put-text-property 1 (length tags) 'face 'org-tag tags))
(setq cand (if prefix
(concat buffer " " cand tags (consult--tofu-encode
(point)))