|
@@ -11595,18 +11595,25 @@ headlines matching this string."
|
|
(effort-minutes (when effort (save-match-data (org-duration-to-minutes effort)))))
|
|
(effort-minutes (when effort (save-match-data (org-duration-to-minutes effort)))))
|
|
(setq txt (org-agenda-format-item
|
|
(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))
|
|
|
|
|
|
+ ;; Add `effort' and `effort-minutes'
|
|
|
|
+ ;; properties for prefix format.
|
|
|
|
+ (org-add-props
|
|
|
|
+ (concat
|
|
|
|
+ (if (eq org-tags-match-list-sublevels 'indented)
|
|
|
|
+ (make-string (1- level) ?.) "")
|
|
|
|
+ (org-get-heading))
|
|
|
|
+ nil
|
|
|
|
+ 'effort effort
|
|
|
|
+ 'effort-minutes effort-minutes)
|
|
(make-string level ?\s)
|
|
(make-string level ?\s)
|
|
category
|
|
category
|
|
tags-list)
|
|
tags-list)
|
|
- priority (org-get-priority txt)))
|
|
|
|
|
|
+ priority (org-get-priority txt))
|
|
|
|
+ ;; Now add `effort' and `effort-minutes' to
|
|
|
|
+ ;; full agenda line.
|
|
|
|
+ (setq txt (org-add-props txt nil
|
|
|
|
+ 'effort effort
|
|
|
|
+ 'effort-minutes effort-minutes)))
|
|
(goto-char (org-element-property :begin el))
|
|
(goto-char (org-element-property :begin el))
|
|
(setq marker (org-agenda-new-marker))
|
|
(setq marker (org-agenda-new-marker))
|
|
(org-add-props txt props
|
|
(org-add-props txt props
|