[Orgmode] 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)))))