[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/org cf8906e: org-agenda-get-todos: Fix effort-up sortin
From: |
ELPA Syncer |
Subject: |
[elpa] externals/org cf8906e: org-agenda-get-todos: Fix effort-up sorting in todo agenda |
Date: |
Mon, 25 Oct 2021 21:57:19 -0400 (EDT) |
branch: externals/org
commit cf8906eee0edf12ff80bbdc35ab8b643fcc9381b
Author: Ihor Radchenko <yantar92@gmail.com>
Commit: Ihor Radchenko <yantar92@gmail.com>
org-agenda-get-todos: Fix effort-up sorting in todo agenda
* lisp/org-agenda.el (org-agenda-get-todos): Calculate effort-minutes
before adding it as text property in agenda line.
Reported in
https://old.reddit.com/r/emacs/comments/qfqcip/sorting_by_effort_doesnt_work_on_latest_org/
---
lisp/org-agenda.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index 30b7343..20d1560 100644
--- a/lisp/org-agenda.el
+++ b/lisp/org-agenda.el
@@ -5577,6 +5577,7 @@ and the timestamp type relevant for the sorting strategy
in
category (org-get-category)
effort (save-match-data (or (get-text-property (point) 'effort)
(org-entry-get (point)
org-effort-property)))
+ effort-minutes (when effort (save-match-data
(org-duration-to-minutes effort)))
ts-date-pair (org-agenda-entry-get-agenda-timestamp (point))
ts-date (car ts-date-pair)
ts-date-type (cdr ts-date-pair)
@@ -5596,7 +5597,6 @@ and the timestamp type relevant for the sorting strategy
in
'effort-minutes effort-minutes)
level category tags t)
priority (1+ (org-get-priority txt)))
- (setq effort-minutes (when effort (save-match-data
(org-duration-to-minutes effort))))
(org-add-props txt props
'org-marker marker 'org-hd-marker marker
'priority priority
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/org cf8906e: org-agenda-get-todos: Fix effort-up sorting in todo agenda,
ELPA Syncer <=