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

Remove tags matching `org-agenda-hide-tags' when building agendas

Browse source
This commit is contained in:
Kevin J. Foley 2020-04-23 20:27:54 -04:00
parent f4d7399e67
commit 32cf9d9986
1 changed files with 10 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

7
org-ql-view.el
View file

@ -685,7 +685,12 @@ return an empty string."
(warn "No marker found for item: %s" title) (warn "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 (tag-string (when-let
((tag-list (if (not org-agenda-hide-tags-regexp)
tag-list
(cl-remove-if
(lambda (tag) (string-match-p org-agenda-hide-tags-regexp tag))
tag-list))))
(--> tag-list (--> tag-list
(s-join ":" it) (s-join ":" it)
(s-wrap it ":") (s-wrap it ":")