[beirc-cvs] CVS beirc

[rgoldman]

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