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

Add: (org-ql-view--format-element) org-category property

Browse source 
Hopefully this does not cause a noticeable performance impact.  Maybe
the new org-element caching features in Org will help with that.

Fixes #363.

Reported-by: Gabriele Mongiano <https://github.com/kofm>
This commit is contained in:
Adam Porter 2023-12-16 04:40:39 -06:00
parent ace5e361af
commit a31baebc4f
3 changed files with 50 additions and 35 deletions
Download patch file Download diff file Expand all files Collapse all files

11
org-ql-view.el
View file

@ -889,7 +889,15 @@ 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 (or (org-element-property :CATEGORY element)
(when-let ((marker (or (org-element-property :org-hd-marker element)
(org-element-property :org-marker element))))
(org-with-point-at marker
(or (org-get-category)
(when buffer-file-name
(file-name-sans-extension
(file-name-nondirectory buffer-file-name))))))
""))
(priority-string (-some->> (org-element-property :priority element)
(char-to-string)
(format "[#%s]")
@ -909,6 +917,7 @@ return an empty string."
(concat " " it)
(org-add-props it properties
'org-agenda-type 'search
'org-category category
'todo-state todo-keyword
'tags tag-list
'org-habit-p habit-property)))))