[elpa] externals/consult bd6fc14dac: consult-org-heading: Add tags (Fix #620)

[ELPA Syncer]

branch: externals/consult
commit bd6fc14dac3943a0ea2b7d02d5abb0a841d29698
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    consult-org-heading: Add tags (Fix #620)
---
 CHANGELOG.org  | 1 +
 consult-org.el | 8 +++++---
 2 files changed, 6 insertions(+), 3 deletions(-)

diff --git a/CHANGELOG.org b/CHANGELOG.org
index ca690ce257..0b387f42fc 100644
--- a/CHANGELOG.org
+++ b/CHANGELOG.org
@@ -9,6 +9,7 @@
 - Remove deprecated =consult-completing-read-multiple=
 - =consult-grep/git-grep/ripgrep=: Add =--fixed-strings= support
 - =consult-grep=: Respect =grep-find-ignored-directories/files=
+- =consult-org-heading=: Add tags to completion candidates
 
 * Version 0.18 (2022-05-25)
 
diff --git a/consult-org.el b/consult-org.el
index 3f2f54501d..9f4dd438bd 100644
--- a/consult-org.el
+++ b/consult-org.el
@@ -67,13 +67,15 @@ 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 . _) (org-heading-components))
+       (pcase-let ((`(_ ,level ,todo ,prio ,_hl ,tags) 
(org-heading-components))
                    (cand (org-format-outline-path
                           (org-get-outline-path 'with-self 'use-cache)
                           most-positive-fixnum)))
+         (when tags
+           (setq tags (concat " " (propertize tags 'face 'org-tag))))
          (setq cand (if prefix
-                        (concat buffer " " cand (consult--tofu-encode (point)))
-                      (concat cand (consult--tofu-encode (point)))))
+                        (concat buffer " " cand tags (consult--tofu-encode 
(point)))
+                      (concat cand tags (consult--tofu-encode (point)))))
          (add-text-properties 0 1
                               `(consult--candidate ,(point-marker)
                                 consult-org--heading (,level ,todo . ,prio))