Introducing faces to mode-line-buffer-identification

[Heime <heimeborgia@protonmail.com>]

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))))))