[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/org f2b52f4 3/4: org.el/org-scan-tags: Fix effort in ta
From: |
ELPA Syncer |
Subject: |
[elpa] externals/org f2b52f4 3/4: org.el/org-scan-tags: Fix effort in tags agenda views |
Date: |
Wed, 27 Oct 2021 02:57:35 -0400 (EDT) |
branch: externals/org
commit f2b52f411c3580b1539375600e8085060e387bc2
Author: Ihor Radchenko <yantar92@gmail.com>
Commit: Ihor Radchenko <yantar92@gmail.com>
org.el/org-scan-tags: Fix effort in tags agenda views
* lisp/org.el (org-scan-tags): Manually add effort and effort-minutes
properties to be used by agenda.
---
lisp/org.el | 26 ++++++++++++++++----------
1 file changed, 16 insertions(+), 10 deletions(-)
diff --git a/lisp/org.el b/lisp/org.el
index 21b2c54..d73df13 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