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:
parent
cbd088977e
commit
735570d7c0
|
@ -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)))
|
||||
|
||||
|
|
Loading…
Reference in New Issue