;ELC   
;;; Compiled by heimdall@baldur on Fri Feb  1 18:34:50 2008
;;; from file /home/heimdall/repos/emms/emms-info-ogg.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-ogg.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301!\210\300\302!\207" [require emms-info ogg-comment] 2)
#@31 EMMS info ogg version string.
(defvar emms-info-ogg-version "0.2 $Revision: 1.14 $" (#$ . 664))
(custom-declare-group 'emms-info-ogg nil "An EMMS-info method for getting/setting ogg-comments, using\nogg-comments.el" :group 'emms-info-methods :prefix "emms-info-ogg-")
(defalias 'emms-info-ogg-get-comment #[(field info) "\304	\211A@)\"\211A@)\211\203 \202 \305)\207" [field info x comment assoc ""] 4])
#@51 Retrieve an emms-info structure as an ogg-comment
(defalias 'emms-info-ogg #[(track) "\306!\304=\205\273 \307\310\311!\"\205\273 \312\311!!\313\314\"\315\211\211\316\317!1\320\216r1q\210\321\322\315\323\315\f%\210eb\210\324\325!\210\326\327\330!!\326\327\331!!2\2113\332_2\\32-\333\334\335\336\"#\210\333\337\335\340\"#\210\333\341\335\342\"#\210\333\343\335\344\"#\210\333\345\335\346\"#\210\333\347\335\350\"#\210\333\351\335\352\"#\210\333\353\335\354\"#\210\333\355#\210\333\356\n#\210\333\357	#\210\333\360\311!#-\207" [track ptime-sec ptime-min ptime-total file info emms-track-type string-match "\\.[Oo][Gg][Gg]\\'" emms-track-name oggc-read-header emms-track-get name nil generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) call-process "ogginfo" t re-search-forward "Playback length: \\([0-9]*\\)m:\\([0-9]*\\)" string-to-number match-string 1 2 60 emms-track-set info-title emms-info-ogg-get-comment "title" info-artist "artist" info-composer "composer" info-performer "performer" info-album "album" info-note "comment" info-year "date" info-genre "genre" info-playing-time info-playing-time-min info-playing-time-sec info-file #1# seconds minutes] 7 (#$ . 1080)])
(provide 'emms-info-ogg)