Initial commit (CVS 2005-09-11)

darcs-hash:20050911200506-2189f-48a136015e33465c3cf09940ce935ec2203df463.gz

1 files changed, 189 insertions, 0 deletions

diff --git a/emms-score.el b/emms-score.el
new file mode 100644
index 0000000..da28828
--- /dev/null
+++ b/emms-score.el
@@ -0,0 +1,189 @@
+;;; emms-scores.el --- Scoring system for mp3player
+;; Author & Maintainer: Jean-Philippe Theberge (jphiltheberge@videotron.ca)
+;; version :
+(defconst emms-scores-version "1.92 $Revision: 1.4 $")
+;; $Id: emms-score.el,v 1.4 2004/02/17 09:01:49 kanaldrache Exp $
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;; Copyright (c) 1/me think he smoke too much marijuana in it's yong years998 - 1999 Free Software Foundation, Inc.
+;;
+;; This file is not part of GNU Emacs. :-(
+;;
+;; This file is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+;;
+;; GNU Emacs is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;
+;; NOTE: This is experimental stuff - comments welcome!  There
+;; shouldn't worky anything in that file... scores aren't saved, they
+;; even don't have any consequence on playing order and there's just
+;; one mood in the moment. But it's a beginning and you can score down
+;; or up tracks... :)
+;;
+;; * How to use scoring in emms
+;;
+;; When you load emms, you are set to a default mood
+;; 'emms-default-mood' A mood is a one word string describing how
+;; you feel (like "funny", "tired", "aggresive"...)  Each mood have is
+;; own set of scoring rules.
+;;
+;; You can change your mood with M-x emms-score-change-mood.
+;;
+;; Every music file start with a default score of 0 the command
+;; emms-score-up-current and emms-score-down-current modify the
+;; score of the file you are curently listening by 1 In addition,
+;; skipping a file (with emms-skip) automaticaly score the file
+;; down.
+;;
+;; With scoring on (this mean the variable emms-use-scoring is t),
+;; emms will compare the score of the file with your tolerance to
+;; decide if it is played or not.
+;;
+;; The default tolerance level is 0 (or the variable
+;; emms-score-min-score).  This mean files with a score of 0 or more will
+;; be played and files with a score of -1 or less will be skipped.
+;;
+;; You can change the tolerance (by 1) with M-x
+;; emms-score-lower-tolerance and M-x
+;; emms-score-be-more-tolerant
+
+;;; Code:
+
+(defvar emms-score-version "0.2 $Revision: 1.4 $"
+  "EMMS score version string.")
+;; $Id: emms-score.el,v 1.4 2004/02/17 09:01:49 kanaldrache Exp $
+
+(defvar emms-scores-list nil)
+(defvar emms-score-current-mood 'default)
+(defvar emms-score-min-score 0)
+(defvar emms-score-default-score 0)
+(defvar emms-score-hash (make-hash-table :test 'equal))
+
+(add-hook 'kill-emacs-hook 'emms-score-save-hash)
+
+(defcustom emms-score-file "~/.emms/scores"
+  "*Directory to store the score file."
+  :type 'directory
+  :group 'emms)
+
+(defun emms-score-change-mood (mood)
+  "Change the current MOOD.  
+The score hash is automatically saved."
+  (interactive "sMood: ")
+  (emms-score-save-hash)
+  (setq emms-score-current-mood (intern (downcase mood))))
+
+
+(defun emms-score-save-hash ()
+  "Save score hash in `emms-score-file'."
+  (interactive)
+  (unless (file-directory-p (file-name-directory emms-score-file))
+    (make-directory (file-name-directory emms-score-file)))
+  (with-temp-file emms-score-file
+    (let ((standard-output (current-buffer)))
+	  (insert "(")
+	  (maphash (lambda (key value)
+		     (prin1 (cons key value)))
+		   emms-score-hash)
+	  (insert ")"))))
+
+(defun emms-score-load-hash ()
+  "Load score hash from `emms-score-file'."
+  (interactive)
+  (mapc (lambda (elt)
+	  (puthash (car elt) (cdr elt) emms-score-hash))
+	(read
+	 (with-temp-buffer
+	   (insert-file-contents emms-score-file)
+	   (buffer-string)))))
+
+(defun emms-score-get-plist (filename)
+  (gethash filename emms-score-hash))
+
+(defun emms-score-change-score (score filename)
+  (let ((sp (emms-score-get-plist filename) )
+	(sc (emms-score-get-score filename)))
+    (puthash filename 
+	     (plist-put sp emms-score-current-mood (+ sc score)) 
+	     emms-score-hash)
+    (message "New score is %s" (+ score sc))))
+  
+(defun emms-score-up-current ()
+  (interactive)
+  (emms-score-change-score 1 (emms-playlist-current)))
+
+(defun emms-score-down-current ()
+  (interactive)
+  (emms-score-change-score -1 (emms-playlist-current)))
+
+(defun emms-score-up-file-on-line ()
+  (interactive)
+  (let ((idx (1- (count-lines (point-min) (point-at-eol)))))
+    (emms-score-change-score 1 (emms-track-name (emms-playlist-get-track idx)))))
+	
+(defun emms-score-down-file-on-line ()
+  (interactive)
+  (let ((idx (1- (count-lines (point-min) (point-at-eol)))))
+    (emms-score-change-score -1 (emms-track-name (emms-playlist-get-track idx)))))
+	
+
+(defun emms-score (arg)
+  "Turn on emms-score if prefix argument ARG is a positive integer,
+off otherwise."
+  (interactive "p")
+  (if (and arg (> arg 0))
+      (progn
+	(emms-score-load-hash)
+	(remove-hook 'emms-player-stopped-hook 'emms-next-noerror)
+	(add-hook 'emms-player-stopped-hook 'emms-score-next-noerror))
+    (emms-score-save-hash)
+    (remove-hook 'emms-player-stopped-hook 'emms-score-next-noerror)
+    (add-hook 'emms-player-stopped-hook 'emms-next-noerror)))
+
+(defun emms-score-next-noerror ()
+  "Play the next track in the playlist, but don't signal an error when
+we're at the end. This should be called when no player is playing.
+This is a suitable function to put in `emms-player-stopped-hook'."
+  (interactive)
+  (when emms-player-playing-p
+    (error "A track is already playing."))  
+  (if (emms-playlist-next) 
+      (if (emms-score-check-score (emms-playlist-current))
+	  (emms-start)
+	(emms-score-next-noerror))
+    (message "No track in playlist that matches your score anymore")))
+
+(defun emms-score-create-entry (filename)
+  (puthash filename (list emms-score-current-mood emms-score-default-score) 
+	   emms-score-hash))
+
+(defun emms-score-get-score (filename)
+  "Return score of TRACK."
+  (let ((plist (emms-score-get-plist filename)))
+    (if (member emms-score-current-mood plist)
+	(plist-get plist emms-score-current-mood)
+      (emms-score-create-entry filename)
+      (emms-score-get-score filename))))
+    
+(defun emms-score-check-score (filename)
+  (>= (emms-score-get-score filename) emms-score-min-score))
+
+(defun emms-score-lower-tolerance ()
+  "Only play mp3 with a higher score"
+  (interactive)
+  (setq emms-score-min-score (+ emms-score-min-score 1)))
+
+(defun emms-score-be-more-tolerant ()
+  "Allow playing of mp3 with a lower score"
+  (interactive)
+  (setq emms-score-min-score (- emms-score-min-score 1)))
+
+(provide 'emms-score)
+
+;;; emms-scores.el ends here