让Emacs shell命令发送桌面通知

我总是使用 Eshell 来与操作系统进行交互,因为它与Emacs无缝整合、支持处理 (远程) TRAMP 文件而且在Windows上也能工作得很好.

启动 shell 命令后 (比如耗时严重的构建任务) 我经常会由于切换buffer而忘了追踪任务的运行状态.

多亏了 Emacs 的 hooks 机制,你可以配置 Emacs 在某个外部命令完成后调用一个elisp函数.

我使用 John Wiegleys 所编写的超棒的 alert 包来发送桌面通知:

(require 'alert)

(defun eshell-command-alert (process status)
 "Send `alert' with severity based on STATUS when PROCESS finished."
 (let* ((cmd (process-command process))
     (buffer (process-buffer process))
     (msg (format "%s: %s" (mapconcat 'identity cmd " ") status)))
 (if (string-prefix-p "finished" status)
     (alert msg :buffer buffer :severity 'normal)
    (alert msg :buffer buffer :severity 'urgent))))

(add-hook 'eshell-kill-hook #'eshell-command-alert)

alert 的规则可以用程序来设置. 就我这个情况来看，我只需要当对应的buffer不可见时被通知:

(alert-add-rule :status '(buried) ;only send alert when buffer not visible
         :mode 'eshell-mode
         :style 'notifications)

这甚至对于 TRAMP 也一样生效. 下面这个截屏展示了失败的 make 命令产生的 Gnome 桌面通知.