From 32ff0d34323a750778a9e7ed3c4a5893705d71bd Mon Sep 17 00:00:00 2001 From: Adam Porter Date: Sun, 20 Mar 2022 19:30:38 -0500 Subject: [PATCH] Add: Category column --- taxy-org-ql-view.el | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/taxy-org-ql-view.el b/taxy-org-ql-view.el index 2862c30..5fe03be 100644 --- a/taxy-org-ql-view.el +++ b/taxy-org-ql-view.el @@ -88,6 +88,11 @@ Inherited by level-specific faces.") (taxy-magit-section-define-column-definer "org-ql-view") +(org-ql-view-define-column "Category" (:max-width nil :align 'right) + (or (org-with-point-at (org-element-property :org-hd-marker item) + (org-get-category (point))) + "")) + (org-ql-view-define-column "Keyword" (:max-width nil :align 'right) (let ((keyword (or (org-element-property :todo-keyword item) ""))) (unless (string-empty-p keyword)