;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 emms-playing-time] 2) #@51 Time in seconds for skipping a previous bookmark. (defvar emms-bookmarks-prev-overshoot 5 (#$ . 484)) #@50 Remove all the bookmarks from TRACK. (fn TRACK) (defalias 'emms-bookmarks-reset #[257 "\300\301\302#\207" [emms-track-set bookmarks nil] 5 (#$ . 592)]) #@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 (#$ . 752)]) #@54 Return the bookmark property from TRACK. (fn TRACK) (defalias 'emms-bookmarks-get #[257 "\300\301\"\207" [emms-track-get bookmarks] 4 (#$ . 1027)]) #@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 (#$ . 1183)]) #@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 (#$ . 1459)]) #@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\307\310\311!\312\"\313\314%\"\210@AU\204+\211A\262\202\211A\2053\211A@\207" [append "time" copy-sequence emms-bookmarks-get sort make-byte-code 514 "\300AA\"\207" vconcat vector [] 5 "\n\n(fn A B)"] 12 (#$ . 1692)]) #@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 (#$ . 2190)]) #@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 (#$ . 2376)]) #@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@\"\202 \304\305\"\207" [emms-player-playing-p emms-playing-time emms-start emms-player-seek-to message "%s"] 7 (#$ . 2596)]) #@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 (#$ . 3011) 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 (#$ . 3245) 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 (#$ . 3487)])) #@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!\210\202\306\307!\210\210\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 (#$ . 3752) 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 (#$ . 4248) nil]) (provide 'emms-bookmarks)