Mercurial > emacs
comparison lisp/gnus/gnus-audio.el @ 31716:9968f55ad26e
Update to emacs-21-branch of the Gnus CVS repository.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Tue, 19 Sep 2000 13:37:09 +0000 |
| parents | 15fc6acbae7a |
| children | bc12cef85a10 |
comparison
equal
deleted
inserted
replaced
| 31715:7c896543d225 | 31716:9968f55ad26e |
|---|---|
| 45 | 45 |
| 46 (defvar gnus-audio-wav-player "/usr/local/bin/play" | 46 (defvar gnus-audio-wav-player "/usr/local/bin/play" |
| 47 "Executable program for playing WAV files.") | 47 "Executable program for playing WAV files.") |
| 48 | 48 |
| 49 ;;; The following isn't implemented yet. Wait for Millennium Gnus. | 49 ;;; The following isn't implemented yet. Wait for Millennium Gnus. |
| 50 ;(defvar gnus-audio-effects-enabled t | 50 ;;(defvar gnus-audio-effects-enabled t |
| 51 ; "When t, Gnus will use sound effects.") | 51 ;; "When t, Gnus will use sound effects.") |
| 52 ;(defvar gnus-audio-enable-hooks nil | 52 ;;(defvar gnus-audio-enable-hooks nil |
| 53 ; "Functions run when enabling sound effects.") | 53 ;; "Functions run when enabling sound effects.") |
| 54 ;(defvar gnus-audio-disable-hooks nil | 54 ;;(defvar gnus-audio-disable-hooks nil |
| 55 ; "Functions run when disabling sound effects.") | 55 ;; "Functions run when disabling sound effects.") |
| 56 ;(defvar gnus-audio-theme-song nil | 56 ;;(defvar gnus-audio-theme-song nil |
| 57 ; "Theme song for Gnus.") | 57 ;; "Theme song for Gnus.") |
| 58 ;(defvar gnus-audio-enter-group nil | 58 ;;(defvar gnus-audio-enter-group nil |
| 59 ; "Sound effect played when selecting a group.") | 59 ;; "Sound effect played when selecting a group.") |
| 60 ;(defvar gnus-audio-exit-group nil | 60 ;;(defvar gnus-audio-exit-group nil |
| 61 ; "Sound effect played when exiting a group.") | 61 ;; "Sound effect played when exiting a group.") |
| 62 ;(defvar gnus-audio-score-group nil | 62 ;;(defvar gnus-audio-score-group nil |
| 63 ; "Sound effect played when scoring a group.") | 63 ;; "Sound effect played when scoring a group.") |
| 64 ;(defvar gnus-audio-busy-sound nil | 64 ;;(defvar gnus-audio-busy-sound nil |
| 65 ; "Sound effect played when going into a ... sequence.") | 65 ;; "Sound effect played when going into a ... sequence.") |
| 66 | 66 |
| 67 | 67 |
| 68 ;;;###autoload | 68 ;;;###autoload |
| 69 ;(defun gnus-audio-enable-sound () | 69 ;;(defun gnus-audio-enable-sound () |
| 70 ; "Enable Sound Effects for Gnus." | 70 ;; "Enable Sound Effects for Gnus." |
| 71 ; (interactive) | 71 ;; (interactive) |
| 72 ; (setq gnus-audio-effects-enabled t) | 72 ;; (setq gnus-audio-effects-enabled t) |
| 73 ; (gnus-run-hooks gnus-audio-enable-hooks)) | 73 ;; (gnus-run-hooks gnus-audio-enable-hooks)) |
| 74 | 74 |
| 75 ;;;###autoload | 75 ;;;###autoload |
| 76 ;(defun gnus-audio-disable-sound () | 76 ;(defun gnus-audio-disable-sound () |
| 77 ; "Disable Sound Effects for Gnus." | 77 ;; "Disable Sound Effects for Gnus." |
| 78 ; (interactive) | 78 ;; (interactive) |
| 79 ; (setq gnus-audio-effects-enabled nil) | 79 ;; (setq gnus-audio-effects-enabled nil) |
| 80 ; (gnus-run-hooks gnus-audio-disable-hooks)) | 80 ;; (gnus-run-hooks gnus-audio-disable-hooks)) |
| 81 | 81 |
| 82 ;;;###autoload | 82 ;;;###autoload |
| 83 (defun gnus-audio-play (file) | 83 (defun gnus-audio-play (file) |
| 84 "Play a sound through the speaker." | 84 "Play a sound through the speaker." |
| 85 (interactive) | 85 (interactive) |
| 102 nil | 102 nil |
| 103 sound-file))))))) | 103 sound-file))))))) |
| 104 | 104 |
| 105 | 105 |
| 106 ;;; The following isn't implemented yet, wait for Red Gnus | 106 ;;; The following isn't implemented yet, wait for Red Gnus |
| 107 ;(defun gnus-audio-startrek-sounds () | 107 ;;(defun gnus-audio-startrek-sounds () |
| 108 ; "Enable sounds from Star Trek the original series." | 108 ;; "Enable sounds from Star Trek the original series." |
| 109 ; (interactive) | 109 ;; (interactive) |
| 110 ; (setq gnus-audio-busy-sound "working.au") | 110 ;; (setq gnus-audio-busy-sound "working.au") |
| 111 ; (setq gnus-audio-enter-group "bulkhead_door.au") | 111 ;; (setq gnus-audio-enter-group "bulkhead_door.au") |
| 112 ; (setq gnus-audio-exit-group "bulkhead_door.au") | 112 ;; (setq gnus-audio-exit-group "bulkhead_door.au") |
| 113 ; (setq gnus-audio-score-group "ST_laser.au") | 113 ;; (setq gnus-audio-score-group "ST_laser.au") |
| 114 ; (setq gnus-audio-theme-song "startrek.au") | 114 ;; (setq gnus-audio-theme-song "startrek.au") |
| 115 ; (add-hook 'gnus-select-group-hook 'gnus-audio-startrek-select-group) | 115 ;; (add-hook 'gnus-select-group-hook 'gnus-audio-startrek-select-group) |
| 116 ; (add-hook 'gnus-exit-group-hook 'gnus-audio-startrek-exit-group)) | 116 ;; (add-hook 'gnus-exit-group-hook 'gnus-audio-startrek-exit-group)) |
| 117 ;;;*** | 117 ;;;*** |
| 118 | 118 |
| 119 (defvar gnus-startup-jingle "Tuxedomoon.Jingle4.au" | 119 (defvar gnus-startup-jingle "Tuxedomoon.Jingle4.au" |
| 120 "Name of the Gnus startup jingle file.") | 120 "Name of the Gnus startup jingle file.") |
| 121 | 121 |