Re: [O] help advicing org-todo

[Nick Dokos]

Luca Ferrari <address@hidden> wrote:

> Thanks,
> a very good advice. Now, forgive my lisp ignorance, but I've defined
> the following function to do what I want:
> 
> (defun org-todo-automatic-clock ()
>   "Starts/Stops the clock when a task is marked as implementing or completed"
>   (if (string= state org-todo-fluca1978-running)
>       (org-clock-in)
>     (if (or (string= state last-state) (string= state
> org-todo-fluca1978-suspended))
>         (org-clock-out)
>       )
>     )
>   )                                     ;end of defun
> 
> 
> the problem is how to tell the org-todo-keyword to use variables
> instead of strings, since the following is not working:
> 
> (setq org-todo-fluca1978-running   "IMPLEMENTING(i!)" )
> (setq org-todo-fluca1978-suspended "SUSPENDED(s!)" )
> 
> (setq org-todo-keywords
>       '(
>          (sequence "FEATURE(f!)" "BUG(b!)"
> 'org-todo-fluca1978-running 'org-todo-fluca1978-suspended "|"
> "COMPLETED(c!)")
>          ))
> 
> What am I missing here?
> 

OTTOMH: Should state be org-state instead?

Nick