Dear Experts,
I'd like to propose a replacement for the org-get-priority function
which is backward compatible with the current version but allows the
user to add a sub-priority such as [#A]-5 or [#B]+3:
(defun org-get-priority (s)
"Find priority cookie and return priority.
Priorities of the form [#<letter>]-<number> or
[#<letter>]+<number> are supported with +/-<number> being
optional and modifying the letter priority. The letter priority
is multiplied by 100000 and then the number priority is added
on. Thus a priority string of [#B]+5 is higher than [#B] which is
higher than [#B]-2 and all are lower than [#A].
The number sub-priorities allow finer control of sorting in org agendas.
"
(save-match-data
(let* ((priority-match (string-match org-priority-regexp s))
(priority-value (if priority-match
(* 100000 (- org-lowest-priority
(string-to-char (match-string 2 s))))
(* 100000 (- org-lowest-priority
org-default-priority))))
(sub-priority-match (match-string 3 s))
(sub-priority-value (if sub-priority-match
(string-to-number sub-priority-match) 0)))
(+ priority-value sub-priority-value))))
_______________________________________________
Emacs-orgmode mailing list
Please use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode
