如何在Emacs执行C-x C-f时缩写主目录路径

嘿，我刚好碰到过一模一样的需求！要把/mnt/dutiaw4/aw/fmario/work/file.txt这种冗长的主目录路径自动替换成~/work/file.txt，其实有几种简单的实现方式，看你习惯哪种：

方法一：用内置的ido-mode（最推荐） #

Emacs的ido-mode不仅能大幅优化文件查找的交互体验，还会自动把你的主目录路径替换成~，完全不用自己写复杂配置。

只需要在你的init.el（或者~/.emacs）里加几行代码：

;; 开启ido模式
(ido-mode 1)
;; 可选：开启模糊匹配，输入部分字符就能定位文件，效率更高
(setq ido-enable-flex-matching t)

保存配置重启Emacs后，再按C-x C-f，你会发现主目录的长路径已经自动变成~了，而且文件查找的流畅度也会提升不少。

方法二：先确认Emacs识别你的主目录 #

首先得确保Emacs知道/mnt/dutiaw4/aw/fmario是你的主目录。你可以在Emacs里按M-x，输入getenv "HOME"回车，看看输出是不是这个路径。

如果识别不对，就在配置文件里手动指定：

(setq user-home-directory "/mnt/dutiaw4/aw/fmario")

方法三：自定义函数替换路径（不用ido的话） #

如果你不想用ido模式，也可以写个简单的函数来自动替换路径。把下面的代码加到你的配置文件里：

;; 定义替换主目录为~的函数
(defun shorten-home-path (path)
  (replace-regexp-in-string (regexp-quote user-home-directory) "~" path t t))

;; 打开文件时自动替换buffer顶部的路径显示
(add-hook 'find-file-read-only-hook
          (lambda ()
            (setq buffer-file-name (shorten-home-path buffer-file-name))))

;; 让minibuffer里的路径提示也显示缩写
(add-hook 'minibuffer-setup-hook
          (lambda ()
            (when (eq this-command 'find-file)
              (let ((current-path (minibuffer-contents)))
                (delete-minibuffer-contents)
                (insert (shorten-home-path current-path))))))

这个函数会自动把所有出现主目录的地方替换成~，不管是minibuffer里的输入提示，还是buffer顶部的路径显示。

内容的提问来源于stack exchange，提问作者Fernando