terminal-notifierをEmacsから呼び出す． おまけでsayコマンドとかsaykanaコマンドも呼ぶ

osx-notify.el

;; call terminal-notifier
;; (osx-notify :title "Cat" :message "mew")
;; with say command
;; (osx-notify :title "Cat" :message "mew" :say "mee")
;; if you have saykana command you can use it
;; (osx-notify :title "Cat" :message "mew" :saykana "に'ゃー")

;; terminal-notifier
;;   sudo port install terminal-notifier
;; saykana
;;   http://www.a-aquest.com/aquestalk/saykana/

(require 'deferred)
(eval-when-compile
  (require 'cl))
(defun* osx-notify (&key (group "Emacs")
                         (title "Emacs terminal notifier") subtitle
                         (message "test") say saykana)
  (deferred:$
    (deferred:process "terminal-notifier"
      "-group" group
      "-title" title
      (if subtitle "-subtitle" "")
      (if subtitle subtitle "")
      "-message" message)
    (deferred:nextc it
      (when say
        (deferred:process "say" say)))
    (deferred:nextc it
      (when saykana
        (deferred:process "saykana" saykana)))))

(provide 'osx-notify)