Update of /project/beirc/cvsroot/beirc In directory clnet:/tmp/cvs-serv8352

Modified Files: post-message-hooks.lisp Log Message: Added the noisemaker post-message-hook definition, moved from sound-player.

--- /project/beirc/cvsroot/beirc/post-message-hooks.lisp 2006/04/07 01:42:56 1.2 +++ /project/beirc/cvsroot/beirc/post-message-hooks.lisp 2006/04/19 21:22:08 1.3 @@ -15,3 +15,15 @@ `(progn (defun ,hook-name (,message-var ,frame-var ,receiver-var ,@other-args &allow-other-keys) ,@body) (setf (gethash ',hook-name *post-message-hooks*) ',hook-name)))

+;;;--------------------------------------------------------------------------- +;;; If you set *default-sound-player* and *sound-for-my-nick* this +;;; should work... It leaves a lot to be desired. This should +;;; probably turn into some kind of general noisemaking interface... +;;; But this should get us thinking. [2006/03/24:rpg] +;;;--------------------------------------------------------------------------- +(define-post-message-hook noisemaker (msg frame receiver &key message-directed-to-me) + (declare (ignore msg frame receiver)) + (when (and message-directed-to-me + *sound-server-stream* + *sound-for-my-nick*) + (play-sound-file *sound-for-my-nick* *sound-server-stream*)))