需求:异步执行一系列shell命令,比如git add . && git commit -am "Update." && git push,不需要显示结果,也不要改布局,程序执行后做好清理。

分析:因为是shell命令,所以类似start-process的函数用起来不方便。比较容易想到的是async-shell-command,也就是M-&

尝试1:因为要「无痕」,所以直接用async-shell-command也不好,我想到的方法是设置display-buffer-alist让window不显示,同时设计一个在程序执行结束后关掉buffer的sentinel函数,代码类似下面的样子:

1
2
3
4
5
6
7
8
9
10
11
12
13
(defun kill-buffer-when-done (process signal)
(when (and (process-buffer process)
(memq (process-status process) '(exit signal)))
(message "%s: %s."
(car (cdr (cdr (process-command process))))
(substring signal 0 -1))
(kill-buffer (process-buffer process))))

(let ((display-buffer-alist
'(("\\*asyn\\*" display-buffer-no-window (nil))))
(async-shell-command-buffer 'new-buffer))
(async-shell-command "git add . && git commit -am \"Update.\" && git push" "*asyn*")
(set-process-sentinel (get-buffer-process "*asyn*") #'kill-buffer-when-done))

解决

其实一句话就可以了😂:

1
2
(call-process-shell-command
"cd ~/.emacs.d/; git add . && git commit -am \"Update.\" && git push" nil 0)

但还是有点不方便:没法看程序执行成功还是失败了。不管了,我只是想安静的执行shell命令,别的不管。