Re: Move org-clock info to left in mode-line?

[Matthew Lundin <mdl@imapmail.org>]

>> Matthew Lundin <mdl@imapmail.org> wrote:

> Thanks! I was able to move the global-mode-string farther up in
> the default-mode-line-format variable. Now if only I could get the
> org-mode-line-string as the first entry in the global-mode-string.
>
> Upon further reflection, I decided I would prefer the following behavior:
>
>  - When I clock into an item, a header line appears with the
>    org-mode-line-string -- i.e., the clock information.
>
>  - When I clock out of an item, the header line disappears (i.e.,
>    header-line-format is set to nil). 
>
> I'll see if I can cook something up using the org-clock hooks.

Here's my rather crude solution:

--8<---------------cut here---------------start------------->8---
(setq org-clock-in-hook 
      '(lambda ()
		(setq default-header-line-format '((" " org-mode-line-string " ")))))

(setq org-clock-out-hook 
      '(lambda ()
		(setq default-header-line-format nil)))

(setq org-clock-cancel-hook 
      '(lambda ()
		(setq default-header-line-format nil)))
--8<---------------cut here---------------end--------------->8---

Works so far. Obviously, if I had already set
default-header-line-format, this solution would be no good.

I'll keep my fingers crossed.

- Matt