;ELC ;;; Compiled by heimdall@localhost on Mon Mar 3 15:42:28 2008 ;;; from file /home/heimdall/repos/emms/emms-player-xine.el ;;; in Emacs version 23.0.60.1 ;;; 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-xine.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\302\303\304\305\306\307\310\311&\207" [require emms-player-simple custom-declare-group emms-player-xine nil "EMMS player for xine." :group emms-player :prefix "emms-player-xine-"] 8) #@28 *The command name of xine. (custom-declare-variable 'emms-player-xine-command-name '"xine" '(#$ . -808) :type 'string :group 'emms-player-xine) #@52 *The arguments to `emms-player-xine-command-name'. (custom-declare-variable 'emms-player-xine-parameters ''("--no-gui" "--no-logo" "--no-splash" "--no-reload" "--stdctl") '(#$ . -958) :type '(repeat string) :group 'emms-player-xine) #@21 *A player for EMMS. (custom-declare-variable 'emms-player-xine '(emms-player 'emms-player-xine-start 'emms-player-xine-stop 'emms-player-xine-playable-p) '(#$ . -1197) :type '(cons symbol alist) :group 'emms-player-xine) (byte-code "\301\302\303\304\305\306##\210\301\307\310#\210\301\311\312#\207" [emms-player-xine 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") "\\|" pause emms-player-simple-pause resume emms-player-simple-resume] 7) #@27 Start the player process. (defalias 'emms-player-xine-start #[(track) "\304\305! \n $\207" [track emms-player-xine emms-player-xine-command-name emms-player-xine-parameters emms-player-simple-start emms-track-name] 5 (#$ . 1792)]) #@26 Stop the player process. (defalias 'emms-player-xine-stop #[nil "\300 \207" [emms-player-simple-stop] 1 (#$ . 2030)]) #@45 Return non-nil when we can play this track. (defalias 'emms-player-xine-playable-p #[(track) "\303!\205\304 !\305>\205\306\307\n\310\"\311 !\"\207" [emms-player-xine-command-name track emms-player-xine executable-find emms-track-type (file url) string-match emms-player-get regex emms-track-name] 4 (#$ . 2154)]) (byte-code "\301\302\303#\210\301\304\305#\210\301\306\307#\207" [emms-player-xine emms-player-set pause emms-player-xine-pause resume nil seek emms-player-xine-seek] 4) #@34 Depends on xine's --stdctl mode. (defalias 'emms-player-xine-pause #[nil "\301\302\"\207" [emms-player-simple-process-name process-send-string "pause\n"] 3 (#$ . 2651)]) #@34 Depends on xine's --stdctl mode. (defalias 'emms-player-xine-seek #[(secs) "\303\304\"\211U\204\305\306 \"\210\307\n \310W\203\311\312 \"\202#\311\313 \"\")\207" [secs s emms-player-simple-process-name emms-nearest-value (-60 -30 -15 -7 7 15 30 60) message "EMMS: Xine only supports seeking for [+/-] 7/15/30/60 seconds, so we seeked %d seconds" process-send-string 0 format "SeekRelative%d\n" "SeekRelative+%d\n"] 6 (#$ . 2828)]) #@88 Returns the value of LIST which is nearest to VAL. LIST should be a list of integers. (defalias 'emms-nearest-value #[(val list) "@\306\n Z!A\307\211\203/ @\306\n\fZ!\211 W\203'\f) A\211\204* *\207" [list nearest val dist lval --dolist-tail-- abs nil ndist] 4 (#$ . 3273)]) (provide 'emms-player-xine)