讓Emacs shell命令發(fā)送桌面通知
我總是使用 Eshell 來與操作系統(tǒng)進(jìn)行交互,因?yàn)樗c Emacs 無縫整合、支持處理 (遠(yuǎn)程) TRAMP 文件,而且在 Windows 上也能工作得很好。
啟動(dòng) shell 命令后 (比如耗時(shí)嚴(yán)重的構(gòu)建任務(wù)) 我經(jīng)常會(huì)由于切換緩沖區(qū)而忘了追蹤任務(wù)的運(yùn)行狀態(tài)。
多虧了 Emacs 的 鉤子 機(jī)制,你可以配置 Emacs 在某個(gè)外部命令完成后調(diào)用一個(gè) elisp 函數(shù)。
我使用 John Wiegleys 所編寫的超棒的 alert 包來發(fā)送桌面通知:
(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 的規(guī)則可以用程序來設(shè)置。就我這個(gè)情況來看,我只需要當(dāng)對(duì)應(yīng)的緩沖區(qū)不可見時(shí)得到通知:
(alert-add-rule :status '(buried) ;only send alert when buffer not visible
:mode 'eshell-mode
:style 'notifications)
這甚至對(duì)于 TRAMP 也一樣生效。下面這個(gè)截屏展示了失敗的 make
命令產(chǎn)生的 Gnome 桌面通知。