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

Add: Category column

Browse source
This commit is contained in:
Adam Porter 2022-03-20 19:30:38 -05:00
parent d11edbc132
commit 32ff0d3432
1 changed files with 5 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
taxy-org-ql-view.el
View file

@ -88,6 +88,11 @@ Inherited by level-specific faces.")
(taxy-magit-section-define-column-definer "org-ql-view") (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) (org-ql-view-define-column "Keyword" (:max-width nil :align 'right)
(let ((keyword (or (org-element-property :todo-keyword item) ""))) (let ((keyword (or (org-element-property :todo-keyword item) "")))
(unless (string-empty-p keyword) (unless (string-empty-p keyword)