在 EmacsWiki: Frame Title 找到了类似的代码,但是发现 buffer-file-name
的路径包含了 /Users/username/
,而文件夹的是 ~/
, 为了保持一致就改写了这段代码,顺便更新了一下 EmacsWiki。
还在学 Elisp,搞成功了还是蛮开心的,分享下以方便有用得上的朋友。
(setq frame-title-format
'(buffer-file-name (:eval (abbreviate-file-name buffer-file-name))
(dired-directory dired-directory "%b")))