;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\302\303\304\305\306\301%\210\307\310\311\312\313DD\314\315\316%\210\307\317\311\312\320DD\321\315\322%\207" [require emms-info custom-declare-group emms-info-ogginfo nil "An EMMS-info method for getting, using the external ogginfo\nprogram" :group custom-declare-variable emms-info-ogginfo-coding-system funcall function #[0 "\300\207" [utf-8] 1] "Coding system used in the output of ogginfo." :type coding-system emms-info-ogginfo-program-name #[0 "\300\207" [#1="ogginfo"] 1 #1#] "The name/path of the ogginfo tag program." string] 6) #@97 Add track information to TRACK. This is a useful element for `emms-info-functions'. (fn TRACK) (defalias 'emms-info-ogginfo #[257 "\301!\205\246\302\303\304!\"\205\246\305\306\307\"r\211q\210\310\311\"\216\312\313\307\313\304!%\210eb\210\314\315\313\307#\203c\316\317\320!!\316\317\321!!\322_\\\323\324#\210\323\325#\210\323\326#\210\323\327\304\n!#\266eb\210\314\330d\307#\205\243\320y\331U\205\243\332\333!\203n\317\320!\317\321!\331GW\203\236\331GW\203\236\323\334\335\317\320!P\227!\317\321!#\210\266\202n*\262\207" [emms-info-ogginfo-program-name emms-track-file-p string-match "\\.[Oo][Gg][Gg]\\'" emms-track-name generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] call-process nil 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 "^.*\\.\\.\\.$" 0 looking-at "^ \\(.*?\\)=\\(.*\\)$" intern "info-"] 12 (#$ . 650)]) (provide 'emms-info-ogginfo)