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

[Carsten Dominik]

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=)

+   )))
  ((= 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




___
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

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

[James TD Smith]

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=)
+   )))
  ((= 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