From: Carsten Dominik <carsten.dominik@gmail.com>
To: mrb@hsdev.com
Cc: emacs-orgmode@gnu.org
Subject: Re: Automatic tagging based on # of todo items as children
Date: Tue, 16 Feb 2010 05:53:23 +0100 [thread overview]
Message-ID: <9F69ED3D-EF2E-4166-91D4-A2A102479268@gmail.com> (raw)
In-Reply-To: <20100215120548.6ef57e56@hsdev.com>
Hi Marcel,
there is not simple other way, because only when making TODO
statistics are the TODO children counted. You can hook into `org-
after-todo-state-change-hook' with a function that moves back up to
the parent and then counts children with TODO keyword.
THis is untested:
(defun my-define-prj ()
(save-excursion
(when (org-up-heading-safe)
(let ((beg (point))
(end (org-end-of-subtree t t))
two-not-done)
(goto-char beg)
(goto-char (point-at-eol))
(setq two-not-done
(and (re-search-forward org-not-done-heading-regexp end t)
(re-search-forward org-not-done-heading-regexp end t)))
(goto-char beg)
(org-toggle-tag "prj" (if two-not-done 'on 'off))))))
(add-hook 'org-after-todo-state-change-hook 'my-define-prj)
- Carsten
On Feb 15, 2010, at 12:05 PM, mrb@hsdev.com wrote:
> Hi,
>
> I would like to have org-mode assist me in tagging headlines with a
> 'prj' tag if that headline contains more than one todo item. It does
> not matter if the items are completed or not, if it has more than one
> task as its children, I would like to have it tagged with 'prj'
>
> I came up with this:
>
> #+begin_src elisp
> (defun ensure-prj-tag()
> "Ensure a header gets a prj tag"
> (interactive)
> (org-toggle-tag "prj"
> (if (> (length (org-map-entries t "/+TODO|DONE|CANCELLED" 'tree))1)
> 'on 'off)) )
> #+end_src
>
> which sort-of works if the cursor is on the heading.
>
> I need some help with the following:
> - I would like it to be automatic and the org-todo-statistics hook
> seem candidates to attach a function to, but I also want it for
> heading which do not have a [1/N] or [%] counter. How to proceed?
> - Can I do this automatically on a whole file?
>
> marcel
>
> --
> Marcel van der Boom -- http://hsdev.com/mvdb.vcf
> HS-Development BV -- http://www.hsdev.com
> So! web applications -- http://make-it-so.info
> Cobra build -- http://cobra.mrblog.nl
> _______________________________________________
> 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
- Carsten
next prev parent reply other threads:[~2010-02-16 4:53 UTC|newest]
Thread overview: 4+ messages / expand[flat|nested] mbox.gz Atom feed top
2010-02-15 11:05 Automatic tagging based on # of todo items as children mrb
2010-02-16 4:53 ` Carsten Dominik [this message]
2010-02-17 17:43 ` mrb
-- strict thread matches above, loose matches on Subject: below --
2010-02-15 10:27 Marcel van der Boom
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=9F69ED3D-EF2E-4166-91D4-A2A102479268@gmail.com \
--to=carsten.dominik@gmail.com \
--cc=emacs-orgmode@gnu.org \
--cc=mrb@hsdev.com \
/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).