rcirc-print hook pour ratpoison

Ce hook pour rcirc permet de voir dans la barre de message de ratpoison quand quelqu'un vous notifie sur un canal. C'est un simple hack de rcircNickBeep.

; Show hilights from rcirc in ratpoison's message bar
(add-hook 'rcirc-print-hooks 'my-rcirc-print-rp-hook)
(defun my-rcirc-print-rp-hook (process sender response target text)
  (when (and (string-match (rcirc-nick process) text)
             (not (string= (rcirc-nick process) sender))
             (not (string= (rcirc-server-name process) sender)))
        (setq my-rcirc-rp-command (concat "ratpoison -c 'echo IRC: message from " sender "'"))
        (start-process-shell-command "foobar" nil my-rcirc-rp-command)))