;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313&\210\302\314\304\305\315DD\316\310\317\312\313&\207" [require cl-lib custom-declare-variable emms-volume-pulse-sink funcall function #[0 "\300\207" [0] 1] "The sink to use for volume adjustment.\n\nSee full list of devices on your system by running\n pactl list short sinks" :type (choice (number :tag "Sink number") (string :tag "Sink symbolic name")) :group emms-volume emms-volume-pulse-max-volume #[0 "\300\207" [100] 1] "The maximum volume percentage." integer] 8) #@41 Return `emms-volume-pulse-sink' volume. (defalias 'emms-volume--pulse-get-volume #[0 "\247\301\302!\303\304\203\305\202\306\307\203\310\202\311\312\313\314\310\315\316# \"\203K\303\317\320\n\"!\317\321\n\"\317\322 \"EB\262\323\324\312\211 $\262\202\211\237\262\"\"!@!\207" [emms-volume-pulse-sink shell-command-to-string "pactl list sinks|grep -E -e 'Sink' -e 'Name' -e '^[^a-zA-Z]*Volume'" string-to-number reverse assq assoc mapcar identity cdr nil string-match mapconcat (".*Sink[ ]+\\#\\([0-9]+\\)" ".*Name:[ ]\\([^\n]+\\)" ".*Volume:.*?\\([0-9]+\\)%.*\n?") "\n" match-string 1 2 3 replace-match ""] 14 (#$ . 630)]) #@50 Change PulseAudio volume by AMOUNT. (fn AMOUNT) (defalias 'emms-volume-pulse-change #[257 "\302\303\304\305!\206 \306\307!\310 \\^\311]\312\313\314 $!\311U\205!\211\266\202\"\207" [emms-volume-pulse-max-volume emms-volume-pulse-sink message "Volume is %s%%" executable-find "pactl" error "pactl is not in PATH" emms-volume--pulse-get-volume 0 shell-command format "%s set-sink-volume %s %s%%"] 11 (#$ . 1283)]) (provide 'emms-volume-pulse)