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

Include deadlines in agenda time grid effort summary

Browse Source 
When deadlines are listed on the time grid because they are due, their effort
should also be considered in the effort summary, shouldn't it?
This commit is contained in:
Daniel Borchmann 2022-09-23 15:47:45 +02:00
parent 9b1e12a94c
commit befcf95d1f
No known key found for this signature in database
GPG Key ID: 784AA8DF0CCDF625
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -193,12 +193,14 @@ _y_: ?y? year _q_: quit _L__l__c_: ?l?
(defun db/org-agenda-calculate-efforts (limit) (defun db/org-agenda-calculate-efforts (limit)
"Sum efforts of day entries up to LIMIT in the agenda buffer. "Sum efforts of day entries up to LIMIT in the agenda buffer.
Entries included are those scheduled for that day, scheduled at Entries included are those scheduled for that day, scheduled at
some past day (and still on display) and active timestamps (appointments)." some past day (and still on display), active
timestamps (appointments), and deadlines (assuming they are only
shown because they are due)."
(let (total) (let (total)
(save-excursion (save-excursion
(while (< (point) limit) (while (< (point) limit)
(when (member (org-get-at-bol 'type) (when (member (org-get-at-bol 'type)
'("scheduled" "past-scheduled" "timestamp")) '("scheduled" "past-scheduled" "timestamp" "deadline"))
(push (org-entry-get (org-get-at-bol 'org-hd-marker) "Effort") total)) (push (org-entry-get (org-get-at-bol 'org-hd-marker) "Effort") total))
(forward-line))) (forward-line)))
(org-duration-from-minutes (org-duration-from-minutes