Add: (org-ql-view--format-element) effort properties

Org uses the nested properties within the 'txt' property for effort-related
computations. The contents of 'txt' itself are not used for anything (and is
usually set to a string of the headline), so we do the same here.
This commit is contained in:
Ankit Pandey 2024-02-24 17:54:40 -08:00
parent c9370982bf
commit ae202356b1
2 changed files with 19 additions and 0 deletions

View file

@ -904,6 +904,8 @@ return an empty string."
(file-name-sans-extension
(file-name-nondirectory buffer-file-name))))))
""))
(effort-string (org-element-property (intern (concat ":" (upcase org-effort-property))) element))
(effort (when effort-string (org-duration-to-minutes effort-string)))
(priority-string (-some->> (org-element-property :priority element)
(char-to-string)
(format "[#%s]")
@ -926,6 +928,9 @@ return an empty string."
'org-category category
'todo-state todo-keyword
'tags tag-list
'txt (org-add-props string nil
'effort effort-string
'effort-minutes effort)
'org-habit-p habit-property)))))
(defun org-ql-view--add-faces (element)