From mboxrd@z Thu Jan  1 00:00:00 1970
From: Luca Ferrari <fluca1978@infinito.it>
Subject: Re: help advicing org-todo
Date: Thu, 3 Jan 2013 18:16:22 +0100
Message-ID: <CAKoxK+6aB+penxFZsnLFkJd=MRdPdHnuki53ouv9=OQb+wUpJA@mail.gmail.com>
References: <CAKoxK+5=0EgrCdRVGnO1jpwDTBJGzxWwY_k_wztyTRGsFFPs0Q@mail.gmail.com>
	<87zk0q2owj.fsf@bzg.ath.cx>
Mime-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-1
Return-path: <emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org>
Received: from eggs.gnu.org ([208.118.235.92]:51731)
	by lists.gnu.org with esmtp (Exim 4.71)
	(envelope-from <fluca1978@gmail.com>) id 1TqoP4-0005hc-8N
	for emacs-orgmode@gnu.org; Thu, 03 Jan 2013 12:16:27 -0500
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
	(envelope-from <fluca1978@gmail.com>) id 1TqoP1-0004Hc-93
	for emacs-orgmode@gnu.org; Thu, 03 Jan 2013 12:16:26 -0500
Received: from mail-wi0-f172.google.com ([209.85.212.172]:50528)
	by eggs.gnu.org with esmtp (Exim 4.71)
	(envelope-from <fluca1978@gmail.com>) id 1TqoP1-0004HR-2G
	for emacs-orgmode@gnu.org; Thu, 03 Jan 2013 12:16:23 -0500
Received: by mail-wi0-f172.google.com with SMTP id o1so11023128wic.17
	for <emacs-orgmode@gnu.org>; Thu, 03 Jan 2013 09:16:22 -0800 (PST)
In-Reply-To: <87zk0q2owj.fsf@bzg.ath.cx>
List-Id: "General discussions about Org-mode." <emacs-orgmode.gnu.org>
List-Unsubscribe: <https://lists.gnu.org/mailman/options/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/archive/html/emacs-orgmode>
List-Post: <mailto:emacs-orgmode@gnu.org>
List-Help: <mailto:emacs-orgmode-request@gnu.org?subject=help>
List-Subscribe: <https://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=subscribe>
Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
To: Bastien <bzg@altern.org>
Cc: emacs-orgmode@gnu.org

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