;ELC ;;; Compiled by heimdall@baldur on Fri Feb 1 18:34:46 2008 ;;; from file /home/heimdall/repos/emms/emms-bookmarks.el ;;; in Emacs version 23.0.60.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`emms-bookmarks.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (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 (#$ . 667)) #@38 Remove all the bookmarks from TRACK. (defalias 'emms-bookmarks-reset #[(track) "\301\302\303#\207" [track emms-track-set bookmarks nil] 4 (#$ . 775)]) #@59 Insert ITEM into the already sorted L, ACC should be nil. (defalias 'emms-bookmarks-straight-insertion-sort #[(item l acc) "\204\n\303 \nC\"\207\nA@AW\203\303 \n@DA#\207\304\nA\303 @C\"#\207" [l acc item append emms-bookmarks-straight-insertion-sort] 6 (#$ . 933)]) #@42 Return the bookmark property from TRACK. (defalias 'emms-bookmarks-get #[(track) "\301\302\"\207" [track emms-track-get bookmarks] 3 (#$ . 1214)]) #@61 Set bookmark property for TRACK, text DESC at TIME seconds. (defalias 'emms-bookmarks-set #[(track desc time) "\305\306\"\307\310 \fB\n\307#\311\306 #*\207" [track new-bookmarks old-bookmarks desc time emms-track-get bookmarks nil emms-bookmarks-straight-insertion-sort emms-track-set] 4 (#$ . 1368)]) #@61 Set bookmark property for the current track with text DESC. (defalias 'emms-bookmarks-set-current #[(desc) "\302\303  #\207" [desc emms-playing-time emms-bookmarks-set emms-playlist-current-selected-track] 4 (#$ . 1681)]) #@166 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. (defalias 'emms-bookmarks-search #[(time track test) "\304\305BC\306\307 !!\"\310\n\311\"\210\n\211@A)U\204\"\nA\202\nA\205*\nA@)\207" [time track s x append "time" copy-sequence emms-bookmarks-get sort #[(a b) " A\nA\"\207" [test a b] 3]] 6 (#$ . 1911)]) #@65 Return the bookmark after TIME for TRACK, otherwise return nil. (defalias 'emms-bookmarks-next-1 #[(time track) "\302 \303#\207" [time track emms-bookmarks-search <] 4 (#$ . 2348)]) #@66 Return the bookmark before TIME for TRACK, otherwise return nil. (defalias 'emms-bookmarks-prev-1 #[(time track) "\303 Z\n\304#\207" [time emms-bookmarks-prev-overshoot track emms-bookmarks-search >] 4 (#$ . 2537)]) #@156 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. (defalias 'emms-bookmarks-goto #[(search-f track failure-message) "\204\306 \210 \n \"\211\203\307\fA!\210\310\311\f@\"\202!\310\311 \")\207" [emms-player-playing-p search-f emms-playing-time track m failure-message emms-start emms-player-seek-to message "%s"] 4 (#$ . 2761)]) #@49 Seek to the next bookmark in the current track. (defalias 'emms-bookmarks-next #[nil "\300\301\302 \303#\207" [emms-bookmarks-goto emms-bookmarks-next-1 emms-playlist-current-selected-track "No next bookmark"] 4 (#$ . 3206) nil]) #@53 Seek to the previous bookmark in the current track. (defalias 'emms-bookmarks-prev #[nil "\300\301\302 \303#\207" [emms-bookmarks-goto emms-bookmarks-prev-1 emms-playlist-current-selected-track "No previous bookmark"] 4 (#$ . 3442) nil]) #@31 Eval BODY with player paused. (defalias 'emms-bookmarks-with-paused-player '(macro . #[(&rest body) "\301\302\303\304\"BB\207" [body progn (when (not emms-player-paused-p) (emms-pause)) append ((when emms-player-paused-p (emms-pause)))] 5 (#$ . 3686)])) #@185 Add a new bookmark to the current track. This function pauses the player while promting the user for a description of the bookmark. The function resumes the player after the prompt. (defalias 'emms-bookmarks-add #[nil "\204\302 \210\303\304!\305 \203\306 !\210\202\307\310!\210)\205\"\302 \207" [emms-player-paused-p desc emms-pause read-string "Description: " emms-playlist-current-selected-track emms-bookmarks-set-current error "No current track to bookmark"] 2 (#$ . 3948) nil]) #@50 Remove all the bookmarks from the current track. (defalias 'emms-bookmarks-clear #[nil "\301 \211\205\n\302!)\207" [this emms-playlist-current-selected-track emms-bookmarks-reset] 3 (#$ . 4449) nil]) (provide 'emms-bookmarks)