On Thu, Dec 16, 2010 at 1:19 PM, Francesco Pizzolante
<f...@missioncriticalit.com> wrote:
> > Another option is to use a babel block and org-map-entries to spit out a
> > simple list of tasks for each person:
> 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---
>
> 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.
I had the same problem, and tweaking your code (I think org-mode
doesn't like the modification of org-agenda-files) this is what I've
ended up with:
(defun tasks-with-tag (person &optional scope)
(let ((tasklist ()))
(org-map-entries
(lambda ()
(let ((priority (nth 3 (org-heading-components))))
(add-to-list 'tasklist
(list (if priority (char-to-string priority) "C")
(concat "[[" (nth 4 (org-heading-components)) "]]"))
t)))
(concat person "/!TASK") scope)
(sort tasklist (lambda (f s)
(string-lessp (car f) (car s))))))
The output is sorted and makes a nice table. Scope is passed directly
to org-map-entries, so if you leave it out the scope will be the
current buffer.
Greetings,
jm
--
http://juanreyero.com/
http://alandair.com
_______________________________________________
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
