Kaynağa Gözat

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.
Ihor Radchenko 3 yıl önce
ebeveyn
işleme
91523479fb
1 değiştirilmiş dosya ile 16 ekleme ve 9 silme
  1. 16 9
      lisp/org.el

+ 16 - 9
lisp/org.el

@@ -11595,18 +11595,25 @@ headlines matching this string."
                             (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))
+                                  ;; 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)
 			          category
 			          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))
 	             (setq marker (org-agenda-new-marker))
 	             (org-add-props txt props