;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!\207" [require emms-playing-time emms-info] 2) #@33 Play next track from .cue file. (defalias 'emms-cue-next #[0 "\300 \211A\203\301A!\210\302\303@\"\202\302\304!\207" [emms-cue-next-track emms-seek-to message "Will play: %s" "Nothing to seek or missing .cue file?"] 4 (#$ . 489) nil]) #@37 Play previous track from .cue file. (defalias 'emms-cue-previous #[0 "\300 \211A\203\301A!\210\302\303@\"\202\302\304!\207" [emms-cue-previous-track emms-seek-to message "Will play: %s" "Nothing to seek or missing .cue file?"] 4 (#$ . 735) nil]) #@135 Get title and offset of next track from .cue file. When PREVIOUS-P is t, get previous track info instead. (fn &optional PREVIOUS-P) (defalias 'emms-cue-next-track #[256 "\301 \302\303\"\304!\305P\306!\205\240\307\310!r\211q\210\311\312\313\314\315!\316\"\317$\216\320!\210\212\2033db\210\2026eb\210\321\322\204\230\203G\323\202H\324\325\321\326\327$\203\230\330\331\327!!\330\331\317!!\330\331\332!!\333\334_\335\245# \203q\336\202r\337\"\203\223\204\220\211\262\323\340\321\326\327$\203\223\331\327!\262\202\223\321\262\266\202:B\266\203+\262\207" [emms-playing-time emms-playlist-current-selected-track emms-track-get name file-name-sans-extension ".cue" file-exists-p generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 emms-insert-file-contents nil "" search-backward-regexp search-forward-regexp "INDEX 01 \\([0-9][0-9]\\):\\([0-9][0-9]\\):\\([0-9][0-9]\\)" t 1 string-to-number match-string-no-properties 3 + 60 100.0 > < "TITLE \"\\(.*\\)\""] 17 (#$ . 994)]) #@28 See `emms-cue-next-track'. (defalias 'emms-cue-previous-track #[0 "\300\301!\207" [emms-cue-next-track t] 2 (#$ . 2076)]) #@97 Add track information to TRACK. This is a useful element for `emms-info-functions'. (fn TRACK) (defalias 'emms-info-cueinfo #[257 "\300!\205I\301\302\303!\"\205I\304\303!!\305P\306!\205G\307\310!r\211q\210\311\312\313\314\315!\316\"\317$\216\320!\210\212\321\311\322\323\314\315!\324\"\325\326%\327\"+\262\262\207" [emms-track-file-p string-match "\\.\\(ape\\|flac\\)\\'" emms-track-name file-name-sans-extension ".cue" file-exists-p generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 emms-insert-file-contents mapc 257 "eb\210\302\303@\304P\305\302\306$)\205\307\300A\310\311\312\313\306!##\207" [case-fold-search t search-forward-regexp " \\(.*\\)" nil 1 emms-track-set replace-regexp-in-string "\\`\"\\|\"\\'" "" match-string] 9 "\n\n(fn I)" (("performer" . info-artist) ("title" . info-album) ("title" . info-title) ("rem date" . info-year))] 10 (#$ . 2204)]) (provide 'emms-cue)