From mboxrd@z Thu Jan 1 00:00:00 1970 From: "Filippo A. Salustri" Subject: Re: Setting a task's priority based on its subtasks priorities Date: Fri, 13 Apr 2012 08:01:50 -0400 Message-ID: References: <3582.1334291709@alphaville> Mime-Version: 1.0 Content-Type: multipart/alternative; boundary=20cf303f6d5cdaf00004bd8e3cba Return-path: Received: from eggs.gnu.org ([208.118.235.92]:34632) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1SIfCR-0001Sv-LV for emacs-orgmode@gnu.org; Fri, 13 Apr 2012 08:02:05 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1SIfCK-0008Dt-TU for emacs-orgmode@gnu.org; Fri, 13 Apr 2012 08:01:59 -0400 Received: from mail-gx0-f169.google.com ([209.85.161.169]:42468) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1SIfCK-0008Dn-Ke for emacs-orgmode@gnu.org; Fri, 13 Apr 2012 08:01:52 -0400 Received: by ggeq1 with SMTP id q1so1860457gge.0 for ; Fri, 13 Apr 2012 05:01:50 -0700 (PDT) In-Reply-To: <3582.1334291709@alphaville> List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: nicholas.dokos@hp.com Cc: emacs-orgmode mailing list --20cf303f6d5cdaf00004bd8e3cba Content-Type: text/plain; charset=ISO-8859-1 Nick, Thanks very much! Excellent description. Cheers. Fil On 13 April 2012 00:35, Nick Dokos wrote: > Filippo A. Salustri wrote: > > > Hi all, > > I'm looking for a little coding help. > > > > I want to try to a task's priority automatically, based on the > priorities of its subtasks. > > Specifically, I'd like to set the priority of the task to the priority > of the highest-priority > > subtask. > > And I'd like that task priority to be updated (if necessary) > automatically any time I change the > > priority of one of its subtasks. > > > > The basic idea in all of these situations is to use org-map-entries > from the mapping API: > > (info "(org) Using the mapping API") > > to walk the entries, applying a function on each. > > The function to apply on each entry is frequently a specialization > of one of the functions provided by the property API: > > (info "(org) Using the property API") > > In this case, you need a function to get the priority of each entry: > > (def fas/task-priority () > (org-entry-get (point) "PRIORITY")) > > which you can then give to org-map-entries: > > (org-map-entries (function fas/task-priority) t 'tree) > > The assumption here is that we are at the head node and we have > an arbitrary number of subnodes. The call above will accumulate > the priorities of each subnode in a list (if a subnode does not > have a priority assigned, the priority will be nil). > > For example, applying > > * section > ** [#B] subsection > *** [#C] subsubsection > **** paragraph > ***** [#B] subparagraph > > will return the list > > (nil "B" "C" nil "B") > > It is then just a matter of finding the highest priority and applying > it to the top node. Assuming that "A" is higher priority than "B" etc, > something like this will do: > > --8<---------------cut here---------------start------------->8--- > (defun fas/task-priority () > (org-entry-get (point) "PRIORITY")) > > (defun fas/set-task-priority () > (interactive) > (let* ((priorities (org-map-entries (function fas/task-priority) t 'tree)) > (sortedpriorities (sort (delq nil priorities) (function > string-lessp)))) > (if sortedpriorities > (org-priority (aref (car sortedpriorities) 0))))) > --8<---------------cut here---------------end--------------->8--- > > org-priority wants a character, but sortedpriorities is a list of > strings, hence the aref rigmarole. It should work even if *no* > priorities are set at all: sortedpriorities will be nil, so nothing will > be done. > > Nick > > -- \V/_ Filippo A. Salustri, Ph.D., P.Eng. Mechanical and Industrial Engineering Ryerson University 350 Victoria St, Toronto, ON M5B 2K3, Canada Tel: 416/979-5000 ext 7749 Fax: 416/979-5265 Email: salustri@ryerson.ca http://deseng.ryerson.ca/~fil/ --20cf303f6d5cdaf00004bd8e3cba Content-Type: text/html; charset=ISO-8859-1 Content-Transfer-Encoding: quoted-printable Nick,
Thanks very much! =A0Excellent description.
Cheers.
Fil

On 13 April 2012 00:35, Nick D= okos <nichola= s.dokos@hp.com> wrote:
Filippo A. Salustri <salustri@ryerson.ca> wrote:

> Hi all,
> I'm looking for a little coding help.
>
> I want to try to a task's priority automatically, based on the pri= orities of its subtasks.
> Specifically, I'd like to set the priority of the task to the prio= rity of the highest-priority
> subtask.
> And I'd like that task priority to be updated (if necessary) autom= atically any time I change the
> priority of one of its subtasks.
>

The basic idea in all of these situations is to use org-map-entries from the mapping API:

=A0 =A0 (info "(org) Using the mapping API")

to walk the entries, applying a function on each.

The function to apply on each entry is frequently a specialization
of one of the functions provided by the property API:

=A0 =A0 (info "(org) Using the property API")

In this case, you need a function to get the priority of each entry:

(def fas/task-priority ()
=A0 =A0 (org-entry-get (point) "PRIORITY"))

which you can then give to org-map-entries:

=A0 =A0 (org-map-entries (function fas/task-priority) t 'tree)

The assumption here is that we are at the head node and we have
an arbitrary number of subnodes. The call above will accumulate
the priorities of each subnode in a list (if a subnode does not
have a priority assigned, the priority will be nil).

For example, applying

* section
** [#B] subsection
*** [#C] subsubsection
**** paragraph
***** [#B] subparagraph

will return the list

(nil "B" "C" nil "B")

It is then just a matter of finding the highest priority and applying
it to the top node. Assuming that "A" is higher priority than &qu= ot;B" etc,
something like this will do:

--8<---------------cut here---------------start------------->8---
(defun fas/task-priority ()
=A0(org-entry-get (point) "PRIORITY"))

(defun fas/set-task-priority ()
=A0(interactive)
=A0(let* ((priorities (org-map-entries (function fas/task-priority) t '= ;tree))
=A0 =A0 =A0 =A0 (sortedpriorities (sort (delq nil priorities) (function st= ring-lessp))))
=A0 =A0(if sortedpriorities
=A0 =A0 =A0 =A0(org-priority (aref (car sortedpriorities) 0)))))
--8<---------------cut here---------------end--------------->8---

org-priority wants a character, but sortedpriorities is a list of
strings, hence the aref rigmarole. It should work even if *no*
priorities are set at all: sortedpriorities will be nil, so nothing will be done.

Nick




-- \V/_
Filippo A. Salustri, Ph.D., P.Eng.
Mechanical and Industrial = Engineering
Ryerson University
350 Victoria St, Toronto, ON
M5B 2K= 3, Canada
Tel: 416/979-5000 ext 7749
Fax: 416/979-5265
Email: salustri@ryerson.ca
http://deseng.ryerson= .ca/~fil/

--20cf303f6d5cdaf00004bd8e3cba--