Modeline face for inactive buffer

[Heime <heimeborgia@protonmail.com>]

I am setting mode-line-format, but want that the face
for an inactive buffer affects both the buffer name 
and the major-mode name.

Currently, for the inactive name the face for the
"%l:%c" part has some sort of blue hue.  What I 
would like to have is a the face that shows up 
for the buffer name (gray on gray).

(defun vodil-name-format ()
  (format " %s " (buffer-name)))

(defvar-local vodil-name
  '(:eval
      (let ( (vodil-face
               (if (mode-line-window-selected-p)
                     'vodil-active-face
                 'vodil-inactive-face)) )

        (propertize (vodil-name-format)
                      'face vodil-face))))

(put 'vodil-name 'risky-local-variable t)

(defun vodil-mode-name ()
  (capitalize (symbol-name major-mode)))

(defvar-local vodil-mode
  '(:eval
      (when (mode-line-window-selected-p)
        (list
          (propertize "λ" 'face 'bold)
          " "
          (propertize (vodil-mode-name) 'face 'bold)))))

(put 'vodil-mode 'risky-local-variable t)


(defun vodil-primitive ()

  (setq-default mode-line-format

    '("%e" vodil-name " " vodil-mode " " "%l:%c")))