Changes to mode-line-format for non-truncated buffer identification

[Heime <heimeborgia@protonmail.com>]

I want to change the modeline so that the buffer identification 
is not truncated.  Have copied the text properties from position 
0, and set 'local-map . Finally changing mode-line-format.

I am doing things correctly this way, or does the code require changes?

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

(defun vodil-face ()
  (if (mode-line-window-selected-p)
        'vodil-active-facespk
    'vodil-inaktv-facespk))

(defface vodil-mouse-facespk
  `((t :background ,vodil-white
       :foreground ,vodil-orange-red)))

(defun vodil-bfgestion ()
  (format-mode-line mode-line-buffer-identification))

(defun vodil-properties ()
  (text-properties-at 0 (vodil-bfgestion)))

(defvar-local vodil-panel
  '(:eval
      (let ((propiets (vodil-properties)))
        (apply 'propertize
          (vodil-buffer-name)
          (append propiets
            (list 'face (vodil-face)
                  'mouse-face 'vodil-mouse-facespk
                  'local-map
                    (get-text-property 0 'local-map
                      (vodil-bfgestion))))))))

  (setq-default mode-line-format '( "%e" vodil-panel))