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

Merge 32cf9d9986 into 4f62ba3bd6

Browse source
This commit is contained in:
Kevin Foley 2023-11-11 02:09:26 -07:00 • committed by GitHub
commit 70fa807c70
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
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

@ -884,11 +884,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 (tag-string (when-let
(--> tag-list ((tag-list (if (not org-agenda-hide-tags-regexp)
(s-join ":" it) tag-list
(s-wrap it ":") (cl-remove-if
(org-add-props it nil 'face 'org-tag)))) (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)) ;; (category (org-element-property :category element))
(priority-string (-some->> (org-element-property :priority element) (priority-string (-some->> (org-element-property :priority element)
(char-to-string) (char-to-string)