diff --git a/lisp/org.el b/lisp/org.el index 21b2c5470..d73df1325 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -11592,16 +11592,22 @@ headlines matching this string." (match-beginning 1) (match-end 1))) (org-show-context 'tags-tree)) ((eq action 'agenda) - (setq txt (org-agenda-format-item - "" - (concat - (if (eq org-tags-match-list-sublevels 'indented) - (make-string (1- level) ?.) "") - (org-get-heading)) - (make-string level ?\s) - category - tags-list) - priority (org-get-priority txt)) + (let* ((effort (org-entry-get (point) org-effort-property)) + (effort-minutes (when effort (save-match-data (org-duration-to-minutes effort))))) + (setq txt (org-agenda-format-item + "" + (concat + (if (eq org-tags-match-list-sublevels 'indented) + (make-string (1- level) ?.) "") + (org-add-props + (org-get-heading) + nil + 'effort effort + 'effort-minutes effort-minutes)) + (make-string level ?\s) + category + tags-list) + priority (org-get-priority txt))) (goto-char (org-element-property :begin el)) (setq marker (org-agenda-new-marker)) (org-add-props txt props