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

Modified Files: sound-player.lisp Log Message: Removed the post-message-hook definition, making this file essentially standalone. Simplifies dependencies.

--- /project/beirc/cvsroot/beirc/sound-player.lisp 2006/04/09 09:32:42 1.3 +++ /project/beirc/cvsroot/beirc/sound-player.lisp 2006/04/19 21:21:41 1.4 @@ -76,15 +76,3 @@ (with-open-file (from from-file) (cl-fad:copy-stream from to-stream)))

-;;;--------------------------------------------------------------------------- -;;; 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*)))