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)))))
_______________________________________________
Emacs-orgmode mailing list
Remember: use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode
