From 2423dcf6cdc310daf0425594b364546acaf33095 Mon Sep 17 00:00:00 2001 From: Daniel Borchmann Date: Wed, 11 Jan 2023 21:08:24 +0100 Subject: [PATCH] Fix start date in workload overview report to midnight This is the expected behavior: when no start date is given, it should default to today (the whole day), and not exactly now, so that day increments do not start in the mid of the day, yielding misleading results. --- site-lisp/db-org.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/site-lisp/db-org.el b/site-lisp/db-org.el index 7266681..ee79a9c 100644 --- a/site-lisp/db-org.el +++ b/site-lisp/db-org.el @@ -545,7 +545,7 @@ PARAMS is a property list of the following parameters: `:start-date': Start date for the workload report. When not provided, will - default to no start date. When provided, must be in a format + default to today at 00:00. When provided, must be in a format understood by `org-read-date'. `:end-date': @@ -575,7 +575,7 @@ PARAMS is a property list of the following parameters: (org-ql-match (or (plist-get params :org-ql-match) '(todo))) (current (or start-date - (org-read-date nil nil "."))) + (org-read-date nil nil ". 00:00"))) (date-range nil)) ;; Check input