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:
parent
047627c6ac
commit
7169a6b83e
|
@ -553,10 +553,12 @@ PARAMS is a property list of the following parameters:
|
||||||
|
|
||||||
`org-ql' expression (in sexp syntax) to filter the list of
|
`org-ql' expression (in sexp syntax) to filter the list of
|
||||||
tasks to consider. Defaults to (todo)."
|
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))
|
nil))
|
||||||
(end-date (or (plist-get params :end-date)
|
(end-date (or (--if-let (plist-get params :end-date)
|
||||||
(user-error "No end-date provided")))
|
(org-read-date nil nil it))
|
||||||
|
(user-error "No valid end-date provided")))
|
||||||
(increment (or (plist-get params :increment)
|
(increment (or (plist-get params :increment)
|
||||||
"+1d"))
|
"+1d"))
|
||||||
(org-ql-match (or (plist-get params :org-ql-match)
|
(org-ql-match (or (plist-get params :org-ql-match)
|
||||||
|
|
Loading…
Reference in New Issue
Block a user