Include timestamps in org agenda effort summation
Those correspond to fix appointments.
This commit is contained in:
parent
9cf17c973f
commit
7582c2065e
|
@ -190,7 +190,8 @@ _y_: ?y? year _q_: quit _L__l__c_: ?l?
|
||||||
(let (total)
|
(let (total)
|
||||||
(save-excursion
|
(save-excursion
|
||||||
(while (< (point) limit)
|
(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))
|
(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
|
||||||
|
|
Loading…
Reference in New Issue