tox jabber-tox.el,1.23,1.24

[Magnus H. <leg...@us...>]

Update of /cvsroot/emacs-jabber/tox
In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv4216

Modified Files:
	jabber-tox.el 
Log Message:
Use any Ogg file we find, not the hard-coded path for my computer.


Index: jabber-tox.el
===================================================================
RCS file: /cvsroot/emacs-jabber/tox/jabber-tox.el,v
retrieving revision 1.23
retrieving revision 1.24
diff -u -d -r1.23 -r1.24
--- jabber-tox.el	3 Nov 2008 23:57:47 -0000	1.23
+++ jabber-tox.el	17 Nov 2008 23:39:44 -0000	1.24
@@ -50,6 +50,11 @@
 (defconst tox-session-interface "net.sourceforge.emacs_jabber.ToxSession"
   "Interface of ToxSession object.")
 
+(defvar tox-my-ogg-answering-machine (shell-command-to-string "locate '*.ogg' | head -1")
+  "The Ogg file to play to anyone who calls to us.
+This should go away once we have hooked up everything properly,
+with microphone and so on.  (Or maybe not...)")
+
 (define-fsm jingle
   :start ((jc sid role jid) "Start a Jingle FSM.
 \(Specifically, for Jingle Audio, as that's all we support for now.)
@@ -90,7 +95,7 @@
     (fsm-debug-output "About to call SetOggVorbisAudioSource")
     (dbus-call-method :session tox-name tox-session tox-session-interface
 		      "SetOggVorbisAudioSource"
-		      "/home/magnus/musik/computervirus.ogg")
+		      tox-my-ogg-answering-machine)
     ;; There, now we just wait for the NativeCandidatesPrepared signal...
     ;; NO!  Don't do like those dead people do!  That signal will never
     ;; come.  I don't know why, though...