From 3739c473acc8210e310c329fdc7bbc2afa604f92 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 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/site-lisp/db-org.el b/site-lisp/db-org.el index 7266681..1da6ac0 100644 --- a/site-lisp/db-org.el +++ b/site-lisp/db-org.el @@ -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