From fbbf2f99da8e9b26fe1f957b3f758bb9fc4bbf6e Mon Sep 17 00:00:00 2001 From: Benson Chu Date: Thu, 2 Jan 2020 11:42:56 -0600 Subject: [PATCH] Backwards Compat: Remove tags that match org-agenda-hide-tags-regexp --- org-ql-view.el | 15 ++++++++++----- 1 file changed, 10 insertions(+), 5 deletions(-) diff --git a/org-ql-view.el b/org-ql-view.el index 8d65582..4b3509a 100644 --- a/org-ql-view.el +++ b/org-ql-view.el @@ -937,11 +937,16 @@ return an empty string." (display-warning 'org-ql (format "No marker found for item: %s" title)) (org-element-property :tags element)) (org-element-property :tags element))) - (tag-string (when tag-list - (--> tag-list - (s-join ":" it) - (s-wrap it ":") - (org-add-props it nil 'face 'org-tag)))) + (tags-to-show + (or (and org-agenda-hide-tags-regexp + (--remove (string-match-p org-agenda-hide-tags-regexp it) + tag-list)) + tag-list)) + (tag-string (when tags-to-show + (--> tags-to-show + (s-join ":" it) + (s-wrap it ":") + (org-add-props it nil 'face 'org-tag)))) (category (or (org-element-property :CATEGORY element) (when-let ((marker (or (org-element-property :org-hd-marker element) (org-element-property :org-marker element))))