如何在Emacs中创建含filename变量的带参自定义Shell命令？

嘿，这个需求我太熟了！之前折腾Emacs的时候经常需要自己写这种自定义Shell命令，其实用interactive配合shell-command就能轻松搞定，我给你拆解成两个场景来讲：

一、基础版：创建带用户输入参数的自定义Shell命令 #

如果只是需要让用户手动输入参数来运行Shell命令，比如自定义一个带参数的ls，可以这么写：

(defun my-custom-ls ()
  "运行带自定义参数的ls命令"
  (interactive "(s 请输入ls的参数: )")
  (shell-command (concat "ls " argument)))

解释一下：

• interactive "(s 请输入ls的参数: )"：这里的(s ...)会弹出一个输入框让你输入参数，输入的内容会自动存到argument变量里
• 然后用concat把固定命令和参数拼起来，传给shell-command执行就行

二、进阶版：传入filename变量并拼接命令 #

这正是你要的场景——通过interactive获取文件名，存成变量再拼接命令。这里分两种情况：

情况1：让用户手动选择文件 #

如果需要让用户选择某个文件来执行命令，比如用clang-format格式化文件：

(defun my-format-selected-file ()
  "用clang-format格式化选中的文件"
  (interactive "f 请选择要格式化的文件: ")
  ;; 这里的`filename`就是interactive传入的选中文件路径
  (let ((full-cmd (concat "clang-format -i " (shell-quote-argument filename))))
    (shell-command full-cmd)
    (message "已执行命令: %s" full-cmd)))

这里要注意shell-quote-argument——如果文件名里有空格或者特殊字符，用它转义一下能避免Shell报错，非常实用！

情况2：直接用当前Buffer的文件 #

如果想直接对当前打开的文件执行命令，不用手动选择，就用%f格式：

(defun my-format-current-file ()
  "格式化当前Buffer对应的文件"
  (interactive "%f")
  (shell-command (concat "clang-format -i " (shell-quote-argument filename)))
  (revert-buffer t t t) ; 格式化后自动刷新Buffer，看到最新内容
  (message "当前文件已完成格式化"))

这里interactive "%f"会自动把当前Buffer关联的文件路径赋值给filename变量，直接拿来用就好。

额外小技巧 #

如果想让命令异步执行（不卡住Emacs），把shell-command换成async-shell-command就行，体验会更流畅。

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