Afficher le chemin complet du fichier ouvert dans la barre de fenêtre d'emacs

Dans la série, je m'amuse à customiser emacs, voici l'option à insérer dans le fichier .emacs pour que le chemin complet du fichier ouvert s'affiche dans la barre de titre de la fenêtre

;; format title bar to show full path of current file
(setq-default frame-title-format
   (list '((buffer-file-name " %f"
             (dired-directory
              dired-directory
              (revert-buffer-function " %b"
              ("%b - Dir:  " default-directory)))))))

Et voila le résultat