;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\302\303!\210\302\304!\210\305\300\306\307\310\311\312\313&\210\314\315\316\317\320DD\321\322\323%\210\314\324\316\317\325DD\326\322\327%\210\314\300\316\317\330DD\331\322\332%\210\333\334\335\336\337 \"P#\210\333\340\341#\210\333\342\343#\207" [emms-player-vlc emms-player-base-format-list require emms-compat emms-player-simple custom-declare-group nil "EMMS player for vlc." :group emms-player :prefix "emms-player-vlc-" custom-declare-variable emms-player-vlc-command-name funcall function #[0 "\300\207" [#1="vlc"] 1 #1#] "The command name of vlc." :type string emms-player-vlc-parameters #[0 "\300\207" [("--intf=rc")] 1] "The arguments to `emms-player-vlc-command-name'." (repeat string) #[0 "\300\301\302\303#\207" [emms-player emms-player-vlc-start emms-player-vlc-stop emms-player-vlc-playable-p] 4] "A player for EMMS." (cons symbol alist) emms-player-set regex "\\`\\(http[s]?\\|mms\\)://\\|" apply emms-player-simple-regexp pause emms-player-simple-pause resume emms-player-simple-resume] 8) #@39 Start the player process. (fn TRACK) (defalias 'emms-player-vlc-start #[257 "\303\304! \n$\207" [emms-player-vlc emms-player-vlc-command-name emms-player-vlc-parameters emms-player-simple-start emms-track-name] 6 (#$ . 1108)]) #@26 Stop the player process. (defalias 'emms-player-vlc-stop #[0 "\300 \207" [emms-player-simple-stop] 1 (#$ . 1344)]) #@57 Return non-nil when we can play this track. (fn TRACK) (defalias 'emms-player-vlc-playable-p #[257 "\302!\205\303!\304>\205\305\306 \307\"\310!\"\207" [emms-player-vlc-command-name emms-player-vlc executable-find emms-track-type (file url) string-match emms-player-get regex emms-track-name] 5 (#$ . 1465)]) (byte-code "\301\300\302\303\304\305\306\307&\210\310\311\312\313\314DD\315\316\317%\210\310\320\312\313\321DD\322\316\323%\210\310\300\312\313\324DD\325\316\326%\210\327\330\331#\210\327\332\333#\210\327\334\335#\207" [emms-player-vlc-playlist custom-declare-group nil "EMMS player for vlc." :group emms-player :prefix "emms-player-vlc-playlist-" custom-declare-variable emms-player-vlc-playlist-command-name funcall function #[0 "\300\207" [#1="vlc"] 1 #1#] "The command name of vlc." :type string emms-player-vlc-playlist-parameters #[0 "\300\207" [("--intf=rc")] 1] "The arguments to `emms-player-vlc-playlist-command-name'." (repeat string) #[0 "\300\301\302\303#\207" [emms-player emms-player-vlc-playlist-start emms-player-vlc-playlist-stop emms-player-vlc-playlist-playable-p] 4] "A player for EMMS." (cons symbol alist) emms-player-set regex "\\`http[s]?://" pause emms-player-simple-pause resume emms-player-simple-resume] 8) #@39 Start the player process. (fn TRACK) (defalias 'emms-player-vlc-playlist-start #[257 "\303\304! \n$\207" [emms-player-vlc-playlist emms-player-vlc-playlist-command-name emms-player-vlc-playlist-parameters emms-player-simple-start emms-track-name] 6 (#$ . 2727)]) #@26 Stop the player process. (defalias 'emms-player-vlc-playlist-stop #[0 "\300 \207" [emms-player-simple-stop] 1 (#$ . 2999)]) #@57 Return non-nil when we can play this track. (fn TRACK) (defalias 'emms-player-vlc-playlist-playable-p #[257 "\302!\205\303!\304=\205\305\306 \307\"\310!\"\207" [emms-player-vlc-playlist-command-name emms-player-vlc-playlist executable-find emms-track-type streamlist string-match emms-player-get regex emms-track-name] 5 (#$ . 3129)]) (advice-add 'emms-player-vlc-start :override 'emms--vlc-quit-after-finish) #@22 (fn TRACK &rest _) (defalias 'emms--vlc-quit-after-finish #[385 "\304\305\306 \307\n\310 !C\311#%\312\313\"\266\314 !\207" [emms-player-simple-process-name emms-player-vlc-command-name emms-player-vlc-parameters emms-player-vlc apply start-process nil append emms-track-name ("vlc://quit") set-process-sentinel emms-player-simple-sentinel emms-player-started] 11 (#$ . 3553)]) #@27 Depends on vlc's rc mode. (defalias 'emms-player-vlc-pause #[0 "\301\302\"\207" [emms-player-simple-process-name process-send-string "pause\n"] 3 (#$ . 3942)]) #@42 Seek relative within a stream. (fn SEC) (defalias 'emms-player-vlc-seek #[257 "\211\301U?\205\302\301W\203\303\202\304\"\207" [emms-player-simple-process-name 0 process-send-string "fastforward\n" "rewind\n"] 5 (#$ . 4109)]) #@47 Seek to time SEC within the stream. (fn SEC) (defalias 'emms-player-vlc-seek-to #[257 "\301\302\303\"\"\207" [emms-player-simple-process-name process-send-string format "seek %d\n"] 6 (#$ . 4349)]) (byte-code "\301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\301\312\313#\210\314\300!\207" [emms-player-vlc emms-player-set pause emms-player-vlc-pause resume nil start emms-player-vlc-start seek emms-player-vlc-seek seek-to emms-player-vlc-seek-to provide] 4)