emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
From: Francesco Pizzolante <fpz@missioncriticalit.com>
To: Matt Lundin <mdl@imapmail.org>
Cc: mailing-list-org-mode <public-emacs-orgmode-mXXj517/zsQ@plane.gmane.org>
Subject: Re: Project management > Dynamic block per tag + [Babel]
Date: Thu, 16 Dec 2010 13:19:31 +0100	[thread overview]
Message-ID: <AANLkTingk4g9SxzewOs4LiALe=6PbC1bu1ADd5qD44R-@mail.gmail.com> (raw)
In-Reply-To: <878w0dnput.fsf@fastmail.fm>



Hi Matt,

> Another option is to use a babel block and org-map-entries to spit out a
> simple list of tasks for each person:
>
> --8<---------------cut here---------------start------------->8---
> #+source: tasklist
> #+begin_src emacs-lisp :var person="me"
>  (let (tasklist)
>    (org-map-entries
>     (lambda ()
>       (add-to-list 'tasklist
>                    (concat "- " (nth 4 (org-heading-components)))))
>     (concat person "/!TODO") 'agenda)
>    (mapconcat 'identity tasklist "\n"))
> #+end_src
>
> #+call: tasklist(person="Jenny")
> --8<---------------cut here---------------end--------------->8---
>
> Add this to an org file, replace Jenny with the appropriate name, and
> type C-c C-c to spit out a list (of all TODO items tagged with the
> relevant name) that looks like this:
>
> --8<---------------cut here---------------start------------->8---
> #+results: tasklist(person="Jenny")
> #+begin_example
> - Call George
> - Call Archie
> - Estimate cost of widgets
> --8<---------------cut here---------------end--------------->8---

Thanks a lot for your great help.

I've played a little with the code you've sent and here's what I end up with:

--8<---------------cut here---------------start------------->8---
#+source: tasklist
#+begin_src emacs-lisp :var person="FPZ" :results raw
(setq org-agenda-files (list (buffer-file-name)))
(let (tasklist)
  (add-to-list 'tasklist "|<c>|||" t)
  (org-map-entries
   (lambda ()
     (let ((priority (nth 3 (org-heading-components))))
       (add-to-list 'tasklist
                    (concat "| *" (nth 2 (org-heading-components)) "* "
                            "|/[#" (char-to-string (if priority
priority ?B)) "]/ "
                            "| [[" (nth 4 (org-heading-components)) "]]|") t)))
   (concat person "/!TODO|STARTED|WAIT") 'agenda)
  (mapconcat 'identity tasklist "\n"))
#+end_src
--8<---------------cut here---------------end--------------->8---

This enables to get a table with a task per row. For each task, I get the TODO
keywork, the priority and a link to the corresponding section in my Org
buffer.

Here'a an example from one of my document:
--8<---------------cut here---------------start------------->8---
#+results: tasklist
| <c>       |        |
                                 |
| *WAIT*    | /[#C]/ | [[See if we have to filter the processes
against something else]]                |
| *WAIT*    | /[#C]/ | [[See if we have to filter the products against
something else than the branch]] |
| *STARTED* | /[#A]/ | [[Display static party questions block]]
                                 |
| *WAIT*    | /[#C]/ | [[Analyse the risk management screen]]
                                 |
--8<---------------cut here---------------end--------------->8---

This is really great as each person can now have a quick overview of their
tasks and they just jave to click to get the details of the tasks!

The next step for me, would be to be able to sort this table against
priorities for instance.

If you think about a simple way of doing this, please let me know.

Regards,
Francesco

  parent reply	other threads:[~2010-12-16 12:20 UTC|newest]

Thread overview: 7+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2010-11-22 11:21 Francesco Pizzolante
2010-11-26 13:40 ` Christian Egli
2010-11-28 20:40 ` Matt Lundin
2010-12-09 17:03   ` Francesco Pizzolante
2010-12-16 12:19   ` Francesco Pizzolante [this message]
2011-01-19 15:15     ` Juan Reyero
     [not found]   ` <87tyiw6rmg.fsf@mundaneum.com>
2011-01-28 15:57     ` Matt Lundin

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='AANLkTingk4g9SxzewOs4LiALe=6PbC1bu1ADd5qD44R-@mail.gmail.com' \
    --to=fpz@missioncriticalit.com \
    --cc=mdl@imapmail.org \
    --cc=public-emacs-orgmode-mXXj517/zsQ@plane.gmane.org \
    --subject='Re: Project management > Dynamic block per tag + [Babel]' \
    /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

Code repositories for project(s) associated with this 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).