;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (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@\"\207\302\304!\207" [emms-cue-next-track emms-seek-to message "Will play: %s" "Nothing to seek or missing .cue file?"] 4 (#$ . 168) nil]) #@37 Play previous track from .cue file. (defalias 'emms-cue-previous #[0 "\300 \211A\203\301A!\210\302\303@\"\207\302\304!\207" [emms-cue-previous-track emms-seek-to message "Will play: %s" "Nothing to seek or missing .cue file?"] 4 (#$ . 412) 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\234\307\310\311\"r\211q\210\312\313\"\216\314!\210\212\203-db\210\2020eb\210\315\316\204\224\203A\317\202B\320\321\315\311\322$\203\224\323\324\322!!\323\324\325!!\323\324\326!!\327_\\\330\245\\ \203k\331\202l\332\"\203\217\204\214\211\262\317\333\315\311\322$\203\217\324\322!\262\266\2024\315\262\266\2024B\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*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 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]\\)" 1 string-to-number match-string-no-properties 2 3 60 100.0 > < "TITLE \"\\(.*\\)\""] 17 (#$ . 669)]) #@28 See `emms-cue-next-track'. (defalias 'emms-cue-previous-track #[0 "\300\301!\207" [emms-cue-next-track t] 2 (#$ . 1724)]) #@97 Add track information to TRACK. This is a useful element for `emms-info-functions'. (fn TRACK) (defalias 'emms-info-cueinfo #[257 "\300!\205:\301\302\303!\"\205:\304\303!!\305P\306!\2058\307\310\311\"r\211q\210\312\313\"\216\314!\210\212\315\312\316\"\317\"+\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*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 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" [V0 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))] 7 (#$ . 1852)]) (provide 'emms-cue)