;ELC ;;; Compiled by heimdall@baldur on Fri Feb 1 18:34:57 2008 ;;; from file /home/heimdall/repos/emms/emms-score.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-score.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\301\302!\210\303B\304\303!\204\305\303\306\"\210\307B\304\307!\204\"\305\307\310\"\210\311B\304\311!\2041\305\311\312\"\210\313B\304\313!\204@\305\313\312\"\210\314B\304\314!\204R\305\314\315\316\317\"\"\210\306\207" [current-load-list require emms emms-scores-list default-boundp set-default nil emms-score-current-mood default emms-score-min-score 0 emms-score-default-score emms-score-hash make-hash-table :test equal] 5) #@35 If non-nil, emms score is active. (defvar emms-score-enabled-p nil (#$ . 1037)) #@37 *Directory to store the score file. (custom-declare-variable 'emms-score-file '(concat (file-name-as-directory emms-directory) "scores") '(#$ . -1123) :type 'directory :group 'emms) #@81 Turn on emms-score if prefix argument ARG is a positive integer, off otherwise. (defalias 'emms-score #[(arg) "\203\303V\203\304\305\306 \210\307\310\311\"\207\312\313\311 \210\314\310\311\"\207" [arg emms-score-enabled-p emms-player-next-function 0 t emms-score-next-noerror emms-score-load-hash add-hook kill-emacs-hook emms-score-save-hash nil emms-next-noerror remove-hook] 3 (#$ . 1311) "p"]) #@21 Turn on emms-score. (defalias 'emms-score-enable #[nil "\300\301!\210\302\303!\207" [emms-score 1 message "emms score enabled"] 2 (#$ . 1725) nil]) #@22 Turn off emms-score. (defalias 'emms-score-disable #[nil "\300\301!\210\302\303!\207" [emms-score -1 message "emms score disabled"] 2 (#$ . 1879) nil]) #@20 Toggle emms-score. (defalias 'emms-score-toggle #[nil "\203\301 \207\302 \207" [emms-score-enabled-p emms-score-disable emms-score-enable] 1 (#$ . 2037) nil]) #@65 Change the current MOOD. The score hash is automatically saved. (defalias 'emms-score-change-mood #[(mood) "\302 \210\303\227!\211\207" [mood emms-score-current-mood emms-score-save-hash intern] 2 (#$ . 2205) "sMood: "]) (defalias 'emms-score-up-playing #[nil "\203\n\301\302\303 \"\207\304\305!\207" [emms-player-playing-p emms-score-change-score 1 emms-score-current-selected-track-filename error "No track currently playing"] 3 nil nil]) (defalias 'emms-score-down-playing #[nil "\203\n\301\302\303 \"\207\304\305!\207" [emms-player-playing-p emms-score-change-score -1 emms-score-current-selected-track-filename error "No track currently playing"] 3 nil nil]) (defalias 'emms-score-up-file-on-line #[nil "\300\301\302 \"\207" [emms-score-change-score 1 emms-score-track-at-filename] 3 nil nil]) (defalias 'emms-score-down-file-on-line #[nil "\300\301\302 \"\207" [emms-score-change-score -1 emms-score-track-at-filename] 3 nil nil]) #@35 Only play mp3 with a higher score (defalias 'emms-score-less-tolerant #[nil "T\301\302\"\207" [emms-score-min-score message "Will play songs with a score >= %d"] 3 (#$ . 3154) nil]) #@42 Allow playing of mp3 with a lower score. (defalias 'emms-score-more-tolerant #[nil "S\301\302\"\207" [emms-score-min-score message "Will play songs with a score >= %d"] 3 (#$ . 3345) nil]) #@38 Set score for current playing track. (defalias 'emms-score-set-playing #[(score) "\303  \203\304\n\305!Z\"\202\306\307!)\207" [filename emms-player-playing-p score emms-score-current-selected-track-filename emms-score-change-score emms-score-get-score error "No track currently playing"] 4 (#$ . 3543) "nSet score for playing track: "]) #@55 Set score for track at point in emms-playlist buffer. (defalias 'emms-score-set-file-on-line #[(score) "\303  \205\304\n\305!Z\")\207" [filename emms-player-playing-p score emms-score-track-at-filename emms-score-change-score emms-score-get-score] 4 (#$ . 3893) "nSet score for track at point: "]) #@49 Allow playing tracks with a score >= tolerance. (defalias 'emms-score-set-tolerance #[(tolerance) "\302\303 \"\207" [tolerance emms-score-min-score message "Will play songs with a score >= %d"] 3 (#$ . 4202) "nSet tolerance: "]) #@50 Show score for current playing track in minibuf. (defalias 'emms-score-show-playing #[nil "\301\302\303\304 !#\207" [emms-score-min-score message "track/tolerance score: %d/%d" emms-score-get-score emms-score-current-selected-track-filename] 4 (#$ . 4439) nil]) #@56 Show score for track at point in emms-playlist buffer. (defalias 'emms-score-show-file-on-line #[nil "\301\302\303\304 !#\207" [emms-score-min-score message "track/tolerance score: %d/%d" emms-score-get-score emms-score-track-at-filename] 4 (#$ . 4708) nil]) #@44 Return filename of current selected track. (defalias 'emms-score-current-selected-track-filename #[nil "\300\301 \302\"\207" [emms-track-get emms-playlist-current-selected-track name] 3 (#$ . 4974)]) #@56 Return file of track at point in emms-playlist buffer. (defalias 'emms-score-track-at-filename #[nil "\300\301 \302\"\207" [emms-track-get emms-playlist-track-at name] 3 (#$ . 5180)]) #@73 Run `emms-next-noerror' with score check. See also `emms-next-noerror'. (defalias 'emms-score-next-noerror #[nil "\203\302\303!\210 \203\304 \207\305\306\307\217\203#\310\311 !\203 \304 \207\312 \207\313\314!\207" [emms-player-playing-p emms-repeat-track error "A track is already being played" emms-start nil (byte-code "\300 \210\301\207" [emms-playlist-current-select-next t] 1) ((error)) emms-score-check-score emms-score-current-selected-track-filename emms-score-next-noerror message "No next track in playlist"] 3 (#$ . 5370) nil]) #@39 Save score hash in `emms-score-file'. (defalias 'emms-score-save-hash #[nil "\305\306!!\204\307\306!!\210\310\311\312!!\313\216r q\210p\314c\210\315\316\f\"\210\317c*r q\210~\210\320ed\n\321\322%\210,\207" [emms-score-file #1=#:temp-buffer #2=#:temp-file standard-output emms-score-hash file-directory-p file-name-directory make-directory get-buffer-create generate-new-buffer-name " *temp file*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) "(" maphash #[(key value) "\302 B!\207" [key value prin1] 3] ")" write-region nil 0] 7 (#$ . 5922) nil]) #@41 Load score hash from `emms-score-file'. (defalias 'emms-score-load-hash #[nil "\302!\203\303\304\305\306\307!\310\216r q\210\311!\210\312 +!\"\207\313 \207" [emms-score-file #1=#:temp-buffer file-exists-p mapc #[(elt) "\302@A #\207" [elt emms-score-hash puthash] 4] read generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) insert-file-contents buffer-string emms-score-save-hash] 5 (#$ . 6519) nil]) (defalias 'emms-score-get-plist #[(filename) "\302 \"\207" [filename emms-score-hash gethash] 3]) (defalias 'emms-score-change-score #[(score filename) "\306!\307!\310\311\n \f\\# #\210\312\313\f \\\"*\207" [filename sc sp emms-score-current-mood score emms-score-hash emms-score-get-plist emms-score-get-score puthash plist-put message "New score is %s"] 7]) (defalias 'emms-score-create-entry #[(filename) "\304 \nD #\207" [filename emms-score-current-mood emms-score-default-score emms-score-hash puthash] 4]) #@24 Return score of TRACK. (defalias 'emms-score-get-score #[(filename) "\303!\n \235\203\304 \n\"\202\305!\210\306!)\207" [filename plist emms-score-current-mood emms-score-get-plist plist-get emms-score-create-entry emms-score-get-score] 3 (#$ . 7511)]) (defalias 'emms-score-check-score #[(filename) "\302! Y\207" [filename emms-score-min-score emms-score-get-score] 2]) (provide 'emms-score)