Feature request: custom clock headings

Feature request: custom clock headings

[Tom Weissmann]

Many of my subtasks have the same name, so the current modeline isn't always
very useful - if I'm working on a particular bug it might tell me 
"[1:20 Reproduce the error]", 
whereas I'd prefer it to say 
"[1:20 Bug #12303 Disappearing accounts ... Reproduce the error]"

Could we have the option to create a custom function to create clock headings?

Eg, somewhere in `org-clock-in':

...
(if org-custom-clock-heading
  ;; custom clock heading
  (funcall org-custom-clock-heading)
  ;; business as usual
  (if (looking-at org-todo-line-regexp)
    (setq org-clock-heading (match-string 3))
...

Re: Feature request: custom clock headings

[Bastien]

Tom Weissmann <trmsw@yahoo.co.uk> writes:

> Many of my subtasks have the same name, so the current modeline isn't always
> very useful - if I'm working on a particular bug it might tell me 
> "[1:20 Reproduce the error]", 
> whereas I'd prefer it to say 
> "[1:20 Bug #12303 Disappearing accounts ... Reproduce the error]"
>
> Could we have the option to create a custom function to create clock
> headings?

FWIW, I think it's a good idea.

-- 
Bastien

Re: Feature request: custom clock headings

[Tom Weissmann]

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

> > Could we have the option to create a custom function to create clock
> > headings?
> 
> FWIW, I think it's a good idea.
> 

I've been trying out a version using advice, and it's proving very useful, not
least because you can propertise the mode-line: if I click the top level task it
opens the bug (it tends to be a bug :) in our bug tracking system, and if I
click the sub-task it takes me to it in my org file.

Regards,
TomSW

Re: Re: Feature request: custom clock headings

[Bastien]

Hi Tom,

Tom Weissmann <trmsw@yahoo.co.uk> writes:

> Bastien <bzg <at> altern.org> writes:
>
>> > Could we have the option to create a custom function to create clock
>> > headings?
>> 
>> FWIW, I think it's a good idea.
>> 
>
> I've been trying out a version using advice, and it's proving very useful, not
> least because you can propertise the mode-line: if I click the top level task it
> opens the bug (it tends to be a bug :) in our bug tracking system, and if I
> click the sub-task it takes me to it in my org file.

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

-- 
Bastien

Re: Feature request: custom clock headings

[Tom Weissmann]

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)))))