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

Ignore duplicates when computing daily agenda effort

This commit is contained in:
Daniel - 2023-02-12 13:49:43 +01:00
parent 05904e404e
commit 9b8d3d6d44
Signed by: dbo
GPG Key ID: 784AA8DF0CCDF625
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -198,11 +198,15 @@ timestamps (appointments), and deadlines (assuming they are only
shown because they are due)."
(let (total)
(save-excursion
(while (< (point) limit)
(when (member (org-get-at-bol 'type)
'("scheduled" "past-scheduled" "timestamp" "deadline" "block"))
(push (org-entry-get (org-get-at-bol 'org-hd-marker) "Effort") total))
(forward-line)))
(let (already-seen)
(while (< (point) limit)
(when (member (org-get-at-bol 'type)
'("scheduled" "past-scheduled" "timestamp" "deadline" "block"))
(let ((item-id (org-with-point-at (org-get-at-bol 'org-hd-marker) (org-id-get-create))))
(unless (member item-id already-seen)
(push (org-entry-get (org-get-at-bol 'org-hd-marker) "Effort") total)
(push item-id already-seen))))
(forward-line))))
(org-duration-from-minutes
(cl-reduce #'+
(mapcar #'org-duration-to-minutes