Re: Introducing faces to mode-line-buffer-identification

[Heime <heimeborgia@protonmail.com>]

On Tuesday, July 30th, 2024 at 6:42 PM, Heime <heimeborgia@protonmail.com> wrote:

> I have two faces, one for the active and another for an inactive window.
> 
> (defface bfnap-facespk
> `((t :background ,vodil-orange-red :foreground ,vodil-white :inherit mode-line-buffer-id)) "Face for the modeline buffer identification name.") (defface inaktv-facespk` ((t :background ,vodil-dark-gray
> :foreground ,vodil-light-gray))
> "Face for displaying the Modeline in the Inactive Window.")
> 
> (defun bfnap-face ()
> "Return the appropriate face for the mode line based on window
> selection."
> 
> (if (mode-line-window-selected-p)
> 'bfnap-facespk
> 'inaktv-facespk))
> 
> I want to adapt this customisation of the modeline buffer identification
> to use different background and foreground colours.
> 
> (setq-default mode-line-buffer-identification
> `(:eval
> (let* ( (bfnm (buffer-name (window-buffer)))
> (tknm (if (> (length bfnm) ,wmax)
> 
> (vodilac-ellipses bfnm ,wmax ,actm)
> bfnm)) )
> 
> (propertized-buffer-identification (format " %s " tknm))))))


Have been scrutinising the application of propertize, 
though the face is not changing.

  (setq-default mode-line-buffer-identification
    `(:eval
        (let* ( (bfnm (buffer-name (window-buffer)))
                (tknm (if (> (length bfnm) ,wmax)
                          (vodil-ellipses bfnm ,wmax ,actm)
                        bfnm)) )

          (list (propertized-buffer-identification
                  (propertize (format " %s " tknm)
                              'face (bfnap-face)))) ))) )