[beirc-cvs] CVS beirc

[rgoldman]

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 , at other-args &allow-other-keys) , at 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*)))