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

Tidy: (org-ql-agenda--format-element)

Browse source
This commit is contained in:
Adam Porter 2019-08-12 20:46:35 -05:00
parent e97d2c0af3
commit 5174aca4e8
1 changed files with 5 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

5
org-ql-agenda.el
View file

@ -377,10 +377,11 @@ 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 (-some--> tag-list (tag-string (when tag-list
(--> tag-list
(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))))
;; (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)