;ELC ;;; Compiled by heimdall@localhost on Wed Apr 2 10:01:40 2008 ;;; from file /home/heimdall/repos/emms/emms-player-mplayer.el ;;; in Emacs version 23.0.60.2 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`emms-player-mplayer.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\310\311\312&\207" [require emms-compat emms-player-simple custom-declare-group emms-player-mplayer nil "EMMS player for mplayer." :group emms-player :prefix "emms-player-mplayer-"] 8) #@31 *The command name of mplayer. (custom-declare-variable 'emms-player-mplayer-command-name '"mplayer" '(#$ . -848) :type 'string :group 'emms-player-mplayer) #@55 *The arguments to `emms-player-mplayer-command-name'. (custom-declare-variable 'emms-player-mplayer-parameters ''("-slave" "-quiet" "-really-quiet") '(#$ . -1010) :type '(repeat string) :group 'emms-player-mplayer) #@21 *A player for EMMS. (custom-declare-variable 'emms-player-mplayer '(emms-player 'emms-player-mplayer-start 'emms-player-mplayer-stop 'emms-player-mplayer-playable-p) '(#$ . -1231) :type '(cons symbol alist) :group 'emms-player-mplayer) (byte-code "\301\302\303\304\305\306##\210\301\307\310#\210\301\311\312#\207" [emms-player-mplayer emms-player-set regex mapconcat regexp-quote (".ogg" ".mp3" ".wav" ".mpg" ".mpeg" ".wmv" ".wma" ".mov" ".avi" ".divx" ".ogm" ".asf" ".mkv" "http://" "mms://" ".rm" ".rmvb" ".mp4" ".flac" ".vob" ".m4a" ".ape") "\\|" pause emms-player-simple-pause resume emms-player-simple-resume] 7) #@27 Start the player process. (defalias 'emms-player-mplayer-start #[(track) "\304\305! \n $\207" [track emms-player-mplayer emms-player-mplayer-command-name emms-player-mplayer-parameters emms-player-simple-start emms-track-name] 5 (#$ . 1858)]) #@26 Stop the player process. (defalias 'emms-player-mplayer-stop #[nil "\300 \207" [emms-player-simple-stop] 1 (#$ . 2108)]) #@45 Return non-nil when we can play this track. (defalias 'emms-player-mplayer-playable-p #[(track) "\303!\205\304 !\305>\205\306\307\n\310\"\311 !\"\207" [emms-player-mplayer-command-name track emms-player-mplayer executable-find emms-track-type (file url) string-match emms-player-get regex emms-track-name] 4 (#$ . 2235)]) (custom-declare-group 'emms-player-mplayer-playlist nil "EMMS player for mplayer." :group 'emms-player :prefix "emms-player-mplayer-playlist-") #@31 *The command name of mplayer. (custom-declare-variable 'emms-player-mplayer-playlist-command-name '"mplayer" '(#$ . -2712) :type 'string :group 'emms-player-mplayer-playlist) #@64 *The arguments to `emms-player-mplayer-playlist-command-name'. (custom-declare-variable 'emms-player-mplayer-playlist-parameters ''("-slave" "-quiet" "-really-quiet" "-playlist") '(#$ . -2893) :type '(repeat string) :group 'emms-player-mplayer-playlist) #@21 *A player for EMMS. (custom-declare-variable 'emms-player-mplayer-playlist '(emms-player 'emms-player-mplayer-playlist-start 'emms-player-mplayer-playlist-stop 'emms-player-mplayer-playlist-playable-p) '(#$ . -3153) :type '(cons symbol alist) :group 'emms-player-mplayer-playlist) (byte-code "\301\302\303#\210\301\304\305#\210\301\306\307#\207" [emms-player-mplayer-playlist emms-player-set regex "http://" pause emms-player-simple-pause resume emms-player-simple-resume] 4) #@27 Start the player process. (defalias 'emms-player-mplayer-playlist-start #[(track) "\304\305! \n $\207" [track emms-player-mplayer-playlist emms-player-mplayer-playlist-command-name emms-player-mplayer-playlist-parameters emms-player-simple-start emms-track-name] 5 (#$ . 3638)]) #@26 Stop the player process. (defalias 'emms-player-mplayer-playlist-stop #[nil "\300 \207" [emms-player-simple-stop] 1 (#$ . 3924)]) #@45 Return non-nil when we can play this track. (defalias 'emms-player-mplayer-playlist-playable-p #[(track) "\303!\205\304 !\305>\205\306\307\n\310\"\311 !\"\207" [emms-player-mplayer-playlist-command-name track emms-player-mplayer-playlist executable-find emms-track-type (streamlist) string-match emms-player-get regex emms-track-name] 4 (#$ . 4060)]) (byte-code "\301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\207" [emms-player-mplayer emms-player-set pause emms-player-mplayer-pause resume nil seek emms-player-mplayer-seek seek-to emms-player-mplayer-seek-to] 4) #@35 Depends on mplayer's -slave mode. (defalias 'emms-player-mplayer-pause #[nil "\301\302\"\207" [emms-player-simple-process-name process-send-string "pause\n"] 3 (#$ . 4658)]) #@35 Depends on mplayer's -slave mode. (defalias 'emms-player-mplayer-seek #[(sec) "\302\303\304 \"\"\207" [emms-player-simple-process-name sec process-send-string format "seek %d\n"] 5 (#$ . 4839)]) #@35 Depends on mplayer's -slave mode. (defalias 'emms-player-mplayer-seek-to #[(sec) "\302\303\304 \"\"\207" [emms-player-simple-process-name sec process-send-string format "seek %d 2\n"] 5 (#$ . 5041)]) (provide 'emms-player-mplayer)