help-gnu-emacs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Operation of format-mode-line


From: Heime
Subject: Re: Operation of format-mode-line
Date: Thu, 25 Jul 2024 17:27:38 +0000





Sent with Proton Mail secure email.

On Friday, July 26th, 2024 at 4:01 AM, Heime <heimeborgia@protonmail.com> wrote:

> 
> 
> 
> 
> 
> Sent with Proton Mail secure email.
> 
> 
> On Friday, July 26th, 2024 at 3:26 AM, Yuri Khan yuri.v.khan@gmail.com wrote:
> 
> > On Thu, 25 Jul 2024 at 20:20, Heime heimeborgia@protonmail.com wrote:
> > 
> > > I understand. propertized-buffer-identification has hardwired keymap etc
> > 
> > It hardwires the keymap to the value of the variable
> > ‘mode-line-buffer-identification-keymap’, but you are allowed to
> > modify that variable.
> > 
> > > and calling it only sets the format used for the buffer identification
> > > name.
> > 
> > I’m pretty sure it will set the format for whatever modeline
> > constructs you pass in.
> > 
> > That said, the function ‘propertized-buffer-identification’ is not
> > very complex; you can copy it and adapt for your custom modeline
> > parts.
> > 
> > (For myself, I’m not bothering with mouse bindings. Switching buffers
> > one step at a time only really works when you have three or so, and
> > that just does not happen. Switching between a few hundred buffers is
> > better done via IBuffer anyway.)
> 
> 
> Agreed, but since it is how buffer-identificoation works in the modeline, I 
> did
> not want to mess with it.

Have done as instructed

(defun vodil-bfnwidth (width)
  (setq mode-line-buffer-identification
        (propertized-buffer-identification (format "%%%db" width))))

(defvar vodil-deploy-bfname nil "")

(unless vodil-deploy-bfname
  (vodil-bfnwidth 5))

  (setq-default mode-line-format
    '( "%e"
            (:eval (if vodil-deploy-bfname
                        vodil-panelit-bfname
                     mode-line-buffer-identification)))) )

Still, I cannot see any difference in the buffer name width.



reply via email to

[Prev in Thread] Current Thread [Next in Thread]