Emacs如何为minibuffer路径操作定义多场景通用别名？

以下配置可实现你需要的全场景路径别名效果，无需依赖书签功能，适配所有带文件路径补全的命令，含ivy场景下的org-insert-link文件链接插入场景。

完整配置代码 #

;; 自定义路径别名映射，可按需求增减
(setq my-path-aliases
      '(("myalias" . "~/config-git-repo/")
        ("workdir" . "~/Documents/work/")
        ("proj" . "~/projects/personal/")))

;; 处理minibuffer路径别名展开+自动清除预填路径
(defun my-expand-path-alias ()
  (when (and minibuffer-completing-file-name
             (stringp (minibuffer-contents)))
    (let* ((input (string-trim (minibuffer-contents)))
           (match (assoc input my-path-aliases #'string=)))
      (when match
        (delete-minibuffer-contents)
        (insert (cdr match))))))

;; 绑定到补全/确认前触发，适配原生补全
(add-hook 'minibuffer-complete-hook #'my-expand-path-alias)
(add-hook 'minibuffer-accept-hook #'my-expand-path-alias)

;; 适配ivy补全场景
(with-eval-after-load 'ivy
  (defun ivy-my-expand-alias (x)
    (if (and (bound-and-true-p ivy-read-action)
             (eq (car ivy-read-action) 'file))
        (let ((match (assoc x my-path-aliases #'string=)))
          (if match (cdr match) x))
      x))
  (advice-add 'ivy-completion-in-region :filter-return #'ivy-my-expand-alias)
  (add-hook 'ivy-accept-hook #'my-expand-path-alias))

效果说明 #

• 所有调用文件路径补全的命令均生效，包括find-file、copy-file、org-insert-link（文件类型）等场景
• 输入别名后会自动清空minibuffer内预先填充的默认路径，直接替换为别名对应的完整路径
• 你提到的示例场景可直接实现：M-x copy-file RET ~/.emacs RET myalias 输入后会自动展开为~/config-git-repo/，补全选择.emacs即可完成和原命令完全一致的操作
• 别名仅在路径补全场景触发，不会影响普通minibuffer输入

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