1 |
;;; gnus-audio.el --- sound effects for Gnus |
;;; gnus-audio.el --- Sound effects for Gnus |
2 |
;; Copyright (C) 1996, 2000 Free Software Foundation |
;; Copyright (C) 1996, 2000, 2003 Free Software Foundation |
3 |
|
|
4 |
;; Author: Steven L. Baur <steve@miranova.com> |
;; Author: Steven L. Baur <steve@miranova.com> |
5 |
;; Keywords: news, mail, multimedia |
;; Keywords: news, mail, multimedia |
47 |
:type '(choice directory (const nil)) |
:type '(choice directory (const nil)) |
48 |
:group 'gnus-audio) |
:group 'gnus-audio) |
49 |
|
|
50 |
(defcustom gnus-audio-au-player "/usr/bin/showaudio" |
(defcustom gnus-audio-au-player (executable-find "play") |
51 |
"Executable program for playing sun AU format sound files." |
"Executable program for playing sun AU format sound files." |
52 |
:group 'gnus-audio |
:group 'gnus-audio |
53 |
:type 'string) |
:type '(choice file (const nil))) |
54 |
|
|
55 |
(defcustom gnus-audio-wav-player "/usr/local/bin/play" |
(defcustom gnus-audio-wav-player (executable-find "play") |
56 |
"Executable program for playing WAV files." |
"Executable program for playing WAV files." |
57 |
:group 'gnus-audio |
:group 'gnus-audio |
58 |
:type 'string) |
:type '(choice file (const nil))) |
59 |
|
|
60 |
;;; The following isn't implemented yet. Wait for Millennium Gnus. |
;;; The following isn't implemented yet. Wait for Millennium Gnus. |
61 |
;;(defvar gnus-audio-effects-enabled t |
;;(defvar gnus-audio-effects-enabled t |
93 |
;;;###autoload |
;;;###autoload |
94 |
(defun gnus-audio-play (file) |
(defun gnus-audio-play (file) |
95 |
"Play a sound FILE through the speaker." |
"Play a sound FILE through the speaker." |
96 |
(interactive) |
(interactive "fSound file name: ") |
97 |
(let ((sound-file (if (file-exists-p file) |
(let ((sound-file (if (file-exists-p file) |
98 |
file |
file |
99 |
(expand-file-name file gnus-audio-directory)))) |
(expand-file-name file gnus-audio-directory)))) |