emacs-elpa-diffs
[Top][All Lists]
Advanced

[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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]