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

15
org-ql-view.el
View file

@ -685,11 +685,16 @@ return an empty string."
(warn "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))))
(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
(s-join ":" it)
(s-wrap it ":")
(org-add-props it nil 'face 'org-tag))))
;; (category (org-element-property :category element))
(priority-string (-some->> (org-element-property :priority element)
(char-to-string)