exot/.emacs.d
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Include various timestamps in workload report

Browse Source 
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 Borchmann 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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
site-lisp/db-org.el
View File

@ -462,11 +462,20 @@ understood by `org-read-date'."
(org-ql-match (plist-get params :org-ql-match)) (org-ql-match (plist-get params :org-ql-match))
(task-summary (db/org-planned-tasks-in-range start-date end-date 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)) (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) (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))) (insert (format "|---|\n| Total | %s |\n|---|" (car task-summary)))
(org-table-align))) (org-table-align)))