ERC技巧一则

所谓“来电提醒”。


(add-hook 'erc-insert-pre-hook

          '(lambda (msg-str)


             (if (and (string= erc-session-server "127.0.0.1")

                      (string-match "^<" msg-str)


                      (not (string-match "^<root>"

                                         (propertize msg-str 'face nil))))

                 (play-sound-file "~/.emacs.d/hi.au"))


             t))