aboutsummaryrefslogtreecommitdiff
path: root/emms-info-ogg.el
diff options
context:
space:
mode:
authoryonirabkin <yonirabkin>2005-09-20 20:13:00 +0000
committeryonirabkin <mwolson@gnu.org>2005-09-20 20:13:00 +0000
commitcd1f64f873331c5a12fcd0146b0edd6ebfe0b2d9 (patch)
tree9bcd785234bc9102a84a8e089ff419fa3e71f7fa /emms-info-ogg.el
parent707ea4c592771085eab2d063c2be0b447503831c (diff)
clean-up emms-info-ogg.el
darcs-hash:20050920201300-be80e-1917b1e46f73bc57908ea1236ddf5efb4bf06fcf.gz
Diffstat (limited to 'emms-info-ogg.el')
-rw-r--r--emms-info-ogg.el23
1 files changed, 5 insertions, 18 deletions
diff --git a/emms-info-ogg.el b/emms-info-ogg.el
index 22d7a9e..07b5e59 100644
--- a/emms-info-ogg.el
+++ b/emms-info-ogg.el
@@ -1,9 +1,10 @@
;;; emms-info-ogg.el --- ogg-comment.el info-interface for EMMS
-;; Copyright (C) 2003 Free Software Foundation, Inc.
+;; Copyright (C) 2003, 2004, 2005 Free Software Foundation, Inc.
+
+;; Authors: Yoni Rabkin <yonirabkin@member.fsf.org>, Ulrik Jensen
+;; <terryp@daimi.au.dk>
-;; Authors: Ulrik Jensen <terryp@daimi.au.dk>, Yoni Rabkin
-;; <yonirabkin@member.fsf.org>
;; Keywords: ogg, emms, info
;; This file is free software; you can redistribute it and/or modify
@@ -29,7 +30,7 @@
;; To activate, put something like this in your ~/.emacs:
;; (require 'emms-info-ogg)
-;; (add-to-list 'emms-info-methods-list 'emms-info-ogg-comment)
+;; (add-to-list 'emms-info-methods-list 'emms-info-ogg)
;; You'll of course need to also have a player if you want to actually
;; play the files.
@@ -54,20 +55,6 @@ ogg-comments.el"
:type 'string
:group 'emms-info-ogginfo)
-(defcustom emms-info-mp3find-arguments
- `("-p" ,(concat "info-artist=%a\\n"
- "info-title=%t\\n"
- "info-album=%l\\n"
- "info-tracknum=%n\\n"
- "info-year=%y\\n"
- "info-genre=%g\\n"
- "info-note=%c\\n"
- "info-playing-time=%S\\n"))
- "The argument to pass to `emms-info-mp3info-program-name'.
-This should be a list of info-flag=value lines."
- :type '(repeat string)
- :group 'emms-info-mp3info)
-
(defun emms-info-ogg-get-comment (field info)
(let ((comment (cadr (assoc field (cadr info)))))
(if comment