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).
This commit is contained in:
Daniel - 2022-10-07 15:45:53 +02:00
parent 047627c6ac
commit 7169a6b83e
No known key found for this signature in database
GPG Key ID: 784AA8DF0CCDF625
1 changed files with 5 additions and 3 deletions

View File

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