From 1f15a81d458c05585b58341be24568df790a40bc Mon Sep 17 00:00:00 2001
From: Yoni Rabkin <yoni@rabkins.net>
Date: Thu, 16 Jan 2020 13:44:48 -0500
Subject: * lisp/emms-stream-info.el: remove old code

---
 lisp/emms-stream-info.el | 91 ++----------------------------------------------
 1 file changed, 2 insertions(+), 89 deletions(-)

(limited to 'lisp')

diff --git a/lisp/emms-stream-info.el b/lisp/emms-stream-info.el
index 4bf7eeb..2bc7a41 100644
--- a/lisp/emms-stream-info.el
+++ b/lisp/emms-stream-info.el
@@ -1,7 +1,7 @@
 ;;; emms-stream-info.el --- Info from streaming audio
 
 ;; Copyright (C) 2004, 2005, 2006, 2007, 2008,
-;;   2009 Free Software Foundation, Inc.
+;;   2009, 2019 Free Software Foundation, Inc.
 
 ;; Author: Yoni Rabkin <yrk@gnu.org>
 
@@ -21,96 +21,9 @@
 ;; along with EMMS; if not, write to the Free Software Foundation,
 ;; Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA.
 
-;;; Commentary:
-;;
-;; Set `emms-stream-info-backend' to either 'vlc or 'mplayer, which
-;; are the two currently supported backends for retrieving stream
-;; information.  You can then either call `emms-stream-info-message'
-;; directly or hit "i" in the `emms-streams' buffer over stream you
-;; want to investigate.
-;;
-;; Note that you do not have to be playing the stream in question in
-;; order to find out what is playing on it since this library will
-;; open its own connection to the streaming server.
-;;
-;; Please send bug reports and stations which do not work to the
-;; maintainer (email at the top of this file).
-
-;;; History:
-;; 
-;; This library was re-implemented from scratch around January of
-;; 2009. If you are looking for the old code then grab source code
-;; older than that.
-
 ;;; Code:
 
-(defvar emms-stream-info-backend nil
-  "Symbol designating the backend program to use.")
-
-;; using unhygienic macros for good... or is it evil?
-(defmacro emms-stream-info-defreg (symname regexp)
-  "Set SYMNAME to be the match for REGEXP."
-  `(save-excursion
-     (goto-char (point-min))
-     (re-search-forward ,regexp (point-max) t)
-     (when (and (match-string-no-properties 1)
-		(> (length (match-string-no-properties 1)) 0))
-       (setq ,symname (match-string-no-properties 1)))))
-
-(defun emms-stream-info-mplayer-backend (url)
-  "Backend command for running mplayer on URL."
-  (condition-case excep
-      (call-process "mplayer" nil t nil
-		    "-nocache" "-endpos" "0" "-vo" "null" "-ao" "null"
-		    url)
-    (file-error
-     (error "Could not find the mplayer backend binary"))))
-
-(defun emms-stream-info-vlc-backend (url)
-  "Backend command for running VLC on URL."
-  (condition-case excep
-      (call-process "vlc" nil t nil
-		    "-vvv" "--intf" "dummy" "--stop-time" "1" "--noaudio"
-		    url "vlc:quit")
-    (file-error
-     (error "Could not find the VLC backend binary"))))
-
-(defun emms-stream-info-call-backend (url)
-  "Call backend and return a list of stream information for URL."
-  (let ((name "N/A")
-	(genre "N/A")
-	(bitrate "N/A")
-	(nowplaying "N/A"))
-    (with-temp-buffer
-      (message "querying stream with %s backend..." emms-stream-info-backend)
-      (cond
-       ((eq emms-stream-info-backend 'mplayer)
-	(emms-stream-info-mplayer-backend url)
-	(emms-stream-info-defreg name "^Name[ ]+:[ ]+\\(.*\\)$")
-	(emms-stream-info-defreg genre "^Genre[ ]+:[ ]+\\(.*\\)$")
-	(emms-stream-info-defreg bitrate "^Bitrate[ ]+:[ ]+\\(.*\\)$")
-	(emms-stream-info-defreg nowplaying "ICY Info: StreamTitle='\\(.+?\\)'"))
-       ((eq emms-stream-info-backend 'vlc)
-	(emms-stream-info-vlc-backend url)
-	(emms-stream-info-defreg name "'Title' = '\\(.*\\)'")
-	(emms-stream-info-defreg genre "Genre: \\(.*\\)")
-	(emms-stream-info-defreg bitrate "bitrate:\\([0-9].+\\)")
-	(emms-stream-info-defreg nowplaying "'Now Playing' = '\\(.+?\\)'"))
-       (t (error "Unknown backend"))))
-    (message "querying stream...done")
-    (list name genre bitrate nowplaying)))
-
-;; point of entry
-(defun emms-stream-info-message (url)
-  "Display a message with information about the stream at URL."
-  (interactive "Murl: ")
-  (let* ((stream-info (emms-stream-info-call-backend url))
-	 (name (nth 0 stream-info))
-	 (genre (nth 1 stream-info))
-	 (bitrate (nth 2 stream-info))
-	 (nowplaying (nth 3 stream-info)))
-    (message "now playing: %s on %s, genre: %s, bitrate: %s"
-	     nowplaying name genre bitrate)))
+;; to be implemented!
 
 (provide 'emms-stream-info)
 
-- 
cgit v1.2.3