From 5fa90c9bbe89551ad6b62a008709f2359e754ae0 Mon Sep 17 00:00:00 2001 From: "william.xwl" Date: Fri, 16 Jun 2006 16:22:00 +0000 Subject: Rename `emms-score-show' to `emms-score-show-playing'. Add `emms-score-show-file-on-line'. darcs-hash:20060616162244-e8fe6-91e510b1ef2d25f1245edfb5f635657bd2227921.gz --- emms-score.el | 12 ++++++++++-- 1 file changed, 10 insertions(+), 2 deletions(-) diff --git a/emms-score.el b/emms-score.el index 391ade2..6ef7fc1 100644 --- a/emms-score.el +++ b/emms-score.el @@ -186,14 +186,22 @@ The score hash is automatically saved." (setq emms-score-min-score tolerance) (message "Will play songs with a score >= %d" emms-score-min-score)) -(defun emms-score-show () - "Show current track's score in minibuf." +(defun emms-score-show-playing () + "Show score for current playing track in minibuf." (interactive) (message "track/tolerance score: %d/%d" (emms-score-get-score (emms-score-current-selected-track-filename)) emms-score-min-score)) +(defun emms-score-show-file-on-line () + "Show score for track at point in emms-playlist buffer." + (interactive) + (message "track/tolerance score: %d/%d" + (emms-score-get-score + (emms-score-track-at-filename)) + emms-score-min-score)) + ;;; Internal Functions -- cgit v1.2.3