;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. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\301%\207" [require emms-info json custom-declare-group emms-info-exiftool nil "Options for EMMS." :group] 6) #@30 Mapping for exiftool output. (defvar emms-info-exiftool-field-map '((info-album . Album) (info-artist . Artist) (info-title . Title) (info-tracknumber . TrackNumber) (info-composer . Composer) (info-year . Year) (info-discnumber . Discnumber) (info-genre . Genre) (info-note . Comment) (info-playing-time . Duration) (info-albumartist . Albumartist)) (#$ . 576)) #@40 Convert from exiftool-time to seconds. (defalias 'emms-info-exiftool-time #[0 "\212eb\210\300\301d\302#\203)\303\304\305!!\303\304\306!!\303\304\307!!\310\311_\312_#\266\203\202*\313)\207" [re-search-forward "duration.+\\([0-9]+\\):\\([0-9]+\\):\\([0-9]+\\)" t string-to-number match-string-no-properties 1 2 3 + 3600 60 0] 7 (#$ . 945)]) #@44 Set TRACK info using exiftool. (fn TRACK) (defalias 'emms-info-exiftool #[257 "\302!\303=\205[\304\305!r\211q\210\306\307\310\311\312!\313\"\314$\216\315\316\317\320\321\320\322\323!&)\307U\205Xeb\210\3241R\325 \307\234\326\306\327\330\311\312\"\331\"\332\333% \"\2620\202V\210\334\335!\210*\262\207" [coding-system-for-read emms-info-exiftool-field-map emms-track-type file generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 utf-8 call-process "exiftool" nil (t nil) "-json" emms-track-name (error) json-read mapc 257 "\211@A\302\301\"\211\205+\303\300\211\304=\203\305 \202*\306>\203(\307\310A\"\202*A#\262\207" [assoc emms-track-set info-playing-time emms-info-exiftool-time (info-tracknumber info-year info-discnumber) format "%s"] 10 "\n\n(fn FIELD-MAP)" message "error while reading track info"] 11 (#$ . 1295)]) (provide 'emms-info-exiftool)