Mavericksで Emacsからデスクトップ通知を使う

Bash - Mavericksでターミナルからパイプで通知だけするワンライナー - Qiita

の Emacs版

コード

(defvar notification-center-title "Emacs")

(defun notification-center (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)))

使い方

(notification-center "我が友「Emacs」")

;; ファイル名を開いたときにそれを通知する
(defun my/find-file-hook ()
  (notification-center (format "Open '%s'" (buffer-name))))
(add-hook 'find-file-hook 'my/find-file-hook)

あんまり有効的な利用方法が思いつきませんでした.