From 9d03f2d95313145b5864a3025210eb0538015b2c Mon Sep 17 00:00:00 2001 From: Daniel Borchmann Date: Thu, 3 Oct 2024 17:30:56 +0200 Subject: [PATCH] Show available work hours in overview report to easy comparison This is also helpful to plausibilize the shown entries, e.g. checking whether holidays were accidentally included. --- site-lisp/db-org.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/site-lisp/db-org.el b/site-lisp/db-org.el index f7674f6..47003cf 100644 --- a/site-lisp/db-org.el +++ b/site-lisp/db-org.el @@ -805,7 +805,7 @@ PARAMS is a property list of the following parameters: (insert (format "#+CAPTION: Workload Overview Report at [%s] with start date [%s]\n" (format-time-string timestamp-format (current-time)) (format-time-string timestamp-format start-date))) - (insert "| End Time | Planned Total | Utilization |\n| | | |\n|---|\n") + (insert "| End Time | Planned Work | Work Hours | Utilization |\n| | | | |\n|---|\n") ;; Compute workload report for each date and record the total time; ;; XXX: this might be slow, try to reduce the calls to `db/org-planned-tasks-in-range'. (let ((days 0)) @@ -821,9 +821,10 @@ PARAMS is a property list of the following parameters: (* (cl-incf days) (org-duration-to-minutes work-hours))) 100))) - (insert (format "| [%s] | %s | %s |\n" + (insert (format "| [%s] | %s | %s | %s |\n" interval-end-date total-time + (org-duration-from-minutes (* days (org-duration-to-minutes work-hours))) (if (<= 80 utilization) ;; When utilization is above 80%, mark entry in bold (format "*%.2f%%*" utilization)