From 496e7a52724a5a29e539912893ff3b94705a6853 Mon Sep 17 00:00:00 2001 From: Christoph Kern Date: Fri, 16 Oct 2020 15:52:35 -0700 Subject: [PATCH] Add org-category property when formatting elements. This allows org-agenda-filter-by-category to work as expected for org-ql-block agendas. --- org-ql-view.el | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/org-ql-view.el b/org-ql-view.el index e571dbf..f6cc8c3 100644 --- a/org-ql-view.el +++ b/org-ql-view.el @@ -875,7 +875,11 @@ return an empty string." (s-join ":" it) (s-wrap it ":") (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) (char-to-string) (format "[#%s]") @@ -896,6 +900,7 @@ return an empty string." 'org-agenda-type 'search 'todo-state todo-keyword 'tags tag-list + 'org-category category 'org-habit-p habit-property))))) (defun org-ql-view--add-faces (element)