mode-line-buffer-identification without restriction on width of buffer name

mode-line-buffer-identification without restriction on width of buffer name

[Heime]

Have been trying to remove the format restriction on the width
of the buffer name, but I cannot simply replace 

(concat " " (format-mode-line mode-line-buffer-identification))

with

(vodilac-buffer-name)

The mouse click effect to move to previous and to next buffer 
would not work.

(defun vodilac-buffer-name ()
  "Return `buffer-name' with spaces around it."
  (format " %s " (buffer-name)))

(defface vodilac-bfname-rotatif-facespk
  '((t :background "#ff4500"  ; Orange Red
       :foreground "#ffffff"  ; White
       :inherit mode-line-buffer-id)))

(defface prevodilac-inaktv-facespk
  `((t :background ,vodilac-dark-gray      ; "#222222"
       :foreground ,vodilac-light-gray)))  ; "#888888"


(defun vodilac-name-rotatif-face ()

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


(defface vodilac-mouse-facespk
  `((t :background ,vodilac-white         ; "#222222"
       :foreground ,vodilac-orange-red))  ; "#888888"
  "Face for Mouse Hover Effect in Modeline.")

(defvar-local vodilac-panelit-name-rotatif
  '(:eval
      (propertize
        (concat " " (format-mode-line mode-line-buffer-identification))
        'face (vodilac-name-rotatif-face)
        'mouse-face 'vodilac-mouse-facespk
        'help-echo "Click to select buffer")))

(put 'vodilac-panelit-name-rotatif 'risky-local-variable t)