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

org-scan-tags: Fix `org-agenda-change-all-lines' when prefix has effort 

* lisp/org.el (org-scan-tags): Add `effort' and `effort-minutes' to
full agenda line, not just its heading string part.
`org-agenda-change-all-lines' expects the properties to be at BOL.
This commit is contained in:
Ihor Radchenko 2021-10-27 23:42:35 +08:00
parent b135b8c7ae
commit 91523479fb
No known key found for this signature in database
GPG Key ID: 6470762A7DA11D8B
1 changed files with 16 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
lisp/org.el
View File

@ -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 ;; Add `effort' and `effort-minutes'
(if (eq org-tags-match-list-sublevels 'indented) ;; properties for prefix format.
(make-string (1- level) ?.) "") (org-add-props
(org-add-props (concat
(org-get-heading) (if (eq org-tags-match-list-sublevels 'indented)
nil (make-string (1- level) ?.) "")
'effort effort (org-get-heading))
'effort-minutes effort-minutes)) 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