;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\306\307\310\311\312\301%\210\313\314\315\316\317DD\320\321\322%\210\313\323\315\316\324DD\325\321\326%\207" [require emms emms-playlist-mode emms-volume-amixer emms-volume-pulse emms-volume-mixerctl custom-declare-group emms-volume nil "Volume setting for EMMS." :group custom-declare-variable emms-volume-change-function funcall function #[0 "\300\301!\203\302\207\300\303!\203\304\207\300\305!\203\306\207\307\207" [executable-find "amixer" emms-volume-amixer-change "pactl" emms-volume-pulse-change "mixerctl" emms-volume-mixerctl-change #[257 "\300\301\302\"\207" [user-error "%s" "No supported mixer found. Please, define ‘emms-volume-change-function’."] 4 "\n\n(fn AMOUNT)"]] 2] "The function to use to change the volume.\nIf you have your own functions for changing volume, set this." :type (choice (const :tag "Amixer" emms-volume-amixer-change) (const :tag "MPD" emms-volume-mpd-change) (const :tag "PulseAudio" emms-volume-pulse-change) (const :tag "Mixerctl" emms-volume-mixerctl-change) (function :tag "Lisp function")) emms-volume-change-amount #[0 "\300\207" [2] 1] "The amount to use when raising or lowering the volume using the\nemms-volume interface.\n\nThis should be a positive integer." integer] 6) #@27 Raise the speaker volume. (defalias 'emms-volume-raise #[0 " !\207" [emms-volume-change-function emms-volume-change-amount] 2 (#$ . 1396) nil]) #@27 Lower the speaker volume. (defalias 'emms-volume-lower #[0 " [!\207" [emms-volume-change-function emms-volume-change-amount] 2 (#$ . 1547) nil]) (byte-code "\301\302\303#\210\301\304\305#\210\306\307\310\311\312DD\313\314\315\316\317\320\321& \207" [emms-playlist-mode-map define-key "+" emms-volume-raise "-" emms-volume-lower custom-declare-variable emms-volume-minor-mode funcall function #[0 "\300\207" [nil] 1] "Non-nil if Emms-Volume minor mode is enabled.\nSee the `emms-volume-minor-mode' command\nfor a description of this minor mode." :set custom-set-minor-mode :initialize custom-initialize-default :type boolean] 10) #@649 Allows volume setting with + and - after an initial key combo. This is a minor mode. If called interactively, toggle the `Emms-Volume minor mode' mode. If the prefix argument is positive, enable the mode, and if it is zero or negative, disable the mode. If called from Lisp, toggle the mode if ARG is `toggle'. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number. To check whether the minor mode is enabled in the current buffer, evaluate `(default-value 'emms-volume-minor-mode)'. The mode's hook is called both when the mode is enabled and when it is disabled. (fn &optional ARG) (defalias 'emms-volume-minor-mode #[256 "\301 \302\303\304=\203\305\303!?\202!\247\203 \306W\203 \307\202!\310\"\210\311\300!\2038\312\303\"\305\303!\2038\303B\313\314\305\303!\203D\315\202E\316\"\210\317\320!\203m\321\303!\210\301 \203]\211\301 \232\203m\322\323\305\303!\203i\324\202j\325\326#\210\210\327 \210\305\303!\207" [global-minor-modes current-message set-default emms-volume-minor-mode toggle default-value 1 nil t boundp delq run-hooks emms-volume-minor-mode-hook emms-volume-minor-mode-on-hook emms-volume-minor-mode-off-hook called-interactively-p any customize-mark-as-set message "Emms-Volume minor mode %sabled%s" "en" "dis" "" force-mode-line-update] 6 (#$ . 2186) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar emms-volume-minor-mode-hook nil) (byte-code "\300\301N\204\f\302\300\301\303#\210\302\300\304\305#\210\302\300\306\307C#\207" [emms-volume-minor-mode-hook variable-documentation put "Hook run after entering or leaving `emms-volume-minor-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" custom-type hook standard-value nil] 4) #@38 Keymap for `emms-volume-minor-mode'. (defvar emms-volume-minor-mode-map (byte-code "\300\301!\203\207\211<\203\302!\207\303\304\"\207" [(("+" . emms-volume-mode-plus) ("-" . emms-volume-mode-minus)) keymapp easy-mmode-define-keymap error "Invalid keymap %S"] 4) (#$ . 4064)) (byte-code "\301\302\303\304\211%\207" [emms-volume-minor-mode-map add-minor-mode emms-volume-minor-mode " (+/-)" nil] 6) #@69 *The timeout in amount of seconds used by `emms-volume-minor-mode'. (defvar emms-volume-mode-timeout 2 (#$ . -4475)) #@42 The timer `emms-volume-minor-mode' uses. (defvar emms-volume-mode-timer nil (#$ . 4598)) #@73 Raise volume and enable or extend the `emms-volume-minor-mode' timeout. (defalias 'emms-volume-mode-plus #[0 "\300 \210\301 \207" [emms-volume-raise emms-volume-mode-start-or-extend] 1 (#$ . 4693) nil]) #@73 Lower volume and enable or extend the `emms-volume-minor-mode' timeout. (defalias 'emms-volume-mode-minus #[0 "\300 \210\301 \207" [emms-volume-lower emms-volume-mode-start-or-extend] 1 (#$ . 4902) nil]) #@41 Disable `emms-volume-minor-mode' timer. (defalias 'emms-volume-mode-disable-timer #[0 "\301!\210\302\211\207" [emms-volume-mode-timer cancel-timer nil] 2 (#$ . 5112)]) #@43 Set a new `emms-volume-minor-mode' timer. (defalias 'emms-volume-mode-set-timer #[0 "\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 (#$ . 5288)]) #@58 Function to disable `emms-volume-minor-mode' at timeout. (defalias 'emms-volume-mode-timer-timeout #[0 "\301\302\303!\207" [emms-volume-mode-timer nil emms-volume-minor-mode -1] 2 (#$ . 5564)]) #@60 Start `emms-volume-minor-mode' or extend its running time. (defalias 'emms-volume-mode-start-or-extend #[0 "\204\300\301!\210\302 \207" [emms-volume-minor-mode 1 emms-volume-mode-set-timer] 2 (#$ . 5765)]) (provide 'emms-volume)