From mboxrd@z Thu Jan  1 00:00:00 1970
From: Nick Dokos <nicholas.dokos@hp.com>
Subject: Re: help advicing org-todo
Date: Thu, 03 Jan 2013 12:25:00 -0500
Message-ID: <10532.1357233900@alphaville>
References: <CAKoxK+5=0EgrCdRVGnO1jpwDTBJGzxWwY_k_wztyTRGsFFPs0Q@mail.gmail.com>
	<87zk0q2owj.fsf@bzg.ath.cx>
	<CAKoxK+6aB+penxFZsnLFkJd=MRdPdHnuki53ouv9=OQb+wUpJA@mail.gmail.com>
Reply-To: nicholas.dokos@hp.com
Return-path: <emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org>
Received: from eggs.gnu.org ([208.118.235.92]:53476)
	by lists.gnu.org with esmtp (Exim 4.71)
	(envelope-from <nicholas.dokos@hp.com>) id 1TqoXW-00028z-94
	for emacs-orgmode@gnu.org; Thu, 03 Jan 2013 12:25:11 -0500
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
	(envelope-from <nicholas.dokos@hp.com>) id 1TqoXQ-0006pf-Vc
	for emacs-orgmode@gnu.org; Thu, 03 Jan 2013 12:25:10 -0500
Received: from g1t0028.austin.hp.com ([15.216.28.35]:31425)
	by eggs.gnu.org with esmtp (Exim 4.71)
	(envelope-from <nicholas.dokos@hp.com>) id 1TqoXQ-0006lE-OA
	for emacs-orgmode@gnu.org; Thu, 03 Jan 2013 12:25:04 -0500
In-Reply-To: Message from Luca Ferrari <fluca1978@infinito.it> of "Thu,
	03 Jan 2013 18:16:22 +0100."
	<CAKoxK+6aB+penxFZsnLFkJd=MRdPdHnuki53ouv9=OQb+wUpJA@mail.gmail.com>
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: Luca Ferrari <fluca1978@infinito.it>
Cc: Bastien <bzg@altern.org>, emacs-orgmode@gnu.org

Luca Ferrari <fluca1978@infinito.it> 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