Automatic tagging based on # of todo items as children

Automatic tagging based on # of todo items as children

[Marcel van der Boom]

[-- Attachment #1.1: Type: text/plain, Size: 1089 bytes --]

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

[-- Attachment #1.2: smime.p7s --]
[-- Type: application/pkcs7-signature, Size: 1347 bytes --]

[-- Attachment #2: Type: text/plain, Size: 201 bytes --]

_______________________________________________
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

Automatic tagging based on # of todo items as children

[mrb]

[-- Attachment #1.1: Type: text/plain, Size: 1089 bytes --]

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

[-- Attachment #1.2: smime.p7s --]
[-- Type: application/pkcs7-signature, Size: 1347 bytes --]

[-- Attachment #2: Type: text/plain, Size: 201 bytes --]

_______________________________________________
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

Re: Automatic tagging based on # of todo items as children

[Carsten Dominik]

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

Re: Automatic tagging based on # of todo items as children

[mrb]

[-- Attachment #1.1: Type: text/plain, Size: 1243 bytes --]

On Tue 16-Feb-2010 05:53
Carsten Dominik <carsten.dominik@gmail.com> wrote:

> 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)
> 

Thanks! That is close enough at this time. It neatly adds/removes the
tag when there are more/less than 2 open TODO items.  

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

[-- Attachment #1.2: smime.p7s --]
[-- Type: application/pkcs7-signature, Size: 1347 bytes --]

[-- Attachment #2: Type: text/plain, Size: 201 bytes --]

_______________________________________________
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