From mboxrd@z Thu Jan 1 00:00:00 1970 From: Carsten Dominik Subject: Re: [PATCH 4/5] Add a new sort option, which sorts items by todo keyword Date: Wed, 9 Apr 2008 17:40:21 +0200 Message-ID: References: <20080316162417.23004.16993.stgit@nyarlathotep.internal> <20080316162955.23004.35017.stgit@nyarlathotep.internal> Mime-Version: 1.0 (Apple Message framework v919.2) Content-Type: text/plain; charset=US-ASCII; format=flowed; delsp=yes Content-Transfer-Encoding: 7bit Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1JjdAt-00086j-2O for emacs-orgmode@gnu.org; Wed, 09 Apr 2008 12:29:27 -0400 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1JjdAr-00085r-M9 for emacs-orgmode@gnu.org; Wed, 09 Apr 2008 12:29:25 -0400 Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1JjdAr-00085h-EX for emacs-orgmode@gnu.org; Wed, 09 Apr 2008 12:29:25 -0400 Received: from fg-out-1718.google.com ([72.14.220.157]) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1JjdAq-0004XX-UR for emacs-orgmode@gnu.org; Wed, 09 Apr 2008 12:29:25 -0400 Received: by fg-out-1718.google.com with SMTP id d23so3721409fga.30 for ; Wed, 09 Apr 2008 09:29:24 -0700 (PDT) In-Reply-To: <20080316162955.23004.35017.stgit@nyarlathotep.internal> List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: James TD Smith Cc: emacs-orgmode@gnu.org Cool. I like this on a lot. And I don't have a good idea how to fix the problem with equal keywords in different sequences. Accepted, thanks. - Carsten On Mar 16, 2008, at 5:30 PM, James TD Smith wrote: > This is a somewhat simple implementation which just uses the > position of the > keyword in org-todo-keywords-1, so if you have multiple sequences > containing the > same todo keyword you may not get the ordering you expect. > --- > > org.el | 7 +++++-- > 1 files changed, 5 insertions(+), 2 deletions(-) > > > diff --git a/org.el b/org.el > index dee8471..d67024f 100644 > --- a/org.el > +++ b/org.el > @@ -982,7 +982,6 @@ table, obtained by prompting the user." > :group 'org-table-settings > :type 'string) > > - > (defcustom org-table-number-regexp > "^\\([<>]?[-+^.0-9]*[0-9][-+^.0-9eEdDx()%:]*\\|\\(0[xX]\\)[0-9a-fA- > F]+\\|nan\\)$" > "Regular expression for recognizing numbers in table columns. > @@ -6993,7 +6992,7 @@ WITH-CASE, the sorting considers case as well." > (message > (if plain-list-p > "Sort %s: [a]lpha [n]umeric [t]ime [f]unc A/N/T/F means > reversed:" > - "Sort %s: [a]lpha [n]umeric [t]ime [p]riority p[r]operty [f]unc > A/N/T/P/F means reversed:") > + "Sort %s: [a]lpha [n]umeric [t]ime [p]riority p[r]operty [f]unc > keyword [o]rder A/N/T/P/F/O means reversed:") > what) > (setq sorting-type (read-char-exclusive)) > > @@ -7084,6 +7083,10 @@ WITH-CASE, the sorting considers case as well." > org-default-priority)) > ((= dcst ?r) > (or (org-entry-get nil property) "")) > + ((= dcst ?o) > + (if (looking-at org-complex-heading-regexp) > + (or (position (match-string 2) org-todo-keywords-1 :test > 'string=) > + 9999))) > ((= dcst ?f) > (if getkey-func > (progn > > > > _______________________________________________ > Emacs-orgmode mailing list > Remember: use `Reply All' to send replies to the list. > Emacs-orgmode@gnu.org > http://lists.gnu.org/mailman/listinfo/emacs-orgmode