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

15
org-ql-view.el
View file

@ -937,11 +937,16 @@ 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
(s-join ":" it) (--remove (string-match-p org-agenda-hide-tags-regexp it)
(s-wrap it ":") tag-list))
(org-add-props it nil 'face 'org-tag)))) 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) (category (or (org-element-property :CATEGORY element)
(when-let ((marker (or (org-element-property :org-hd-marker element) (when-let ((marker (or (org-element-property :org-hd-marker element)
(org-element-property :org-marker element)))) (org-element-property :org-marker element))))