;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\207" [require emms emms-playing-time] 2) #@51 Time in seconds for skipping a previous bookmark. (defvar emms-bookmarks-prev-overshoot 5 (#$ . 163)) #@50 Remove all the bookmarks from TRACK. (fn TRACK) (defalias 'emms-bookmarks-reset #[257 "\300\301\302#\207" [emms-track-set bookmarks nil] 5 (#$ . 271)]) #@76 Insert ITEM into the already sorted L, ACC should be nil. (fn ITEM L ACC) (defalias 'emms-bookmarks-straight-insertion-sort #[771 "\204\n\300C\"\207A@AW\203\300@DA#\207\301A\300@C\"#\207" [append emms-bookmarks-straight-insertion-sort] 9 (#$ . 431)]) #@54 Return the bookmark property from TRACK. (fn TRACK) (defalias 'emms-bookmarks-get #[257 "\300\301\"\207" [emms-track-get bookmarks] 4 (#$ . 706)]) #@83 Set bookmark property for TRACK, text DESC at TIME seconds. (fn TRACK DESC TIME) (defalias 'emms-bookmarks-set #[771 "\300\301\"\302\303B\302#\262\304\301#\207" [emms-track-get bookmarks nil emms-bookmarks-straight-insertion-sort emms-track-set] 9 (#$ . 861)]) #@72 Set bookmark property for the current track with text DESC. (fn DESC) (defalias 'emms-bookmarks-set-current #[257 "\301\302 #\207" [emms-playing-time emms-bookmarks-set emms-playlist-current-selected-track] 5 (#$ . 1136)]) #@188 Return a bookmark based on heuristics. TIME should be a reference point in seconds. TRACK should be an Emms track. TEST should be a numerical comparator predicate. (fn TIME TRACK TEST) (defalias 'emms-bookmarks-search #[771 "\300\301BC\302\303!!\"\304\305\306\"\"\210@AU\204\"\211A\262\202\211A\205*\211A@\207" [append "time" copy-sequence emms-bookmarks-get sort make-closure #[514 "\300AA\"\207" [V0] 5 "\n\n(fn A B)"]] 9 (#$ . 1369)]) #@82 Return the bookmark after TIME for TRACK, otherwise return nil. (fn TIME TRACK) (defalias 'emms-bookmarks-next-1 #[514 "\300\301#\207" [emms-bookmarks-search <] 6 (#$ . 1828)]) #@83 Return the bookmark before TIME for TRACK, otherwise return nil. (fn TIME TRACK) (defalias 'emms-bookmarks-prev-1 #[514 "\301Z\302#\207" [emms-bookmarks-prev-overshoot emms-bookmarks-search >] 6 (#$ . 2014)]) #@193 Seek the player to a bookmark. SEARCH-F should be a function which returns a bookmark. TRACK should be an Emms track. FAILURE-MESSAGE should be a string. (fn SEARCH-F TRACK FAILURE-MESSAGE) (defalias 'emms-bookmarks-goto #[771 "\204\302 \210 \"\211\203\303A!\210\304\305@\"\207\304\305\"\207" [emms-player-playing-p emms-playing-time emms-start emms-player-seek-to message "%s"] 7 (#$ . 2234)]) #@49 Seek to the next bookmark in the current track. (defalias 'emms-bookmarks-next #[0 "\300\301\302 \303#\207" [emms-bookmarks-goto emms-bookmarks-next-1 emms-playlist-current-selected-track "No next bookmark"] 4 (#$ . 2647) nil]) #@53 Seek to the previous bookmark in the current track. (defalias 'emms-bookmarks-prev #[0 "\300\301\302 \303#\207" [emms-bookmarks-goto emms-bookmarks-prev-1 emms-playlist-current-selected-track "No previous bookmark"] 4 (#$ . 2881) nil]) #@48 Eval BODY with player paused. (fn &rest BODY) (defalias 'emms-bookmarks-with-paused-player '(macro . #[128 "\300\301\302\303\"BB\207" [progn (when (not emms-player-paused-p) (emms-pause)) append ((when emms-player-paused-p (emms-pause)))] 6 (#$ . 3123)])) #@186 Add a new bookmark to the current track. This function pauses the player while prompting the user for a description of the bookmark. The function resumes the player after the prompt. (defalias 'emms-bookmarks-add #[0 "\204\301 \210\302\303!\304 \203\305!\266\202\306\307!\266\205\"\301 \207" [emms-player-paused-p emms-pause read-string "Description: " emms-playlist-current-selected-track emms-bookmarks-set-current error "No current track to bookmark"] 3 (#$ . 3388) nil]) #@50 Remove all the bookmarks from the current track. (defalias 'emms-bookmarks-clear #[0 "\300 \211\205 \301!\207" [emms-playlist-current-selected-track emms-bookmarks-reset] 3 (#$ . 3883) nil]) (provide 'emms-bookmarks)