contrapunctus
/
chronometrist
Archived
1
3
Fork 0
Code Issues 1 Pull Requests Projects Releases Wiki Activity

report - add total time clocked in week field

This commit is contained in:
Kashish Sharma 2018-09-27 19:09:16 +05:30
parent da798a42dd
commit d767f6bcfd
1 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
chronometrist-report.el
View File

@ -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 ##