From: Nick Dokos <nicholas.dokos@hp.com>
To: "Filippo A. Salustri" <salustri@ryerson.ca>
Cc: emacs-orgmode mailing list <emacs-orgmode@gnu.org>
Subject: Re: Setting a task's priority based on its subtasks priorities
Date: Fri, 13 Apr 2012 00:35:09 -0400 [thread overview]
Message-ID: <3582.1334291709@alphaville> (raw)
In-Reply-To: Message from "Filippo A. Salustri" <salustri@ryerson.ca> of "Thu, 12 Apr 2012 20:55:42 EDT." <CAEKxqcijHLEAqC9CScvMLbheYXHDTFYvWp9pOzaePsims7fVeg@mail.gmail.com>
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 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
next prev parent reply other threads:[~2012-04-13 4:35 UTC|newest]
Thread overview: 3+ messages / expand[flat|nested] mbox.gz Atom feed top
2012-04-13 0:55 Setting a task's priority based on its subtasks priorities Filippo A. Salustri
2012-04-13 4:35 ` Nick Dokos [this message]
2012-04-13 12:01 ` Filippo A. Salustri
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.orgmode.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=3582.1334291709@alphaville \
--to=nicholas.dokos@hp.com \
--cc=emacs-orgmode@gnu.org \
--cc=salustri@ryerson.ca \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).