From 7169a6b83e809c937895fc19837129fb6efabede Mon Sep 17 00:00:00 2001 From: Daniel Borchmann Date: Fri, 7 Oct 2022 15:45:53 +0200 Subject: [PATCH] Allow general org-read-date syntax in workload overview report This is already allowed by the docstring, but now also supported by calling `org-read-date` on the original inputs (if given). --- site-lisp/db-org.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/site-lisp/db-org.el b/site-lisp/db-org.el index c0519fb..80e5d2c 100644 --- a/site-lisp/db-org.el +++ b/site-lisp/db-org.el @@ -553,10 +553,12 @@ PARAMS is a property list of the following parameters: `org-ql' expression (in sexp syntax) to filter the list of tasks to consider. Defaults to (todo)." - (let* ((start-date (or (plist-get params :start-date) + (let* ((start-date (or (--if-let (plist-get params :start-date) + (org-read-date nil nil it)) nil)) - (end-date (or (plist-get params :end-date) - (user-error "No end-date provided"))) + (end-date (or (--if-let (plist-get params :end-date) + (org-read-date nil nil it)) + (user-error "No valid end-date provided"))) (increment (or (plist-get params :increment) "+1d")) (org-ql-match (or (plist-get params :org-ql-match)