From 88a0d850069e4786d3e11569aba9806c18189f1e Mon Sep 17 00:00:00 2001 From: Daniel Borchmann Date: Wed, 7 Sep 2022 17:41:09 +0200 Subject: [PATCH] Handle unset efforts in workload report --- site-lisp/db-org.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/site-lisp/db-org.el b/site-lisp/db-org.el index 57d1541..45c994f 100644 --- a/site-lisp/db-org.el +++ b/site-lisp/db-org.el @@ -406,7 +406,11 @@ entries." (deadline :from ,start-date :to ,end-date) (ts-active :from ,start-date :to ,end-date))))) (total-time (->> tasks - (-map (-compose #'org-duration-to-minutes #'cdr)) + (-map #'(lambda (task) + (let ((effort (cdr task))) + (if (null effort) + 0 + (org-duration-to-minutes effort))))) -sum org-duration-from-minutes))) (cons total-time tasks))) @@ -437,7 +441,7 @@ understood by `org-read-date'." (org-link-make-string (format "id:%s" task-id) (org-entry-get (org-id-find task-id 'marker) "ITEM")) - effort-string))) + (or effort-string "")))) (insert (format "|---|\n| Total | %s |\n|---|" (car task-summary))) (org-table-align)))