sqrtminusone/org-clock-agg
1
0
Fork 0
mirror of https://github.com/SqrtMinusOne/org-clock-agg.git synced 2025-12-10 22:03:03 +03:00
Code Issues Projects Releases Packages Wiki Activity Actions

org-clock-agg: fix error when todo-keyword is iul

Browse source
This commit is contained in:
Pavel Korytov 2024-07-13 20:54:26 +03:00
parent 2657e396e0
commit 3b5150cdc2
1 changed files with 4 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
org-clock-agg.el
View file

@ -1072,12 +1072,11 @@ NODE is one node of a tree, which is described in the function
(?d . ,(org-duration-from-minutes (?d . ,(org-duration-from-minutes
(/ (alist-get :duration elem) 60))) (/ (alist-get :duration elem) 60)))
(?t . ,(concat (?t . ,(concat
(when-let ((todo-keyword (substring-no-properties (when-let ((todo-keyword
(org-element-property (org-element-property
:todo-keyword :todo-keyword (alist-get :headline elem))))
(alist-get :headline elem)))))
(propertize (propertize
(concat todo-keyword " ") 'face (concat (substring-no-properties todo-keyword) " ") 'face
(if (eq (org-element-property (if (eq (org-element-property
:todo-type (alist-get :headline elem)) :todo-type (alist-get :headline elem))
'done) 'done)