Re: [O] help advicing org-todo

[Luca Ferrari]

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?

Thanks,
Luca