tec/org-mode
tec/org-mode
1
0
Fork 0
forked from mirrors/org-mode
Code Pull requests Releases Activity

Fix agenda generation error if agenda had time grid and agenda format

Browse source 
contain effort

* lisp/org-agenda.el (org-agenda-format-item): Ensure effort is "" when unset
This commit is contained in:
Max Mikhanosha 2013-03-26 06:54:53 -04:00
parent 2c994218ea
commit 9594249b4d
1 changed files with 9 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
lisp/org-agenda.el
View file

@ -6493,12 +6493,15 @@ Any match of REMOVE-RE will be removed from TXT."
(match-string 2 txt))
t t txt))))
(when (derived-mode-p 'org-mode)
(setq effort (ignore-errors (get-text-property 0 'org-effort txt)))
(if effort
(setq neffort (org-duration-string-to-minutes effort)
effort (setq effort (concat "[" effort "]")))
;; prevent erroring out with %e format when there is no effort
(setq effort "")))
(setq effort (ignore-errors (get-text-property 0 'org-effort txt))))
;; org-agenda-add-time-grid-maybe calls us with *Agenda* as
;; current buffer, so move this check outside of above
(if effort
(setq neffort (org-duration-string-to-minutes effort)
effort (setq effort (concat "[" effort "]")))
;; prevent erroring out with %e format when there is no effort
(setq effort ""))
(when remove-re
(while (string-match remove-re txt)