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

Add org-category property when formatting elements.

Browse source 
This allows org-agenda-filter-by-category to work as expected for
org-ql-block agendas.
This commit is contained in:
Christoph Kern 2020-10-16 15:52:35 -07:00 • committed by Christoph Kern
parent 31aeb0a250
commit 496e7a5272
1 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

7
org-ql-view.el
View file

@ -875,7 +875,11 @@ return an empty string."
(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 (if-let ((marker (or (org-element-property :org-hd-marker element)
(org-element-property :org-marker element))))
(with-current-buffer (marker-buffer marker)
(org-get-category marker))
(warn "No marker found for item: %s" title)))
(priority-string (-some->> (org-element-property :priority element) (priority-string (-some->> (org-element-property :priority element)
(char-to-string) (char-to-string)
(format "[#%s]") (format "[#%s]")
@ -896,6 +900,7 @@ return an empty string."
'org-agenda-type 'search 'org-agenda-type 'search
'todo-state todo-keyword 'todo-state todo-keyword
'tags tag-list 'tags tag-list
'org-category category
'org-habit-p habit-property))))) 'org-habit-p habit-property)))))
(defun org-ql-view--add-faces (element) (defun org-ql-view--add-faces (element)