Riece + notify-send でIRCのチャンネル、発言者、発言を通知する

タイトルのまんま。
きっかけはWinでLimeChatを使ったときに羨ましく思ったから。
ちなみに発言は基本的に全部見たいので、キーワードで絞ったりはしていない。
もとにしたのは参考URLから。と言ってもチャンネルと発言者を取る以外は同じだけど。

~/.riece/init に

(add-hook 'riece-message-filter-functions 'riece-popup-message)

(defun riece-popup-message (message)
  (let ((speaker (riece-format-identity (riece-message-speaker message) t))
        (text (riece-message-text message))
        (channel (riece-identity-prefix (riece-message-target message))))
    (call-process-shell-command
     (concat "notify-send -t 8000 " "'<" channel "> " speaker  "' " text)))
  message)

【参考URL】
http://emacs.g.hatena.ne.jp/k1LoW/20080904/1220530129