From d767f6bcfdf553b3d9202a03c5f0189940409f0c Mon Sep 17 00:00:00 2001 From: Kashish Sharma Date: Thu, 27 Sep 2018 19:09:16 +0530 Subject: [PATCH] report - add total time clocked in week field --- chronometrist-report.el | 16 +++++++++++----- 1 file changed, 11 insertions(+), 5 deletions(-) diff --git a/chronometrist-report.el b/chronometrist-report.el index ef4c310..f75b556 100644 --- a/chronometrist-report.el +++ b/chronometrist-report.el @@ -190,11 +190,17 @@ FORMAT-STRING." (insert "\n") (goto-char (point-max)) (insert w (format "%- 21s" "Total")) - (->> chronometrist-report--ui-week-dates - (mapcar #'chronometrist-total-time-one-day) - (mapcar #'chronometrist-format-time) - (--map (format "% 9s " it)) - (apply #'insert)) + (let ((total-time-daily (->> chronometrist-report--ui-week-dates + (mapcar #'chronometrist-total-time-one-day)))) + (->> total-time-daily + (mapcar #'chronometrist-format-time) + (--map (format "% 9s " it)) + (apply #'insert)) + (->> total-time-daily + (-reduce #'chronometrist-time-add) + (chronometrist-format-time) + (format "% 13s") + (insert))) (insert "\n" w "l - open log file"))) ;; ## MAJOR MODE ##