How to update modelines of all displayed buffers

How to update modelines of all displayed buffers

[Cecil Westerhof]

I have defined the following function:
    (defun buffer-update-mode-line ()
      (setq buffer-mode-line (buffer-mode-line-extra))
      (force-mode-line-update t))

The function buffer-mode-line-extra gives the extra data I want to
display in the modeline.

It is called every minute with:
    (run-with-timer 60 60 'buffer-update-mode-line)

With this only the modeline of the current buffer is updated. In
principal (force-mode-line-update t) makes all modelines updated, but
that will only work if for every (visible) buffer buffer-mode-line is
updated with the function buffer-mode-line-extra. Is there a way to get
this done?

-- 
Cecil Westerhof
Senior Software Engineer
LinkedIn: http://www.linkedin.com/in/cecilwesterhof

Re: How to update modelines of all displayed buffers

[Barry Margolin]

In article <87y6gor07c.fsf@linux-lqcw.site>,
 Cecil Westerhof <Cecil@decebal.nl> wrote:

> I have defined the following function:
>     (defun buffer-update-mode-line ()
>       (setq buffer-mode-line (buffer-mode-line-extra))
>       (force-mode-line-update t))
> 
> The function buffer-mode-line-extra gives the extra data I want to
> display in the modeline.

What's the variable buffer-mode-line?  I can't find it in the Emacs Lisp 
documentation, is it something you added?

> 
> It is called every minute with:
>     (run-with-timer 60 60 'buffer-update-mode-line)
> 
> With this only the modeline of the current buffer is updated. In
> principal (force-mode-line-update t) makes all modelines updated, but
> that will only work if for every (visible) buffer buffer-mode-line is
> updated with the function buffer-mode-line-extra. Is there a way to get
> this done?

If buffer-mode-line is a buffer-local variable, you need to loop through 
all buffers, changing to each one and running your function.

(defun update-mode-line-all-buffers ()
  (save-current-buffer
    (dolist (b (buffer-list))
      (set-buffer b)
      (buffer-update-mode-line))))

-- 
Barry Margolin, barmar@alum.mit.edu
Arlington, MA
*** PLEASE post questions in newsgroups, not directly to me ***
*** PLEASE don't copy me on replies, I'll read them in the group ***

Re: How to update modelines of all displayed buffers

[Cecil Westerhof]

Barry Margolin <barmar@alum.mit.edu> writes:

>> I have defined the following function:
>>     (defun buffer-update-mode-line ()
>>       (setq buffer-mode-line (buffer-mode-line-extra))
>>       (force-mode-line-update t))
>> 
>> The function buffer-mode-line-extra gives the extra data I want to
>> display in the modeline.
>
> What's the variable buffer-mode-line?  I can't find it in the Emacs Lisp 
> documentation, is it something you added?

Yes, my bad:
    (unless (memq 'buffer-mode-line global-mode-string)
      (setq global-mode-string
        (append global-mode-string 
            '("" buffer-mode-line))))


>> It is called every minute with:
>>     (run-with-timer 60 60 'buffer-update-mode-line)
>> 
>> With this only the modeline of the current buffer is updated. In
>> principal (force-mode-line-update t) makes all modelines updated, but
>> that will only work if for every (visible) buffer buffer-mode-line is
>> updated with the function buffer-mode-line-extra. Is there a way to get
>> this done?
>
> If buffer-mode-line is a buffer-local variable, you need to loop through 
> all buffers, changing to each one and running your function.
>
> (defun update-mode-line-all-buffers ()
>   (save-current-buffer
>     (dolist (b (buffer-list))
>       (set-buffer b)
>       (buffer-update-mode-line))))

This does all buffers. Is it possible to do it only for displayed
buffers?

-- 
Cecil Westerhof
Senior Software Engineer
LinkedIn: http://www.linkedin.com/in/cecilwesterhof

Re: How to update modelines of all displayed buffers

[José A. Romero L.]

On 16 Kwi, 09:19, Cecil Westerhof <Ce...@decebal.nl> wrote:
(...)
> > (defun update-mode-line-all-buffers ()
> >   (save-current-buffer
> >     (dolist (b (buffer-list))
> >       (set-buffer b)
> >       (buffer-update-mode-line))))
>
> This does all buffers. Is it possible to do it only for displayed
> buffers?
(...)

You could try something like this:

(mapc
 (lambda (b) (set-buffer b) (buffer-update-mode-line))
 (delete-dups
  (mapcar 'window-buffer
          (apply 'append
                 (mapcar 'window-list (frame-list))))))

though if you refactored your buffer-update-mode-line to accept the
buffer as parameter you could write this a bit more elegantly:

(mapc 'buffer-update-mode-line
      (delete-dups
       (mapcar 'window-buffer
               (apply 'append
                      (mapcar 'window-list (frame-list))))))

Cheers,
--
José A. Romero L.
escherdragon at gmail
"We who cut mere stones must always be envisioning cathedrals."
(Quarry worker's creed)

Re: How to update modelines of all displayed buffers

[Andreas Politz]

Cecil Westerhof <Cecil@decebal.nl> writes:

> I have defined the following function:
>     (defun buffer-update-mode-line ()
>       (setq buffer-mode-line (buffer-mode-line-extra))
>       (force-mode-line-update t))
>
> The function buffer-mode-line-extra gives the extra data I want to
> display in the modeline.
>
> It is called every minute with:
>     (run-with-timer 60 60 'buffer-update-mode-line)
>
> With this only the modeline of the current buffer is updated. In
> principal (force-mode-line-update t) makes all modelines updated, but
> that will only work if for every (visible) buffer buffer-mode-line is
> updated with the function buffer-mode-line-extra. Is there a way to get
> this done?

(defun displayed-buffer-list (&optional all-frames)
  (flet ((fn (buf) (get-buffer-window buf all-frames)))
    (remove-if-not #'fn (buffer-list))))

ap