Re: [O] org-todo-recursive

[Dieter Van Eessen]

Hello,

I don't have good elisp skills, but the following might give you an idea how to start:

(defun org-todo-recursive (element-at-point)
  (interactive
    (let (element-at-point)
      (forward-char) ;to make sure you have item (no plain-list)                                                                              
      (setq element-at-point (org-element-at-point))
      (list element-at-point)))

  (if (eq 'headline (org-element-type element-at-point))
      (progn    ; then                                                                                                                        
        (narrow-to-region
         (org-element-property ':begin element-at-point)
         (org-element-property ':end elemen-at-point))
        (setq headline-content-list
              (cdr (car (org-element-contents
                    (org-element-parse-buffer)))))

        ;; Need to use cdr, as first thing in list is a plist with properties

        ;; Need to use car, as 'contents' is between an extra pair of brackets                                                                
        ;; Now you got a list with org-elements of form                                                                                          
        ;; ((section (...))(headline (...))(headline (...)))                                                                                 
        ;; Perhaps run over them in a while loop, if type is headline, then (org-element-put-property current ':todo-keyword ...)             
        (while (not (eq <lenghth of list> 0))
          ((setq current (car (headline-content-list)))
           (setq headline-content-list (cdr (headline-content-list)))
           (if (eq 'headline (org-element-type current))
               (let ((todo-keyword (org-element-property
                                    ':todo-keyword current)))
                 (<Change the property depending on current state>)
        )
      (message "Must be on heading")) ;else   

Have fun,

Dieter                                                                                       

On Sun, Jan 18, 2015 at 10:49 AM, David Arroyo Menendez <address@hidden> wrote:

Rasmus <address@hidden> writes:

> Hi,
>
> address@hidden (David Arroyo Menéndez) writes:
>
>> How can I do a org-todo-recursive? The idea is replace TODO by DONE in
>> a tree. Someone with a snippet?
>
> Does org-depend.el do what you need?  [Your message is not very clear]
>
> Cheers,
> Rasmuse

I'm not an user of org-depend.el, but from my point of view, org-depend
is for triggers, I want make a request to a full subtree in org, not triggers.

Cheers.

--

gtz,
Dieter VE