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

Include items in workload overview planned before given start date

Browse Source
This commit is contained in:
Daniel Borchmann 2023-05-24 18:59:39 +02:00
parent 242d5cbcba
commit a4712cf155
No known key found for this signature in database
GPG Key ID: 784AA8DF0CCDF625
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -725,9 +725,14 @@ PARAMS is a property list of the following parameters:
;; XXX: this might be slow, try to reduce the calls to ;; XXX: this might be slow, try to reduce the calls to
;; `db/org-planned-tasks-in-range'. ;; `db/org-planned-tasks-in-range'.
(dolist (interval-end-date date-range) (dolist (interval-end-date date-range)
(let ((total-time (car (db/org-planned-tasks-in-range (format-time-string timestamp-format start-date) (let ((total-time (car (db/org-planned-tasks-in-range
(format-time-string timestamp-format interval-end-date) ;; Set start date to nil to also include tasks
org-ql-match)))) ;; scheduled or deadlined before `start-date', as
;; those are also still open and need to be done
;; somewhen.
nil
(format-time-string timestamp-format interval-end-date)
org-ql-match))))
(insert (format "| [%s] | %s |\n" (insert (format "| [%s] | %s |\n"
(format-time-string timestamp-format interval-end-date) (format-time-string timestamp-format interval-end-date)
total-time)))) total-time))))