Re: [PATCH 4/5] Add a new sort option, which sorts items by todo keyword

From: Carsten Dominik <dominik@science.uva.nl>
To: James TD Smith <ahktenzero@usa.net>
Cc: emacs-orgmode@gnu.org
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	[thread overview]
Message-ID: <A2CD7CFF-D728-45C5-B961-62EDF12B9702@science.uva.nl> (raw)
In-Reply-To: <20080316162955.23004.35017.stgit@nyarlathotep.internal>

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