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

Compare commits

base: exot:28b2047ad60e90a8025d34deda62f9b5b6727fce
Branches Tags
exot:master
..
compare: exot:a557e7420d2e5266c1f2c63ac40b43a7a5a64b6d
Branches Tags
exot:master

No commits in common. "28b2047ad60e90a8025d34deda62f9b5b6727fce" and "a557e7420d2e5266c1f2c63ac40b43a7a5a64b6d" have entirely different histories.
28b2047ad6 ... a557e7420d

1 changed files with 1 additions and 12 deletions
Show Stats Expand all files Collapse all files

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

@ -200,7 +200,7 @@ shown because they are due)."
(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" "deadline" "block")) '("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
@ -218,17 +218,6 @@ Add this function to `org-agenda-finalize-hook' to enable this."
(point) (point-max) 'org-agenda-date-header t)) (point) (point-max) 'org-agenda-date-header t))
(goto-char pos) (goto-char pos)
(end-of-line) (end-of-line)
;; When there is already an effort sum shown, delete it first
(when (re-search-backward " ([0-9]+:[0-9]\\{2\\})"
(save-mark-and-excursion
;; Only search until start of line
(beginning-of-line)
(point))
t)
(kill-line))
;; Insert effort sum
(insert-and-inherit (insert-and-inherit
(concat " (" (concat " ("
(db/org-agenda-calculate-efforts (db/org-agenda-calculate-efforts