*.el -> lisp/*.el: Move lisp files into "lisp/" subdirectory.

1 files changed, 0 insertions, 81 deletions

diff --git a/emms-info-libtag.el b/emms-info-libtag.el
deleted file mode 100644
index 96c7613..0000000
--- a/emms-info-libtag.el
+++ /dev/null
@@ -1,81 +0,0 @@
-;;; emms-info-libtag.el --- Info-method for EMMS using libtag
-
-;; Copyright (C) 2003, 2004, 2005, 2006, 2007 Free Software Foundation, Inc.
-
-;; Authors: Ulrik Jensen <terryp@daimi.au.dk>
-;;          Jorgen Schäfer <forcer@forcix.cx>
-;; Keywords:
-
-;; This file is part of EMMS.
-
-;; EMMS 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 3, or (at your option)
-;; any later version.
-
-;; EMMS 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 EMMS; see the file COPYING. If not, write to the
-;; Free Software Foundation, Inc., 51 Franklin Street, 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-libtag)
-;; (add-to-list 'emms-info-functions 'emms-info-libtag)
-
-;; Note that you should remove emms-info-mp3info and emms-info-ogginfo
-;; from the emms-info-functions list if you want to avoid
-;; conflicts. For example, to set libtag as your exclusive info
-;; provider:
-
-;; (setq emms-info-functions '(emms-info-libtag))
-
-;;; Code:
-
-(require 'emms-info)
-
-(defvar emms-info-libtag-coding-system 'utf-8)
-(defvar emms-info-libtag-program-name "emms-print-metadata")
-
-(defun emms-info-libtag (track)
-  (when (and (eq 'file (emms-track-type track))
-             (string-match 
-              "\\.\\([Mm][Pp]3\\|[oO][gG][gG]\\|[fF][lL][aA][cC]\\|[sS][pP][xX]\\)\\'"
-              (emms-track-name track)))
-    (with-temp-buffer
-      (when (zerop
-             (let ((coding-system-for-read 'utf-8))
-               (call-process "emms-print-metadata" 
-                             nil t nil
-                             (emms-track-name track))))
-        (goto-char (point-min))
-        ;; Crush the trailing whitespace
-        (while (re-search-forward "[[:space:]]+$" nil t)
-          (replace-match "" nil nil))
-        (goto-char (point-min))
-        (while (looking-at "^\\([^=\n]+\\)=\\(.*\\)$")
-          (let ((name (intern-soft (match-string 1)))
-                (value (match-string 2)))
-            (when (> (length value)
-                     0)
-              (emms-track-set track
-                              name
-                              (if (eq name 'info-playing-time)
-                                  (string-to-number value)
-                                value))))
-          (forward-line 1))))))
-
-(provide 'emms-info-libtag)
-;;; emms-info-libtag.el ends here