← Back to branch summary

~ubuntu-branches/ubuntu/natty/sawfish/natty

« back to all changes in this revision

Viewing changes to lisp/sawfish/wm/ext/audio-events.jl

  • Committer: Bazaar Package Importer
  • Author(s): Luis Rodrigo Gallardo Cruz
  • Date: 2009-11-23 09:05:20 UTC
  • mfrom: (0.1.1 upstream)
  • mto: This revision was merged to the branch mainline in revision 17.
  • Revision ID: james.westby@ubuntu.com-20091123090520-m588qe37wtxzr2b5
Tags: upstream-1.5.3
Import upstream version 1.5.3

Show diffs side-by-side

added added

removed removed

Lines of Context:
lisp/sawfish/wm/ext/audio-events.jl
3
3
 
4
4
;; Copyright (C) 2000 John Harper <john@dcs.warwick.ac.uk>
5
5
 
6
 
;; This file is part of sawmill.
 
6
;; This file is part of sawfish.
7
7
 
8
 
;; sawmill is free software; you can redistribute it and/or modify it
 
8
;; sawfish is free software; you can redistribute it and/or modify it
9
9
;; under the terms of the GNU General Public License as published by
10
10
;; the Free Software Foundation; either version 2, or (at your option)
11
11
;; any later version.
12
12
 
13
 
;; sawmill is distributed in the hope that it will be useful, but
 
13
;; sawfish is distributed in the hope that it will be useful, but
14
14
;; WITHOUT ANY WARRANTY; without even the implied warranty of
15
15
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
16
16
;; GNU General Public License for more details.
17
17
 
18
18
;; You should have received a copy of the GNU General Public License
19
 
;; along with sawmill; see the file COPYING.  If not, write to
 
19
;; along with sawfish; see the file COPYING.  If not, write to
20
20
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
21
21
 
22
22
;;;###autoload (defgroup audio "Sound" :require sawfish.wm.ext.audio-events)
52
52
  ;; unmapped-transient, switch-workspace, move-viewport, focused,
53
53
  ;; unfocused
54
54
 
55
 
  (defcustom audio-events-alist '((iconified . "slide.wav")
56
 
                                  (uniconified . "slide.wav")
57
 
                                  (shaded . "slide.wav")
58
 
                                  (unshaded . "slide.wav")
59
 
                                  (maximized . "slide.wav")
60
 
                                  (unmaximized . "slide.wav")
61
 
                                  (mapped . "activate.wav")
62
 
                                  (unmapped . "gameover.wav")
63
 
                                  (mapped-transient . "activate.wav")
64
 
                                  (unmapped-transient . "toggled.wav")
65
 
                                  ;(focused . "clicked.wav")
66
 
                                  (switch-workspace . "toggled.wav")
67
 
                                  (move-viewport . "toggled.wav"))
 
55
  (defcustom audio-events-alist '((iconified . "iconify.wav")
 
56
                                  (uniconified . "uniconify.wav")
 
57
                                  (shaded . "shade.wav")
 
58
                                  (unshaded . "unshade.wav")
 
59
                                  (maximized . "maximize.wav")
 
60
                                  (unmaximized . "unmaximize.wav")
 
61
                                  (mapped . "map.wav")
 
62
                                  (unmapped . "unmap.wav")
 
63
                                  (mapped-transient . "map-transient.wav")
 
64
                                  (unmapped-transient . "unmap-transient.wav")
 
65
                                  ;(focused . "focused.wav")
 
66
                                  ;(unfocused . "unfocused.wav")
 
67
                                  (switch-workspace . "switch-workspace.wav")
 
68
                                  (move-viewport . "move-viewport.wav"))
68
69
    nil
69
70
    :type* `(alist ((symbol iconified uniconified
70
71
                            shaded unshaded