From 89d93bd486e6e55a45feb09a03fafde1b87ba3bd Mon Sep 17 00:00:00 2001 From: SqrtMinusOne Date: Fri, 22 Nov 2024 17:38:54 +0300 Subject: [PATCH] org-clock-agg: fix divide by zero --- org-clock-agg.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/org-clock-agg.el b/org-clock-agg.el index c92e062..733c8c7 100644 --- a/org-clock-agg.el +++ b/org-clock-agg.el @@ -717,9 +717,13 @@ 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)) - (/ total (float parent-time)) + (if (> 0 parent-time) + (/ total (float parent-time)) + 0) (alist-get :total-share (cdr node)) - (/ total (float total-time))) + (if (> 0 total-time) + (/ total (float total-time)) + 0)) (org-clock-agg--groupby-postaggregate (alist-get :children (cdr node)) total-time