Browse Source

Include timestamps in org agenda effort summation

Those correspond to fix appointments.
master
Daniel Borchmann 1 year ago
parent
commit
7582c2065e
No known key found for this signature in database
GPG Key ID: 1C7071A75BB72D64
  1. 3
      site-lisp/db-org.el

3
site-lisp/db-org.el

@ -190,7 +190,8 @@ _y_: ?y? year _q_: quit _L__l__c_: ?l?
(let (total)
(save-excursion
(while (< (point) limit)
(when (member (org-get-at-bol 'type) '("scheduled" "past-scheduled"))
(when (member (org-get-at-bol 'type)
'("scheduled" "past-scheduled" "timestamp"))
(push (org-entry-get (org-get-at-bol 'org-hd-marker) "Effort") total))
(forward-line)))
(org-duration-from-minutes

Loading…
Cancel
Save