| Paste number 1864: | notify me via a GNOME message box when someone wants to contact me |
| Pasted by: | bigmike160 |
| When: | 4 years, 11 months ago |
| Share: | Tweet this! | http://paste.lisp.org/+1FS |
| Channel: | #emacs |
| Paste contents: |
;;; Notify me when a keyword is matched (someone wants to reach me)
;;; Modify erc-keywords to contain the various permutations of your
;;; nick
(defvar my-notify-message "%s is calling your name!")
(defun my-erc-text-matched-stuff (match-type nick message)
(interactive)
(when (eq match-type 'keyword)
(shell-command
;; escape (') characters by turning them into ('"'"'), which
;; works for all shells i have tried so far
(concat "zenity --info --text '"
(replace-regexp-in-string
"'" "'\"'\"'"
(format my-notify-message nick))
"'"))))
(add-hook 'erc-text-matched-hook 'my-erc-text-matched-stuff)
This paste has no annotations.