Include various timestamps in workload report

This should make it easier to decide which entries could be moved in case too
much work is planned for the upcoming days.
This commit is contained in:
Daniel - 2022-09-10 09:25:37 +02:00
parent cbd088977e
commit 735570d7c0
No known key found for this signature in database
GPG Key ID: 784AA8DF0CCDF625
1 changed files with 12 additions and 3 deletions

View File

@ -462,11 +462,20 @@ understood by `org-read-date'."
(org-ql-match (plist-get params :org-ql-match))
(task-summary (db/org-planned-tasks-in-range start-date end-date org-ql-match)))
(insert "| Task | Effort |\n|---|\n")
(insert "| Task | Effort | Timestamp | SCHEDULED | DEADLINE |\n|---|\n")
(pcase-dolist (`(,task-id . ,effort-string) (cdr task-summary))
(insert (format "| %s | %s |\n"
(insert (format "| %s | %s | %s | %s | %s |\n"
(db/org--format-link-from-org-id task-id)
(or effort-string ""))))
(or effort-string "")
(or (org-entry-get (org-id-find task-id 'marker)
"TIMESTAMP")
"not set")
(or (org-entry-get (org-id-find task-id 'marker)
"SCHEDULED")
"not set")
(or (org-entry-get (org-id-find task-id 'marker)
"DEADLINE")
"not set"))))
(insert (format "|---|\n| Total | %s |\n|---|" (car task-summary)))
(org-table-align)))