Graphics Pack for Emacs

Question

Does anyone know any graphic funeral services for Emacs? I would like to have the path to the file that I am editing now, somewhere on top.

Answer 1

How about this:

(defun my-breadcrumb (path) "Return path in a breadcrumb format." (mapconcat 'identity (split-string path (char-to-string directory-sep-char) t) " > ")) (setq frame-title-format '(buffer-file-name (:eval (my-breadcrumb buffer-file-name)) (dired-directory (:eval (my-breadcrumb dired-directory)) ("%b")))) 

Answer 2

Not a pack, but I have a buffer name and a path file in the window line:

(setq frame-title-format '(buffer-file-name "Emacs : %b ( %f )" "Emacs: %b"))