erc-help

[Erc-help] erc-play-sound

[Adam D. <du...@in...>]

Well, I don't have write-access to CVS and I also don't know what to
do with it if I had it. I've inserted some code into `erc-play-sound'
that makes my life with XEmacs on WinXP easier...

    (cond ((and filepath (file-exists-p filepath))
	   (if (and (boundp (device-sound-enabled-p))
		    (device-sound-enabled-p))
	       (play-sound-file filepath)
	     (start-process "erc-sound" nil "/bin/tcsh"  "-c"
			    (concat erc-play-command " " filepath))))
	  (t (beep)))

All I'm trying to say is: _please_ include this into erc.el :-).

Bye. Adam.
-- 
 Adam Duck (du...@cs...)
 Bockenheimer Landstr. 135 / Zi. 211
 60325 Frankfurt/Main
______________________________________

If it's zero degrees outside today and it's supposed to be twice
as cold tomorrow, how cold is it going to be?

Re: [Erc-help] erc-play-sound

[Mario L. <ml...@ho...>]

Adam Duck <du...@in...> writes:

> Well, I don't have write-access to CVS and I also don't know what to
> do with it if I had it. I've inserted some code into `erc-play-sound'
> that makes my life with XEmacs on WinXP easier...
> 
>     (cond ((and filepath (file-exists-p filepath))
> 	   (if (and (boundp (device-sound-enabled-p))
depending on if in XEmacs, device-sound-enabled-p is a function or a variable,
I am 1quite sure you want to do either:
(boundp 'device-sound-enabled-p)
or
(fboundp 'device-sound-enabled-p)

Your code returns t in all cases,
because it checks if either t or nil, the return values
or device-sound-enabled-p are bound, And t and nil are always
bound in emacs lisp.

so, question remaining is: If device-sound-enabled-p a function, or a variable?

> 		    (device-sound-enabled-p))
> 	       (play-sound-file filepath)

another remaining question is: do you really want this? I mean, is play-sound-file in XEmacs non-blocking, or not? If not, be warned
that emacs is unresponsive while the soundfile is played.

-- 
CYa,
   Mario <ml...@de...>
Homepage(s): http://delysid.org | http://piss.at/

"I don't think so," said Ren'e Descartes.  Just then, he vanished.

Re: [Erc-help] erc-play-sound

[Adam D. <du...@in...>]

>>>>> "Mario" == Mario Lang <ml...@ho...> writes:

    Mario> depending on if in XEmacs, device-sound-enabled-p is a
    Mario> function or a variable, I am 1quite sure you want to do
    Mario> either: (boundp 'device-sound-enabled-p) or (fboundp
    Mario> 'device-sound-enabled-p)

    Mario> Your code returns t in all cases, because it checks if
    Mario> either t or nil, the return values or
    Mario> device-sound-enabled-p are bound, And t and nil are always
    Mario> bound in emacs lisp.

    Mario> so, question remaining is: If device-sound-enabled-p a
    Mario> function, or a variable?

Yes, you're right.
---
`device-sound-enabled-p' is a built-in function
(device-sound-enabled-p &optional DEVICE)

Documentation:
Return t if DEVICE is able to play sound.  Defaults to selected device.
---
So it has to be "(fboundp 'device-sound-enabled-p)". I apologise, but
I thought I had tested it with Emacs21. Strangely, it returned `nil'
when I evaluated "(boundp (device-sound-enabled-p))".
But even more strange: I can't reproduce this now ;-).

    >> (device-sound-enabled-p)) (play-sound-file filepath)

    Mario> another remaining question is: do you really want this? I
    Mario> mean, is play-sound-file in XEmacs non-blocking, or not? If
    Mario> not, be warned that emacs is unresponsive while the
    Mario> soundfile is played.

Yes, I'd really like to have this feature, as this is my (nearly) only
chance to get sound in Windows. This function does not hang XEmacs -
at least not (emacs-version) "XEmacs 21.5  (beta2) \"artichoke\"
[Lucid] (i586-pc-win32) of Sun Aug 05 2001 on NEVERYON". I tried it
with "baywatch_full.wav" and I could type while it was playing.
So I suppose it doesn't do that in other versions, too (I've been using
XEmacs for 3 years now - starting with 21.1 - and I've never seen
another behaviour).
If you have other disbelieves: Let me know. But I really think it's a
big advantage for XEmacs-users (especially on MS-Windows).

Bye. Adam.
-- 
 Adam Duck (du...@cs...)
 Bockenheimer Landstr. 135 / Zi. 211
 60325 Frankfurt/Main
______________________________________

I considered atheism but there weren't enough holidays.