Emacs的图形面包屑

有人知道Emacs的图形面包屑吗？我想将当前正在编辑的文件的路径显示在顶部的某个位置。

这样如何：

(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"))))

---

不是面包屑，但我在窗口栏中有缓冲区名称和路径文件：

（setq帧标题格式（缓冲区文件名“Emacs:%b（%f）”“Emacs:%b”）