jiri/org-ql
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Backwards Compat: Remove tags that match org-agenda-hide-tags-regexp

Browse source
This commit is contained in:
Benson Chu 2020-01-02 11:42:56 -06:00
parent 98c62ab0a6
commit fbbf2f99da
1 changed files with 10 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

9
org-ql-view.el
View file

@ -937,8 +937,13 @@ return an empty string."
(display-warning 'org-ql (format "No marker found for item: %s" title)) (display-warning 'org-ql (format "No marker found for item: %s" title))
(org-element-property :tags element)) (org-element-property :tags element))
(org-element-property :tags element))) (org-element-property :tags element)))
(tag-string (when tag-list (tags-to-show
(--> tag-list (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-join ":" it)
(s-wrap it ":") (s-wrap it ":")
(org-add-props it nil 'face 'org-tag)))) (org-add-props it nil 'face 'org-tag))))