Re: Changing colour face for mode-line-buffer-identification

[Heime <heimeborgia@protonmail.com>]

Sent with Proton Mail secure email.

On Sunday, July 28th, 2024 at 12:12 AM, Michael Heerdegen via Users list for the GNU Emacs text editor <help-gnu-emacs@gnu.org> wrote:

> Heime heimeborgia@protonmail.com writes:
> 
> > I know about faces, but how do I include a different face to
> > propertized-buffer-identification. Or is the face to be applied
> > from another function ?
> 
> 
> Calling `propertized-buffer-identification' returns a one-element list containing the propertized string.` propertize' that string again to
> change the face.
> 
> Unless the face should depend on the buffer or mode. This would be a
> different situation.
> 
> 
> Michael.

Have done this before but got an error

Debugger entered--Lisp error: (wrong-type-argument stringp (#(" %8b " 0 5 (face mode-line-buffer-id help-echo "Buffer name\nmouse-1: Previous buffer\nmouse-3: Next..." mouse-face mode-line-highlight local-map (keymap (header-line keymap (mouse-3 . mode-line-next-buffer) (down-mouse-3 . ignore) (mouse-1 . mode-line-previous-buffer) (down-mouse-1 . ignore)) (mode-line keymap (mouse-3 . mode-line-next-buffer) (mouse-1 . mode-line-previous-buffer)))))))
  propertize((#(" %8b " 0 5 (face mode-line-buffer-id help-echo

(defface vodil-bfname-facespk
  '((t :background "#ff4500"  ; Orange Red
       :foreground "#ffffff"  ; White
       :inherit bold))
  "Face for displaying the Buffer Name in the Modeline of the
Active Window.")

(defface vodil-inaktv-facespk
  `((t :background ,vodil-dark-gray     ; "#222222"
       :foreground ,vodil-light-gray))  ; "#888888"
  "Face for displaying the Modeline in the Inactive Window.")

(defun vodil-bfname-face ()
  "Return the appropriate face for the mode line based on window
selection."

  (if (mode-line-window-selected-p)
        'vodil-bfname-facespk
    'vodil-inaktv-facespk))

    (setq-default mode-line-buffer-identification
      (list wmax
            (propertize
              (propertized-buffer-identification
                (format " %%%db " wmin))
              'face (vodil-bfname-face)))) ))