1 ;; 09-sounds-sy.el --- Sound set up -*- Emacs-Lisp -*-
3 ;; Copyright (C) 2007 - 2013 Steve Youngs
5 ;; Author: Steve Youngs <steve@sxemacs.org>
6 ;; Maintainer: Steve Youngs <steve@sxemacs.org>
7 ;; Created: <2007-12-02>
8 ;; Time-stamp: <Friday Aug 16, 2013 13:05:54 steve>
9 ;; Download: <http://bastard.steveyoungs.com/~steve/SXEmacs/inits/>
10 ;; HTMLised: <http://bastard.steveyoungs.com/~steve/SXEmacs/htmlinits/09-sounds-sy.html>
11 ;; Git Repo: git clone http://git.sxemacs.org/syinit
12 ;; Keywords: init, compile
14 ;; This file is part of SYinit
16 ;; Redistribution and use in source and binary forms, with or without
17 ;; modification, are permitted provided that the following conditions
20 ;; 1. Redistributions of source code must retain the above copyright
21 ;; notice, this list of conditions and the following disclaimer.
23 ;; 2. Redistributions in binary form must reproduce the above copyright
24 ;; notice, this list of conditions and the following disclaimer in the
25 ;; documentation and/or other materials provided with the distribution.
27 ;; 3. Neither the name of the author nor the names of any contributors
28 ;; may be used to endorse or promote products derived from this
29 ;; software without specific prior written permission.
31 ;; THIS SOFTWARE IS PROVIDED BY THE AUTHOR "AS IS" AND ANY EXPRESS OR
32 ;; IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
33 ;; WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
34 ;; DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
35 ;; FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
36 ;; CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
37 ;; SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR
38 ;; BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
39 ;; WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE
40 ;; OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN
41 ;; IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
45 ;; Just sets up sound stuff.
50 ;; The HTML version of this file was created with Hrvoje Niksic's
51 ;; htmlize.el which is part of the XEmacs "text-modes" package.
59 ;:*=======================
60 ;:* Set default sound device
61 (when (getenv "DISPLAY") ; skip the lot if not in X11
62 (setq default-audio-device (make-audio-device 'pulse))
63 ;(setq default-audio-device (make-audio-device 'alsa))
65 (setq synchronous-sounds nil)
67 (setq bell-volume 100)
68 (when (device-sound-enabled-p)
69 (load-sound-file "low-smash" 'auto-save-error)
70 (load-sound-file "bark" 'command-error)
71 (load-sound-file "slap" 'undefined-key)
72 (load-sound-file "slap" 'undefined-click)
73 (load-sound-file "clink" 'no-completion)
74 (load-sound-file "bong" 'y-or-n-p)
75 (load-sound-file "explosion" 'yes-or-no-p)
76 (load-sound-file "drip" 'buffer-bound)
77 (load-sound-file "whip" 'read-only)
78 (load-sound-file "bass-snap" 'default)
79 (load-sound-file "yeep" 'quit)
80 (load-sound-file "drum-beep" 'isearch-failed)
81 (load-sound-file "bass-snap" 'isearch-quit)
82 (load-sound-file "slap" 'ready)
83 (load-sound-file "return" 'warp)
84 (load-sound-file "cuckoo" 'alarm))
86 ;:*::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
87 (if default-audio-device
88 (message "sounds loaded")
89 (message "sounds NOT loaded (OK if this is a TTY)"))