From 7582c2065ef694a5cbaed8462a09184cdf0e49b6 Mon Sep 17 00:00:00 2001 From: Daniel Borchmann Date: Fri, 29 Jan 2021 17:21:04 +0100 Subject: [PATCH] Include timestamps in org agenda effort summation Those correspond to fix appointments. --- site-lisp/db-org.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/site-lisp/db-org.el b/site-lisp/db-org.el index ecf8457..9e0dc67 100644 --- a/site-lisp/db-org.el +++ b/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