>From d19c86e720feb65e0aef7a1fff9bf19bd75dbcf4 Mon Sep 17 00:00:00 2001 From: Eric Abrahamsen Date: Sun, 25 May 2014 12:18:52 +0800 Subject: [PATCH] Sort TODO entries more usefully lisp/org.el (org-sort-entries, org-compare-todos-subr): Change the sort routine for TODO entries so that they are first sorted by keyword time (done or not done) and then alphabetically. Entries with no TODO keyword at all are sorted "big". --- lisp/org.el | 14 ++++++++++++-- 1 file changed, 12 insertions(+), 2 deletions(-) diff --git a/lisp/org.el b/lisp/org.el index 9f14c44..2400ddf 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -8703,6 +8703,15 @@ Optional argument WITH-CASE means sort case-sensitively." (setq s (substring st 1 -1))) s) +(defun org-compare-todos-subr (a b) + (if (or (and (member a org-not-done-keywords) + (member b org-not-done-keywords)) + (and (member a org-done-keywords) + (member b org-done-keywords))) + (string< a b) + (or (member a org-done-keywords) + (consp a)))) + (defvar org-priority-regexp) ; defined later in the file (defvar org-after-sorting-entries-or-items-hook nil @@ -8904,8 +8913,8 @@ When sorting is done, call `org-after-sorting-entries-or-items-hook'." (or (org-entry-get nil property) "")) ((= dcst ?o) (if (looking-at org-complex-heading-regexp) - (- 9999 (length (member (match-string 2) - org-todo-keywords-1))))) + (car (member (match-string 2) + org-todo-keywords-1)))) ((= dcst ?f) (if getkey-func (progn @@ -8918,6 +8927,7 @@ When sorting is done, call `org-after-sorting-entries-or-items-hook'." (cond ((= dcst ?a) 'string<) ((= dcst ?f) compare-func) + ((= dcst ?o) 'org-compare-todos-subr) ((member dcst '(?p ?t ?s ?d ?c ?k)) '<))))) (run-hooks 'org-after-sorting-entries-or-items-hook) ;; Reset the clock marker if needed -- 1.9.3