ファイルを保存した時にFlymakeの結果をGrowlで通知する

flymakeでエラーが検出されると通知される奴は自分には少しアクティブすぎたので保存した段階でエラーが検出されると通知されるようにした。

(when (executable-find "growlnotify")
  (defun flymake-growlnotify ()
    (let ((count (length flymake-err-info)))
      (when (> count 0)
        (dolist (err-info flymake-err-info)
          (let* ((line    (car err-info))
                 (text    (flymake-ler-text (caadr err-info)))
                 (title   (concat (buffer-name (current-buffer)) ":" (int-to-string line))))
            (start-process-shell-command "emacs-flymake" nil "growlnotify"
                                         "-a" "Emacs" "-n" "'Emacs - Flymake'" "-p" "2" "-s"
                                         "-t" title "-m" (shell-quote-argument text)))))))
  (add-hook 'after-save-hook 'flymake-growlnotify))

後会社ではimacで開発してるのでGrowlでEmacs - Flymakeの通知をMusic Videoにするとかなり目立つのでオススメ

flymake-after-save-hookが反応しなかったので普通にafter-save-hookで書いているけど想像したhookとは別なのだろうか。