;ELC ;;; Compiled ;;; in Emacs version 26.3 ;;; with all optimizations. ;;; This file contains utf-8 non-ASCII characters, ;;; and so cannot be loaded into Emacs 22 or earlier. (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (string-lessp emacs-version "23") (error "`%s' was compiled for Emacs 23 or later" #$)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (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 (#$ . 1717) nil]) #@27 Lower the speaker volume. (defalias 'emms-volume-lower #[0 " [!\207" [emms-volume-change-function emms-volume-change-amount] 2 (#$ . 1868) nil]) (byte-code "\301\302\303#\210\301\304\305#\210\306\307\310\311\312DD\313\314\315\316\317\320\321\322\323& \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 :group emms-volume-minor :type boolean] 12) #@84 Allows volume setting with + and - after an initial key combo. (fn &optional ARG) (defalias 'emms-volume-minor-mode #[256 "\300 \301\302\303=\203\304\302!?\202\305!\306V\"\210\307\310\304\302!\203$\311\202%\312\"\210\313\314!\203O\315\302!\210\300 \203=\211\300 \232\203O\316\317\320\304\302!\203J\321\202K\322#\266\210\323 \210\304\302!\207" [current-message set-default emms-volume-minor-mode toggle default-value prefix-numeric-value 0 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] 7 (#$ . 2539) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)]) (defvar emms-volume-minor-mode-hook nil) (byte-code "\300\301N\204\f\302\300\301\303#\210\300\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.)"] 4) #@38 Keymap for `emms-volume-minor-mode'. (defvar emms-volume-minor-mode-map (byte-code "\300\301!\203 \211\202\211<\203\302!\202\303\304\"\207" [(("+" . emms-volume-mode-plus) ("-" . emms-volume-mode-minus)) keymapp easy-mmode-define-keymap error "Invalid keymap %S"] 4) (#$ . 3658)) (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 (#$ . -4077)) #@42 The timer `emms-volume-minor-mode' uses. (defvar emms-volume-mode-timer nil (#$ . 4200)) #@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 (#$ . 4295) 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 (#$ . 4504) 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 (#$ . 4714)]) #@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 (#$ . 4890)]) #@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 (#$ . 5166)]) #@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 (#$ . 5367)]) (provide 'emms-volume)