When flycheck detects errors, post desktop notification on Mac

flycheck-notification.el

(add-hook 'flycheck-status-changed-functions
	  (lambda (status)
	    (when (eq status 'finished)
	      (if(flycheck-has-current-errors-p 'error)
		(notification-center "flycheck ERROR")))))

;; Mavericksで Emacsからデスクトップ通知を使う
;; http://syohex.hatenablog.com/entry/20131025/1382712857
(defvar notification-center-title "Emacs")
(defun notification-center (msg)
  "HOGE MSG."
  (let ((tmpfile (make-temp-file "notification-center")))
    (with-temp-file tmpfile
      (insert
       (format "display notification \"%s\" with title \"%s\""
	       msg notification-center-title)))
    (unless (zerop (call-process "osascript" tmpfile))
      (message "Failed: Call AppleScript"))
    (delete-file tmpfile)))