From mboxrd@z Thu Jan  1 00:00:00 1970
From: Tom Weissmann <trmsw@yahoo.co.uk>
Subject: Re: Feature request: custom clock headings
Date: Wed, 28 Nov 2007 18:51:59 +0000 (UTC)
Message-ID: <loom.20071128T185122-300@post.gmane.org>
References: <loom.20071126T121733-815@post.gmane.org>
	<87zlwz3ekf.fsf@bzg.ath.cx>
	<loom.20071127T173647-296@post.gmane.org>
	<87d4tuxutu.fsf@bzg.ath.cx>
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Return-path: <emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org>
Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43)
	id 1IxS1R-0001Lw-Cy
	for emacs-orgmode@gnu.org; Wed, 28 Nov 2007 13:52:33 -0500
Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43)
	id 1IxS1P-0001Lk-D5
	for emacs-orgmode@gnu.org; Wed, 28 Nov 2007 13:52:32 -0500
Received: from [199.232.76.173] (helo=monty-python.gnu.org)
	by lists.gnu.org with esmtp (Exim 4.43) id 1IxS1P-0001Lh-90
	for emacs-orgmode@gnu.org; Wed, 28 Nov 2007 13:52:31 -0500
Received: from main.gmane.org ([80.91.229.2] helo=ciao.gmane.org)
	by monty-python.gnu.org with esmtps (TLS-1.0:RSA_AES_256_CBC_SHA1:32)
	(Exim 4.60) (envelope-from <geo-emacs-orgmode@m.gmane.org>)
	id 1IxS1O-0003eT-R2
	for emacs-orgmode@gnu.org; Wed, 28 Nov 2007 13:52:31 -0500
Received: from list by ciao.gmane.org with local (Exim 4.43)
	id 1IxS12-00074X-MJ
	for emacs-orgmode@gnu.org; Wed, 28 Nov 2007 18:52:10 +0000
Received: from mail2.siscog.pt ([195.22.30.41])
	by main.gmane.org with esmtp (Gmexim 0.1 (Debian))
	id 1AlnuQ-0007hv-00
	for <emacs-orgmode@gnu.org>; Wed, 28 Nov 2007 18:52:08 +0000
Received: from trmsw by mail2.siscog.pt with local (Gmexim 0.1 (Debian))
	id 1AlnuQ-0007hv-00
	for <emacs-orgmode@gnu.org>; Wed, 28 Nov 2007 18:52:08 +0000
List-Id: "General discussions about Org-mode." <emacs-orgmode.gnu.org>
List-Unsubscribe: <http://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/pipermail/emacs-orgmode>
List-Post: <mailto:emacs-orgmode@gnu.org>
List-Help: <mailto:emacs-orgmode-request@gnu.org?subject=help>
List-Subscribe: <http://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=subscribe>
Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
To: emacs-orgmode@gnu.org

Bastien <bzg <at> altern.org> writes:

> Looks nice.  Can you share your advice on this list?  Thanks!

Yes, of course:

(defvar org-custom-clock-heading nil
  "Function that returns a custom \(propertised\) value for the
`org-clock-heading' variable.
Called with point at the new clock")


(defadvice org-clock-in (after org-clock-in-custom-modeline activate)
  "Customise the modeline
NB this feature has been requested and may be standard in future versions of
Org-mode"
  (when org-custom-clock-heading
    (let ((custom-heading (funcall org-custom-clock-heading)))
      (when custom-heading
	(setq org-clock-heading custom-heading)
	(org-update-mode-line)))))