;ELC ;;; Compiled by heimdall@baldur on Fri Feb 1 18:35:00 2008 ;;; from file /home/heimdall/repos/emms/emms-volume.el ;;; in Emacs version 23.0.60.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`emms-volume.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\210\300\303!\210\304\305\306\307\310\301%\207" [require emms emms-playlist-mode emms-volume-amixer custom-declare-group emms-volume nil "Volume setting for EMMS." :group] 6) #@106 *The function to use to change the volume. If you have your own functions for changing volume, set this. (custom-declare-variable 'emms-volume-change-function ''emms-volume-amixer-change '(#$ . -795) :type '(choice (const :tag "Amixer" emms-volume-amixer-change) (const :tag "MPD" emms-volume-mpd-change) (function :tag "Lisp function")) :group 'emms-volume) #@124 The amount to use when raising or lowering the volume using the emms-volume interface. This should be a positive integer. (custom-declare-variable 'emms-volume-change-amount '2 '(#$ . 1161) :type 'integer :group 'emms-volume) #@27 Raise the speaker volume. (defalias 'emms-volume-raise #[nil " !\207" [emms-volume-change-function emms-volume-change-amount] 2 (#$ . 1394) nil]) #@27 Lower the speaker volume. (defalias 'emms-volume-lower #[nil " [!\207" [emms-volume-change-function emms-volume-change-amount] 2 (#$ . 1547) nil]) (byte-code "\301\302\303#\210\301\304\305#\207" [emms-playlist-mode-map define-key "+" emms-volume-raise "-" emms-volume-lower] 4) #@126 Non-nil if Emms-Volume minor mode is enabled. See the command `emms-volume-minor-mode' for a description of this minor mode. (custom-declare-variable 'emms-volume-minor-mode 'nil '(#$ . 1835) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'emms-volume-minor :type 'boolean) #@64 Allows volume setting with + and - after an initial key combo. (defalias 'emms-volume-minor-mode #[(&optional arg) "\303  \304=\203\n?\202( \203\305 !\306V\202(\n\204\"\307\202(\310\311\302\"\210\312\313\314\n\2033\315\2024\316\"\210\317 \203X\320\302!\210\303 \203K\303 \232\203X\310\321\n\203U\322\202V\323\"\210)\324 \210\n\207" [#1=#:last-message arg emms-volume-minor-mode current-message toggle prefix-numeric-value 0 t message "Toggling %s off; better pass an explicit argument." nil run-hooks emms-volume-minor-mode-hook emms-volume-minor-mode-on-hook emms-volume-minor-mode-off-hook called-interactively-p customize-mark-as-set "Emms-Volume minor mode %sabled" "en" "dis" force-mode-line-update] 3 (#$ . 2142) (list (or current-prefix-arg 'toggle))]) #@38 Keymap for `emms-volume-minor-mode'. (defvar emms-volume-minor-mode-map (byte-code "\301\302!\203\f\202<\203\303!\202\304\305\301\")\207" [m (("+" . emms-volume-mode-plus) ("-" . emms-volume-mode-minus)) keymapp easy-mmode-define-keymap error "Invalid keymap %S"] 3) (#$ . 2926)) (add-minor-mode 'emms-volume-minor-mode " (+/-)" emms-volume-minor-mode-map) #@69 *The timeout in amount of seconds used by `emms-volume-minor-mode'. (defvar emms-volume-mode-timeout 2 (#$ . -3301)) #@42 The timer `emms-volume-minor-mode' uses. (defvar emms-volume-mode-timer nil (#$ . 3424)) #@73 Raise volume and enable or extend the `emms-volume-minor-mode' timeout. (defalias 'emms-volume-mode-plus #[nil "\300 \210\301 \207" [emms-volume-raise emms-volume-mode-start-or-extend] 1 (#$ . 3519) nil]) #@73 Lower volume and enable or extend the `emms-volume-minor-mode' timeout. (defalias 'emms-volume-mode-minus #[nil "\300 \210\301 \207" [emms-volume-lower emms-volume-mode-start-or-extend] 1 (#$ . 3730) nil]) #@41 Disable `emms-volume-minor-mode' timer. (defalias 'emms-volume-mode-disable-timer #[nil "\301!\210\302\211\207" [emms-volume-mode-timer cancel-timer nil] 2 (#$ . 3942)]) #@43 Set a new `emms-volume-minor-mode' timer. (defalias 'emms-volume-mode-set-timer #[nil "\203\302 \210\303 \304\305#\211\207" [emms-volume-mode-timer emms-volume-mode-timeout emms-volume-mode-disable-timer run-at-time nil emms-volume-mode-timer-timeout] 4 (#$ . 4120)]) #@58 Function to disable `emms-volume-minor-mode' at timeout. (defalias 'emms-volume-mode-timer-timeout #[nil "\301\302\303!\207" [emms-volume-mode-timer nil emms-volume-minor-mode -1] 2 (#$ . 4398)]) #@60 Start `emms-volume-minor-mode' or extend its running time. (defalias 'emms-volume-mode-start-or-extend #[nil "\204\300\301!\210\302 \207" [emms-volume-minor-mode 1 emms-volume-mode-set-timer] 2 (#$ . 4601)]) (provide 'emms-volume)