;ELC ;;; Compiled by heimdall@baldur on Fri Feb 1 18:34:50 2008 ;;; from file /home/heimdall/repos/emms/emms-info-ogginfo.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-info-ogginfo.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\302\303\304\305\306\301%\207" [require emms-info custom-declare-group emms-info-ogginfo nil "An EMMS-info method for getting, using the external ogginfo\nprogram" :group] 6) #@47 *Coding system used in the output of ogginfo. (custom-declare-variable 'emms-info-ogginfo-coding-system ''utf-8 '(#$ . -797) :type 'coding-system :group 'emms-info-ogginfo) #@44 *The name/path of the ogginfo tag program. (custom-declare-variable 'emms-info-ogginfo-program-name '"ogginfo" '(#$ . -976) :type 'string :group 'emms-info-ogginfo) #@85 Add track information to TRACK. This is a useful element for `emms-info-functions'. (defalias 'emms-info-ogginfo #[(track) "\306!\307=\205\253\310\311\312!\"\205\253\313\314!\315\216r q\210\316\n\317\320\317\312!%\210eb\210\321\322\317\320#\203e\323\324\325!!\323\324\326!! \327_\f\\ $\f%\330\331 #\210\330\332$#\210\330\333%#\210\330\334\312!#\210-eb\210\321\335d\320#\205\252\336\325y!\205\252\337\340!\203p\324\325!\324\326!&'\341'GW\203\246\341&GW\203\246\330\342\343\324\325!P\227!\324\326!#\210*\202p+\207" [track #1=#:temp-buffer emms-info-ogginfo-program-name minutes seconds ptime-total emms-track-type file string-match "\\.[Oo][Gg][Gg]\\'" emms-track-name generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) call-process nil t re-search-forward "Playback length: \\([0-9]*\\)m:\\([0-9]*\\)" string-to-number match-string 1 2 60 emms-track-set info-playing-time info-playing-time-min info-playing-time-sec info-file "^.*\\.\\.\\.$" zerop looking-at "^ \\(.*?\\)=\\(.*\\)$" 0 intern "info-" ptime-min ptime-sec b a] 7 (#$ . 1147)]) (provide 'emms-info-ogginfo)