;ELC ;;; Compiled ;;; in Emacs version 26.3 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\310\311\312&\210\313\314\315\316\317DD\320\321\322%\210\313\323\315\316\324DD\325\321\326%\210\313\304\315\316\327DD\330\321\331%\207" [require emms emms-player-simple custom-declare-group emms-player-mpg321-remote nil "*EMMS player using mpg321's remote mode." :group emms-player :prefix "emms-player-mpg321-remote" custom-declare-variable emms-player-mpg321-remote-command funcall function #[0 "\300\207" [#1="mpg321"] 1 #1#] "The command name of mpg321." :type string emms-player-mpg321-remote-parameters #[0 "\300\207" [nil] 1] "Extra arguments to pass to mpg321 when using remote mode\nFor example: (list \"-o\" \"alsa\")" (repeat string) #[0 "\300\301\302\303#\207" [emms-player emms-player-mpg321-remote-start-playing emms-player-mpg321-remote-stop-playing emms-player-mpg321-remote-playable-p] 4] "A player for EMMS." (cons symbol alist)] 8) #@45 Initial args to pass to the mpg321 process. (defvar emms-player-mpg321-remote-initial-args (list "--skip-printing-frames=10" "-R" "-") (#$ . 1318)) #@46 The name of the mpg321 remote player process (defvar emms-player-mpg321-remote-process-name "emms-player-mpg321-remote-proc" (#$ . 1472)) #@56 Number of stop messages to ignore, due to user action. (defvar emms-player-mpg321-remote-ignore-stop 0 (#$ . 1616)) #@17 (fn CMD FUNC) (defalias 'emms-player-mpg321-remote-add '(macro . #[514 "\300\301F\207" [emms-player-set 'emms-player-mpg321-remote] 6 (#$ . 1738)])) (byte-code "\300\301\302\303\304\305\"#\210\300\301\306\307#\210\300\301\310\307#\210\300\301\311\312#\207" [emms-player-set emms-player-mpg321-remote regex emms-player-simple-regexp "mp3" "mp2" pause emms-player-mpg321-remote-pause resume seek emms-player-mpg321-remote-seek] 6) #@53 Start a new remote process, and return the process. (defalias 'emms-player-mpg321-remote-start-process #[0 "\304\305\306 \307\n \"%\310\311\"\210\312\313\"\210\211\207" [emms-player-mpg321-remote-process-name emms-player-mpg321-remote-command emms-player-mpg321-remote-initial-args emms-player-mpg321-remote-parameters apply start-process nil append set-process-sentinel emms-player-mpg321-remote-sentinel set-process-filter emms-player-mpg321-remote-filter] 8 (#$ . 2177)]) #@60 Stop the currently playing process, if indeed there is one (defalias 'emms-player-mpg321-remote-stop #[0 "\300 \211\205 \301!\210\302!\207" [emms-player-mpg321-remote-process kill-process delete-process] 3 (#$ . 2661)]) #@42 Return the remote process, if it exists. (defalias 'emms-player-mpg321-remote-process #[0 "\301!\207" [emms-player-mpg321-remote-process-name get-process] 2 (#$ . 2890)]) #@51 True if the remote process exists and is running. (defalias 'emms-player-mpg321-remote-running-p #[0 "\300 \211\205 \301!\302=\207" [emms-player-mpg321-remote-process process-status run] 3 (#$ . 3068)]) #@60 Sentinel for determining the end of process (fn PROC STR) (defalias 'emms-player-mpg321-remote-sentinel #[514 "\301!\302=\204\301!\303=\205\304\305\306!\207" [emms-player-mpg321-remote-ignore-stop process-status exit signal 0 message "Remote process died!"] 4 (#$ . 3279)]) #@71 Send TEXT to the mpg321 remote process, and add a newline. (fn TEXT) (defalias 'emms-player-mpg321-remote-send #[257 "\300\301 \204 \302 \210\303 \262\304\305P\"\207" [nil emms-player-mpg321-remote-running-p emms-player-mpg321-remote-start-process emms-player-mpg321-remote-process process-send-string "\n"] 6 (#$ . 3567)]) #@17 (fn PROC STR) (defalias 'emms-player-mpg321-remote-filter #[514 "\300\301\302#\303\211\211\205L\211@\300!\262@\262\304\230\2033A@\305\230\204-A@\306\230\2033\307 \210\202E\310\230\203E\311\312\313\314\3158!!\"\210A\266\202\202\262\207" [split-string "\n" t nil "@P" "0" "3" emms-player-mpg321-remote-notify-emms "@F" run-hook-with-args emms-player-time-set-functions truncate string-to-number 3] 13 (#$ . 3902)]) #@125 Start playing a song by telling the remote process to play it. If the remote process is not running, launch it. (fn TRACK) (defalias 'emms-player-mpg321-remote-start-playing #[257 "\300 \204\301 \210\302!\207" [emms-player-mpg321-remote-running-p emms-player-mpg321-remote-start-process emms-player-mpg321-remote-play-track] 3 (#$ . 4346)]) #@183 Tell emms that the current song has finished. If USER-ACTION, set `emms-player-mpg321-remote-ignore-stop' so that we ignore the next message from mpg321. (fn &optional USER-ACTION) (defalias 'emms-player-mpg321-remote-notify-emms #[256 "\211\203 \302 T\303 )\207 \304U\204 S\211\207\303 \207" [emms-player-ignore-stop emms-player-mpg321-remote-ignore-stop t emms-player-stopped 0] 3 (#$ . 4698)]) #@32 Stop the current song playing. (defalias 'emms-player-mpg321-remote-stop-playing #[0 "\300\301!\210\302\303!\207" [emms-player-mpg321-remote-notify-emms t emms-player-mpg321-remote-send "stop"] 2 (#$ . 5108)]) #@64 Send a play command to the remote, based on TRACK. (fn TRACK) (defalias 'emms-player-mpg321-remote-play-track #[257 "\300\301\302\303\"P!\210\304\305!\207" [emms-player-mpg321-remote-send "load " emms-track-get name emms-player-started emms-player-mpg321-remote] 6 (#$ . 5324)]) #@14 (fn TRACK) (defalias 'emms-player-mpg321-remote-playable-p #[257 "\300!\207" [emms-player-mpg321-playable-p] 3 (#$ . 5611)]) #@19 Pause the player. (defalias 'emms-player-mpg321-remote-pause #[0 "\300\301!\207" [emms-player-mpg321-remote-send "pause"] 2 (#$ . 5745)]) #@20 Resume the player. (defalias 'emms-player-mpg321-remote-resume #[0 "\300\301!\207" [emms-player-mpg321-remote-send "pause"] 2 (#$ . 5889)]) #@53 Seek forward or backward in the file. (fn SECONDS) (defalias 'emms-player-mpg321-remote-seek #[257 "\300\301_!\302!\303=\204\304P\262\305\306P!\207" [number-to-string 35 string-to-char 45 "+" emms-player-mpg321-remote-send "jump "] 5 (#$ . 6035)]) (provide 'emms-player-mpg321-remote)