;ELC ;;; Compiled ;;; in Emacs version 26.3 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (require 'emms-info) #@36 EMMS info metaflac version string. (defvar emms-info-metaflac-version "0.1 $Revision: 1.10 $" (#$ . 429)) (byte-code "\300\301\302\303\304\305%\210\306\307\310\311\312DD\313\314\315%\210\306\316\310\311\317DD\320\314\321%\207" [custom-declare-group emms-info-metaflac nil "An EMMS-info method for getting/setting FLAC tags, using the\nexternal metaflac program" :group emms-info custom-declare-variable emms-info-metaflac-program-name funcall function #[0 "\300\207" [#1="metaflac"] 1 #1#] "The name/path of the metaflac program." :type string emms-info-metaflac-options #[0 "\300\207" [("--no-utf8-convert" "--show-tag=TITLE" "--show-tag=ARTIST" "--show-tag=ALBUM" "--show-tag=NOTE" "--show-tag=YEAR" "--show-tag=TRACKNUMBER" "--show-tag=DISCNUMBER" "--show-tag=GENRE")] 1] "The argument to pass to `emms-info-metaflac-program-name'." (repeat string)] 6) #@131 Get the FLAC tag of file TRACK, using `emms-info-metaflac-program' and return an emms-info structure representing it. (fn TRACK) (defalias 'emms-info-metaflac #[257 "\302!\205\211\303\304\305!\"\205\211\306\307!r\211q\210\310\311\312\313\314!\315\"\316$\216\317\320\321\322\321\323\324\325 \305\f!C\"&\311U\205\206eb\210\326\327\330`\331 {!\332y\210\330`\331 {!\245#\210\332y\210\333\334!\205\206\335\336\337\332!\227P!\337\316!\211G\311V\203~\326\211\327=\203{\330!\202|#\210\266\332y\210\202T*\262\207" [emms-info-metaflac-program-name emms-info-metaflac-options emms-track-file-p string-match "\\.\\(flac\\|FLAC\\)\\'" emms-track-name generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 apply call-process nil t "--show-total-samples" "--show-sample-rate" append emms-track-set info-playing-time string-to-number line-end-position 1 looking-at "^\\([^=\n]+\\)=\\(.*\\)$" intern "info-" match-string] 14 (#$ . 1292)]) (provide 'emms-info-metaflac)