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

fix: compare with zero

Browse source
This commit is contained in:
Pavel Korytov 2024-11-22 17:59:48 +03:00
parent 89d93bd486
commit 27c54bfb78
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
org-clock-agg.el
View file

@ -717,11 +717,11 @@ TOTAL-TIME and PARENT-TIME are recursive parameters."
(dolist (node tree)
(let ((total (float (alist-get :total (cdr node)))))
(setf (alist-get :parent-share (cdr node))
(if (> 0 parent-time)
(if (< 0 parent-time)
(/ total (float parent-time))
0)
(alist-get :total-share (cdr node))
(if (> 0 total-time)
(if (< 0 total-time)
(/ total (float total-time))
0))
(org-clock-agg--groupby-postaggregate