;ELC ;;; Compiled by heimdall@baldur on Fri Feb 1 18:34:50 2008 ;;; from file /home/heimdall/repos/emms/emms-info-mp3info.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-mp3info.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (require 'emms-info) #@35 EMMS info mp3info version string. (defvar emms-info-mp3info-version "0.2 $Revision: 1.10 $" (#$ . 618)) (custom-declare-group 'emms-info-mp3info nil "An EMMS-info method for getting/setting ID3v1 tags, using the\nexternal mp3info program" :group 'emms-info) #@47 *Coding system used in the output of mp3info. (custom-declare-variable 'emms-info-mp3info-coding-system ''utf-8 '(#$ . -882) :type 'coding-system :group 'emms-info-mp3info) #@44 *The name/path of the mp3info tag program. (custom-declare-variable 'emms-info-mp3info-program-name '"mp3info" '(#$ . -1061) :type 'string :group 'emms-info-mp3info) #@107 The argument to pass to `emms-info-mp3info-program-name'. This should be a list of info-flag=value lines. (custom-declare-variable 'emms-info-mp3find-arguments '`("-p" ,(concat "info-artist=%a\\n" "info-title=%t\\n" "info-album=%l\\n" "info-tracknumber=%n\\n" "info-year=%y\\n" "info-genre=%g\\n" "info-note=%c\\n" "info-playing-time=%S\\n")) '(#$ . 1234) :type '(repeat string) :group 'emms-info-mp3info) #@85 Add track information to TRACK. This is a useful element for `emms-info-functions'. (defalias 'emms-info-mp3info #[(track) "\306!\307=\205m\310\311\312!\"\205m\313\314!\315\216r q\210\316\317\320\321!\203'\321\202(\322\n\323\324\323\325 \312!C\"&!\205leb\210\326\327!\205l\330\331\332!!\331\333!\fG\334V\203e\335 \211\336=\203b\337\f!\202c\f#\210*\332y\210\202<+\207" [track #1=#:temp-buffer emms-info-mp3info-program-name emms-info-mp3find-arguments value name emms-track-type file string-match "\\.[Mm][Pp]3\\'" emms-track-name generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) zerop apply fboundp emms-i18n-call-process-simple call-process nil t append looking-at "^\\([^=\n]+\\)=\\(.*\\)$" intern match-string 1 2 0 emms-track-set info-playing-time string-to-number] 11 (#$ . 1646)]) (provide 'emms-info-mp3info)