Initial commit (CVS 2005-09-11)

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

1 files changed, 158 insertions, 0 deletions

diff --git a/emms-info-mp3info.el b/emms-info-mp3info.el
new file mode 100644
index 0000000..f1a0ed9
--- /dev/null
+++ b/emms-info-mp3info.el
@@ -0,0 +1,158 @@
+;;; emms-info-mp3info.el --- Info-method for EMMS using mp3info
+
+;; Copyright (C) 2003  Free Software Foundation, Inc.
+
+;; Author: Ulrik Jensen <terryp@daimi.au.dk>
+;; Keywords:
+
+;; 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.
+
+;; This file 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.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING. If not, write to the
+;; Free Software Foundation, Inc., 51 Franklin St, Fifth Floor,
+;; Boston, MA 02110-1301 USA
+
+;;; Commentary:
+
+;; This code has been adapted from code found in mp3player.el, written
+;; by Jean-Philippe Theberge (jphiltheberge@videotron.ca), Mario
+;; Domgoergen (kanaldrache@gmx.de) and Jorgen Schäfer
+;; <forcer@forcix.cx>
+
+;; To activate this method for getting info, use something like:
+
+;; (require 'emms-info-mp3info)
+;; (add-to-list 'emms-info-methods-list 'emms-info-mp3info)
+
+;;; Code:
+(eval-when-compile (require 'cl))
+(require 'emms-info)
+
+(defvar emms-info-mp3info-version "0.2 $Revision: 1.10 $"
+  "EMMS info mp3info version string.")
+;; $Id: emms-info-mp3info.el,v 1.10 2005/08/12 18:01:16 xwl Exp $
+
+(defgroup emms-info-mp3info nil
+  "An EMMS-info method for getting/setting ID3v1 tags, using a
+external mp3info program"
+  :group 'emms-info-methods)
+
+(defcustom emms-info-mp3info-program-name "mp3info"
+  "*The name/path of the mp3info tag program."
+  :type 'string
+  :group 'emms-info-mp3info)
+
+(defcustom emms-info-mp3info-field-names
+  '(title "title"
+	  artist "artist"
+	  album "album"
+	  note "description"
+	  year "date"
+	  genre "genre"
+	  file (emms-track-name track)
+	  playing-time "playing-time"
+	  playing-time-min "playing-time-min"
+	  playing-time-sec "playing-time-sec")
+  "Plist of field names."
+  :type 'plist
+  :group 'emms-info-mp3info)
+
+(defcustom emms-info-mp3info-set-parameter
+  '(title "-t"
+	  artist "-a"
+	  album "-l"
+	  note "-c"
+	  year "-y"
+	  genre "-g")
+  "Parameter list"
+  :type 'plist
+  :group 'emms-info-mp3info)
+
+(defcustom emms-info-field-delemiter "="
+  "Delemiter between field and content."
+  :type 'string
+  :group 'emms-info-mp3info)
+
+(defcustom emms-info-field-seperator "\n"
+  "Seperator between different fields."
+  :type 'string
+  :group 'emms-info-mp3info)
+
+
+(define-emms-info-method emms-info-mp3info
+  :providep 'emms-info-mp3info-providep
+  :get 'emms-info-mp3info-get
+  :set 'emms-info-mp3info-set)
+
+(defun emms-info-mp3info-providep (track)
+  "Return non-nil if this info-method provides info for the track."
+  (if (and track (emms-track-name track)
+	   (string-match "\\.mp3$" (emms-track-name track)))
+      t
+    nil))
+
+(defun emms-info-mp3info-set (track info)
+  "Set the id3v1 tag of file TRACK to id3info INFO, using the
+mp3info-program"
+  ;; 0 = discard & don't wait for termination.
+  (call-process emms-info-mp3info-program-name nil 0 nil
+		"-a" (emms-info-artist info)
+		"-t" (emms-info-title info)
+ 		"-l" (emms-info-album info)
+		"-c" (emms-info-note info)
+		"-y" (emms-info-year info)
+		(emms-track-name track)))
+
+(defun emms-info-retrieve (field)
+  "Search for field and get content.
+If there is no field return an empty string"
+  (goto-char (point-min))
+  (save-match-data
+    (or (progn
+	  (re-search-forward
+	   (concat field emms-info-field-delemiter "\\(.*\\)"
+		   emms-info-field-seperator)
+	   nil t)
+	  (match-string 1))
+	"")))
+
+
+(defun emms-info-mp3info-get (track)
+  "Get the id3v1 tag of file TRACK, using the mp3info-program and
+return an emms-info structure representing it."
+  (with-temp-buffer
+    (call-process emms-info-mp3info-program-name nil t nil
+		  "-p"
+		  (concat "title=%t\n" "artist=%a\n" "album=%l\n"
+			  "date=%y\n" "genre=%G\n" "description=%c\n"
+			  "playing-time=%S\n" "playing-time-min=%m\n"
+			  "playing-time-sec=%s\n")
+		  (emms-track-name track))
+    (flet ((retrieve-info (field)
+			  (goto-char (point-min))
+ 			  (save-match-data
+ 			    (when (re-search-forward (concat field "=\\(.*\\)")
+						     nil t)
+			      (or (match-string 1) "")))))
+      (make-emms-info
+       :title (retrieve-info "title")
+       :artist (retrieve-info "artist")
+       :album (retrieve-info "album")
+       :note (retrieve-info "description")
+       :year (retrieve-info "date")
+       :genre (retrieve-info "genre")
+       :file (emms-track-name track)
+       :playing-time (retrieve-info "playing-time")
+       :playing-time-min (retrieve-info "playing-time-min")
+       :playing-time-sec (retrieve-info "playing-time-sec")))))
+
+(provide 'emms-info-mp3info)
+;;; emms-info-mp3info.el ends here