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

Compare commits

base: exot:96a7f35a9057bb8e2e929fb0916e4f18bf283f27
Branches Tags
exot:master
..
compare: exot:e5bad8b847f9c9106bceb520be6e002440a2ee68
Branches Tags
exot:master

1 Commits
96a7f35a90 ... e5bad8b847

Author SHA1 Message Date
Daniel Borchmann
e5bad8b847
Allow entries in workload report to be sorted 2022-09-10 09:40:32 +02:00
1 changed files with 0 additions and 2 deletions
Show Stats Expand all files Collapse all files

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

@ -475,8 +475,6 @@ understood by `org-read-date'."
(otherwise (user-error ":sort-column value invalid, see docstring of `org-dblock-write:db/org-workload-report' for options")))) (otherwise (user-error ":sort-column value invalid, see docstring of `org-dblock-write:db/org-workload-report' for options"))))
(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)))
(message "foo %s %s" (plist-get params :sort-column) sort-column-count)
(insert "| Task | Effort | Timestamp | SCHEDULED | DEADLINE |\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 | %s | %s | %s |\n" (insert (format "| %s | %s | %s | %s | %s |\n"