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:
parent
c9370982bf
commit
ae202356b1
2 changed files with 19 additions and 0 deletions
|
|
@ -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)
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue