aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorforcer <forcer>2005-09-20 17:13:00 +0000
committerforcer <mwolson@gnu.org>2005-09-20 17:13:00 +0000
commit9ed18917952044ca8d98812c7c5e3b12cc82041c (patch)
treecb6a005af02db3ae4953cfde668e69802ef27823
parent0d415cf8ef9ffe5d2bde8b1192a030a6ec193734 (diff)
Hotfix for emms-streams due to info changed. Please fix later.
darcs-hash:20050920171329-2189f-4d4df14baa03e0a200039510958b5b782098f4d1.gz
-rw-r--r--emms-streams.el46
1 files changed, 23 insertions, 23 deletions
diff --git a/emms-streams.el b/emms-streams.el
index 9338216..60cd6ae 100644
--- a/emms-streams.el
+++ b/emms-streams.el
@@ -379,9 +379,9 @@ Don't forget to save your modifications !"
(message "Default action is now play")))
;; info part
-(define-emms-info-method emms-info-url
- :providep 'emms-info-url-providep
- :get 'emms-info-url-get)
+; (define-emms-info-method emms-info-url
+; :providep 'emms-info-url-providep
+; :get 'emms-info-url-get)
;; :set 'emms-info-url-set)
;; A way to get the last element. it is either the only one, or the
@@ -396,20 +396,20 @@ Don't forget to save your modifications !"
t
nil))
-(defun emms-info-url-get (track)
- (make-emms-info
- :title (emms-stream-url (emms-track-get track 'metadata))
- :artist (emms-stream-name (emms-track-get track 'metadata))
- :album " "
- :note " "
- :year " "
- :genre " "
- :file (emms-stream-url (emms-track-get track 'metadata))))
+; (defun emms-info-url-get (track)
+; (make-emms-info
+; :title (emms-stream-url (emms-track-get track 'metadata))
+; :artist (emms-stream-name (emms-track-get track 'metadata))
+; :album " "
+; :note " "
+; :year " "
+; :genre " "
+; :file (emms-stream-url (emms-track-get track 'metadata))))
;; Then you register it with emms-info, by adding it to
;; `emms-info-methods-list'.
-(add-to-list 'emms-info-methods-list 'emms-info-url)
+; (add-to-list 'emms-info-methods-list 'emms-info-url)
(defun emms-info-file-info-song-artist (track)
"Returns a description of TRACK, build from its comments.
@@ -431,16 +431,16 @@ about it, use this. Otherwise returns the name alone."
(setq emms-track-initialize-functions '(emms-stream-add-data-to-track))
-(when (featurep 'emms-info)
- (eval-when-compile (require 'emms-info)) ; appease byte-compiler
- (add-to-list 'emms-info-methods-list 'emms-info-streamlist)
- (defun emms-info-streamlist-providep (track)
- (if (eq (emms-track-type track) 'streamlist)
- t
- nil))
- (define-emms-info-method emms-info-streamlist ;; FIXME-PLS ?
- :providep 'emms-info-streamlist-providep ;; FIXME-PLS ?
- :get 'emms-info-url-get))
+; (when (featurep 'emms-info)
+; (eval-when-compile (require 'emms-info)) ; appease byte-compiler
+; (add-to-list 'emms-info-methods-list 'emms-info-streamlist)
+; (defun emms-info-streamlist-providep (track)
+; (if (eq (emms-track-type track) 'streamlist)
+; t
+; nil))
+; (define-emms-info-method emms-info-streamlist ;; FIXME-PLS ?
+; :providep 'emms-info-streamlist-providep ;; FIXME-PLS ?
+; :get 'emms-info-url-get))
(provide 'emms-streams)
;;; emms-streams.el ends here