aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorYoni Rabkin <yoni@rabkins.net>2019-11-06 13:37:16 -0500
committerYoni Rabkin <yoni@rabkins.net>2019-11-06 13:37:16 -0500
commit101b91e2ff4985de47550fcd972767cb15e5fb6c (patch)
tree11a2251b887da1304db33347f38ce0e6f453e1fb
parent342ffff018657b3984c7d57cc509540c0b0670c1 (diff)
* lisp/emms-streams.el: complete rewrite
-rw-r--r--lisp/emms-streams.el704
1 files changed, 109 insertions, 595 deletions
diff --git a/lisp/emms-streams.el b/lisp/emms-streams.el
index 3ebdcc3..f2c424d 100644
--- a/lisp/emms-streams.el
+++ b/lisp/emms-streams.el
@@ -1,24 +1,20 @@
-;; emms-streams.el -- interface to add and play streams
+;; emms-streams.el -- A collection of online streaming audio
-;; Copyright (C) 2004, 2005, 2006, 2007, 2008,
-;; 2009 Free Software Foundation, Inc.
+;; Copyright (C) 2019 Free Software Foundation, Inc.
-;; Authors: Lucas Bonnet <lucas@rincevent.net>
-;; Jose A Ortega Ruiz <jao@gnu.org>
-;; Yoni Rabkin <yrk@gnu.org>
-;; Michael Olson <mwolson@gnu.org>
+;; Authors: Yoni Rabkin <yrk@gnu.org>
;; 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
-;; of the License, or (at your option) any later version.
+;; 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 of the License, 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.
+;; 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; if not, write to the Free Software Foundation,
@@ -26,597 +22,115 @@
;;; Commentary:
-;; It is part of the EMMS package
+;; 2019-11-05 - This is a complete re-write of the emms-streams.el,
+;; using a different approach.
-;; Heavily based on bmk-mgr.el by Jose A Ortega Ruiz <jao@gnu.org>
-;; thanks to you !
+;; This includes the built-in list of streams which come with Emms by
+;; default. Emms has no affiliation of any kind with the streaming
+;; audio stations listed below, nor is this an endorsement of these
+;; stations. Instead, this is a collection of stations submitted to
+;; the project over the years by people who enjoy Emms. We hope you
+;; will enjoy them too.
;;; Code:
(require 'emms)
-(require 'later-do)
-(defgroup emms-stream nil
- "*Add and play streams with EMMS."
- :group 'emms)
-(defcustom emms-stream-bookmarks-file (concat (file-name-as-directory emms-directory) "streams")
- "*The file where you store your favorite emms streams."
- :type 'file
- :group 'emms-stream)
-
-(defcustom emms-stream-default-action "add"
- "*The default action when you press RET in the EMMS Stream interface.
-Can be either \"add\" or \"play\". The default is \"add\"."
- :type 'string
- :group 'emms-stream)
-
-(defface emms-stream-name-face '((t (:bold t :weight bold)))
- "Face for stream names."
- :group 'emms-stream)
-
-(defface emms-stream-url-face
- '((((class color) (background dark))
- (:foreground "LightSteelBlue"))
- (((class color) (background light))
- (:foreground "Blue")))
- "Face for stream URLs."
- :group 'emms-stream)
-
-(defvar emms-stream-list nil
- "The list that contains your current stream bookmarks.")
-
-(defvar emms-stream-buffer-name "*EMMS Streams*"
- "The name of the buffer used by emms-stream interface.")
-
-(defvar emms-stream-play-hook nil
- "*A hook run when you add or play an EMMS stream via the popup.")
-
-(defvar emms-stream-hook nil
-"*A hook run when you call emms-streams or emms-stream-popup.")
-
-(defvar emms-stream-current-stream nil
- "The stream currently being played.
-Needed by the info method, as the track doesn't contain all the
-needed info.")
-
-(defvar emms-stream-popup-old-conf nil
- "Old window configuration.")
-
-(defvar emms-stream-last-stream nil
- "The last stream added/played by EMMS.")
-
-(defvar emms-stream-playlist-buffer nil
- "The EMMS playlist buffer associated with emms-streams.")
-
-(defcustom emms-stream-repeat-p nil
- "*If non-nil, try to repeat a streamlist if it gets disconnected."
- :set (function
- (lambda (sym val)
- (when (buffer-live-p emms-stream-playlist-buffer)
- (with-current-buffer emms-stream-playlist-buffer
- (setq emms-repeat-playlist val)))
- (set sym val)))
- :type 'boolean
- :group 'emms-stream)
-
-;; Format: (("descriptive name" url feed-number type))
-;;
-;; type could be either url, playlist, or lastfm. If url, then it
-;; represents a direct IP, if streamlist it's a stream playlist, if
-;; lastfm it's a lastfm station
-(defvar emms-stream-default-list
- '(("SomaFM: Beatblender"
- "http://www.somafm.com/beatblender.pls" 1 streamlist)
- ("SomaFM: Secret Agent"
- "http://www.somafm.com/secretagent.pls" 1 streamlist)
- ("SomaFM: Groove Salad"
- "http://www.somafm.com/groovesalad.pls" 1 streamlist)
- ("SomaFM: Drone Zone"
- "http://www.somafm.com/dronezone.pls" 1 streamlist)
- ("SomaFM: Tag's Trance"
- "http://www.somafm.com/tagstrance.pls" 1 streamlist)
- ("SomaFM: Indie Pop Rocks"
- "http://www.somafm.com/indiepop.pls" 1 streamlist)
- ("SomaFM: Doomed"
- "http://www.somafm.com/doomed.pls" 1 streamlist)
- ("P H I L O S O M A T I K A - Progressive Psytrance"
- "http://listen.radionomy.com:80/-PHILOSOMATIKAPROGRESSIVE-" 1 url)
- ("P H I L O S O M A T I K A - Psytrance"
- "http://listen.radionomy.com:80/-PHILOSOMATIKA-" 1 url)
- ("Drum and Bass Radio, BassDrive"
- "http://www.bassdrive.com/BassDrive.m3u" 1 streamlist)
- ("WCPE, Classical Music"
- "http://www.ibiblio.org/wcpe/wcpe.pls" 1 streamlist)
- ("Kohina - Old school game and demo music"
- "http://stream.nute.net/kohina/stream.ogg.m3u" 1 streamlist)
- ("Nectarine, Demoscene Radio, DE Continuum's relay 192 mp3"
- "http://privat.is-by.us:8000/necta192.mp3.m3u" 1 streamlist)
- ("Nectarine, Demoscene Radio, DE stream (High Bitrate)"
- "http://nectarine.from-de.com/necta192.m3u" 1 streamlist)
- ("Nectarine, Demoscene Radio, FR stream (High Bitrate)"
- "http://necta-relay.mnus.de:8000/necta192.mp3.m3u" 1 streamlist)
- ("Nectarine, Demoscene Radio, Norwegian stream"
- "http://pmaster.no:9000/necta.m3u" 1 streamlist)
- ("Nectarine, Demoscene Radio, UK stream (High Bitrate)"
- "http://necta.jansenit.com:8000/necta192.mp3.m3u" 1 streamlist)
- ("idobi Radio"
- "http://www.idobi.com/radio/iradio.pls" 1 streamlist)
- ("radio.wazee - Modern Alternative Rock"
- "http://www.wazee.org/128.pls" 1 streamlist)
- ("WFMU, Freeform radio"
- "http://www.wfmu.org/wfmu.pls" 1 streamlist)
- ("WBCR-LP - Berkshire Community Radio"
- "http://nyc01.egihosting.com:6232/listen.pls" 1 streamlist)
- ("Rinse FM - London and Worldwide"
- "http://streamer.dgen.net:8000/rinseradio" 1 streamlist)))
-
-(defvar emms-stream-mode-map
- (let ((map (make-keymap)))
- (suppress-keymap map)
- (define-key map (kbd "C-a") 'beginning-of-line)
- (define-key map (kbd "C-e") 'end-of-line)
- (define-key map (kbd "C-k") 'emms-stream-kill-bookmark)
- (define-key map (kbd "C-y") 'emms-stream-yank-bookmark)
- (define-key map (kbd "C-n") 'emms-stream-next-line)
- (define-key map (kbd "C-p") 'emms-stream-previous-line)
- (define-key map (kbd "Q") 'emms-stream-quit)
- (define-key map (kbd "a") 'emms-stream-add-bookmark)
- (define-key map (kbd "d") 'emms-stream-delete-bookmark)
- (define-key map (kbd "e") 'emms-stream-edit-bookmark)
- (define-key map (kbd "h") 'describe-mode)
- (define-key map (kbd "n") 'emms-stream-next-line)
- (define-key map (kbd "p") 'emms-stream-previous-line)
- (define-key map (kbd "q") 'emms-stream-quit)
- (define-key map (kbd "s") 'emms-stream-save-bookmarks-file)
- (define-key map (kbd "t") 'emms-stream-toggle-default-action)
-;; (define-key map (kbd "u") 'emms-stream-move-bookmark-up)
- (define-key map (kbd "i") 'emms-stream-info-bookmark)
- (define-key map (kbd "<up>") 'emms-stream-previous-line)
- (define-key map (kbd "<down>") 'emms-stream-next-line)
- (define-key map (kbd "<left>") 'beginning-of-line)
- (define-key map (kbd "<right>") 'end-of-line)
- (define-key map (kbd "RET") 'emms-stream-play)
- map)
- "Keymap for `emms-stream-menu'.")
-
-;;;###autoload
-(defun emms-streams ()
- "Opens the EMMS Streams interface."
- (interactive)
- (kill-buffer (get-buffer-create emms-stream-buffer-name))
- (set-buffer (get-buffer-create emms-stream-buffer-name))
- (erase-buffer)
- (when (string= emms-stream-default-action "play")
- (emms-stream-create-playlist))
- (emms-stream-mode)
- (switch-to-buffer emms-stream-buffer-name))
-
-(defun emms-stream-mode ()
- "Major mode for the EMMS Streams interface.
-
-\\{emms-stream-mode-map}"
- (kill-all-local-variables)
- (buffer-disable-undo)
- (setq major-mode 'emms-stream-mode)
- (setq mode-name "EMMS Streams")
- (use-local-map emms-stream-mode-map)
- (emms-stream-init)
- (set (make-local-variable 'truncate-lines) t)
- (set (make-local-variable 'auto-hscroll-mode) t)
- (set (make-local-variable 'kill-whole-line) t)
- (set (make-local-variable 'next-line-add-newlines) nil)
- (goto-char 1)
- (emms-stream-display)
- (read-only-mode 1)
- (run-hooks 'emms-stream-hook)
- (set-buffer-modified-p nil)
- (message "EMMS Stream Menu"))
-
-(defun emms-stream-create-playlist ()
- "Create a new EMMS playlist and associate it with emms-streams.
-This is used when `emms-stream-default-action' is \"play\"."
- (save-excursion
- (setq emms-stream-playlist-buffer
- (emms-playlist-set-playlist-buffer (emms-playlist-new)))
- (with-current-buffer emms-stream-playlist-buffer
- ;; if emms-stream-repeat-p is non-nil, make sure that we
- ;; continue to play the station, even if briefly disconnected
- (set (make-local-variable 'emms-repeat-playlist)
- emms-stream-repeat-p))))
-
-(defun emms-stream-kill-playlist ()
- "Delete the EMMS playlist associated with emms-streams, if one exists."
- (when (buffer-live-p emms-stream-playlist-buffer)
- (save-excursion
- (if (eq emms-stream-playlist-buffer emms-playlist-buffer)
- (emms-playlist-current-kill)
- (kill-buffer emms-stream-playlist-buffer)))
- (setq emms-stream-playlist-buffer nil)))
-
-(defun emms-stream-popup-revert ()
- "Revert to the window-configuration from before if there is one,
-otherwise just remove the special bindings from the stream menu."
- (interactive)
- (remove-hook 'emms-pbi-manually-change-song-hook 'emms-pbi-popup-revert)
- (let ((streambuffer (get-buffer emms-stream-buffer-name)))
- (when streambuffer
- (with-current-buffer streambuffer
- (local-unset-key (kbd "TAB")))))
- (when emms-stream-popup-old-conf
- (set-window-configuration emms-stream-popup-old-conf))
- (remove-hook 'emms-stream-play-hook 'emms-stream-popup-revert)
- (remove-hook 'emms-stream-quit-hook 'emms-stream-popup-revert))
-
-(defun emms-stream-popup (&optional popup-height)
- "Pops up the stream Menu, for the new stream selection.
-
-POPUP-HEIGHT is the height of the new frame, defaulting to
-`emms-popup-default-height'."
- (interactive)
- (setq popup-height (or popup-height (/ (window-height) 2)))
- ;; Split the current screen, and make the stream menu popup
- (let ((new-window-height (- (window-height) popup-height)))
- (if (not (> new-window-height 0))
- (error "Current window too small to popup menu!"))
- ;; Save the current window-configuration
- (setq emms-stream-popup-old-conf (current-window-configuration))
- ;; Split and select the menu
- (let ((buffer-down
- (split-window-vertically new-window-height)))
- (select-window buffer-down))
-
- (kill-buffer (get-buffer-create emms-stream-buffer-name))
- (switch-to-buffer (get-buffer-create emms-stream-buffer-name))
- (erase-buffer)
- (emms-stream-mode)
-
- (add-hook 'emms-stream-play-hook 'emms-stream-popup-revert)
- (add-hook 'emms-stream-quit-hook 'emms-stream-popup-revert)
- (local-set-key (kbd "TAB") 'emms-stream-popup-revert)
- (local-set-key (kbd "RET") 'emms-stream-play)
- ;; (local-set-key (kbd "q") 'delete-window)
- ;; Also, forget about the whole thing if the user does something
- ;; to the window-configuration
- ;; (add-hook 'window-configuration-change-hook 'emms-stream-popup-forget-conf)))
- ))
-
-(defun emms-stream-init ()
- (setq emms-stream-list (emms-stream-read-file emms-stream-bookmarks-file)))
-
-(defun emms-stream-read-file (file)
- "Returns a sexp."
- (let ((file (expand-file-name file)))
- (if (file-readable-p file)
- (with-temp-buffer
- (emms-insert-file-contents file)
- (goto-char (point-min))
- (read (current-buffer)))
- emms-stream-default-list)))
-
-(defun emms-stream-save-bookmarks-file ()
- (interactive)
- (save-excursion
- (let ((buffer (find-file-noselect emms-stream-bookmarks-file)))
- (set-buffer buffer)
- (erase-buffer)
- (insert "(")
- (let ((firstp t))
- (dolist (stream emms-stream-list)
- (if (not firstp)
- (insert "\n ")
- (setq firstp nil))
- ;; make sure type identifier is a symbol, not a string
- (when (stringp (nth 3 stream))
- (setq stream (copy-alist stream))
- (setcar (nthcdr 3 stream) (intern (nth 3 stream))))
- (prin1 stream buffer)))
- (insert ")\n")
- (save-buffer)
- (kill-buffer buffer)))
- (set-buffer-modified-p nil))
-
-(defun emms-stream-display-line (line)
- (insert (emms-stream-name line))
- (add-text-properties (point-at-bol) (point-at-eol)
- '(face emms-stream-name-face))
- (add-text-properties (point-at-bol) (point-at-eol) `(emms-stream ,line))
- (insert "\n ")
- (insert (emms-stream-url line))
- (add-text-properties (point-at-bol) (point-at-eol)
- '(face emms-stream-url-face))
- (insert "\n"))
-
-(defun emms-stream-display ()
- "Displays the bookmark list in the current buffer, in a human
- readable way."
- (mapc 'emms-stream-display-line emms-stream-list)
- (goto-char (point-min)))
-
-;; Helper functions
-(defun emms-stream-take (n list)
- "Takes N elements from LIST."
- (let ((idx 0)
- (res '()))
- (while (< idx n)
- (setq res (append res (list (nth idx list))))
- (setq idx (+ idx 1)))
- res))
-
-(defun emms-stream-insert-at (n elt list)
- "Inserts the element ELT in LIST, *before* position N.
-Positions are counted starting with 0."
- (let* ((n-1 (- n 1))
- (before (emms-stream-take n-1 list))
- (after (last list (- (length list) n-1))))
- (append before (list elt) after)))
-
-(defun emms-stream-insert-several-at (n new-list list)
- "Inserts the list NEW-LIST in LIST, *before* position N.
-Positions are counted starting with 0."
- (let* ((n-1 (- n 1))
- (before (emms-stream-take n-1 list))
- (after (last list (- (length list) n-1))))
- (append before new-list after)))
-
-(defun emms-stream-look-behind ()
- "Return non-nil if the position behind the point is an emms-stream."
- (and (not (bobp))
- (get-text-property (1- (point)) 'emms-stream)))
-
-(defun emms-stream-back-to-stream ()
- "If we are not on a stream, move backwards to the nearest one."
- (unless (get-text-property (point) 'emms-stream)
- (unless (emms-stream-look-behind)
- (goto-char (or (previous-single-property-change (point) 'emms-stream)
- (point-min))))
- (goto-char (or (previous-single-property-change (point) 'emms-stream)
- (point-min)))))
-
-(defun emms-stream-get-bookmark-at-point ()
- "Returns the bookmark under point."
- (emms-stream-back-to-stream)
- (get-text-property (point) 'emms-stream))
-
-(defun emms-stream-redisplay ()
- (let ((inhibit-read-only t))
- (erase-buffer)
- (goto-char (point-min))
- (emms-stream-display)))
-
-(defun emms-stream-determine-fd (name)
- "Return a feed descriptor, given NAME.
-This is the count of the times NAME appears in the bookmark list,
-plus one."
- (let ((count 1))
- (dolist (feed emms-stream-list)
- (when (string= (emms-stream-name feed) name)
- (setq count (1+ count))))
- count))
-
-(defun emms-stream-add-bookmark (name url fd type)
- "Creates a new bookmark, and inserts it at point position.
-
-Don't forget to run `emms-stream-save-bookmarks-file' after !"
- (interactive
- (list
- (read-string "Name of the bookmark: ")
- (read-string "URL: ")
- nil
- (emms-completing-read
- "Type (url, streamlist, or lastfm): "
- (mapcar #'list '("url" "streamlist" "lastfm")))))
- (unless fd (setq fd (emms-stream-determine-fd name)))
- (when (stringp type) (setq type (intern type)))
- (let* ((line (emms-line-number-at-pos (point)))
- (index (+ (/ line 2) 1)))
- (setq emms-stream-list (emms-stream-insert-at index (list name url fd type)
- emms-stream-list))
- (emms-stream-redisplay)
- (goto-char (point-min))
- (forward-line (1- line))))
-
-(defun emms-stream-delete-bookmark ()
- "Deletes the bookmark under the point.
-
-Don't forget to save your modifications !"
- (interactive)
- (let ((line (emms-line-number-at-pos (point))))
- (setq emms-stream-list
- (delete (emms-stream-get-bookmark-at-point) emms-stream-list))
- (emms-stream-redisplay)
- (goto-char (point-min))
- (forward-line (1- line))))
-
-(defun emms-stream-edit-bookmark ()
- "Change the information of current bookmark."
- (interactive)
- (let* ((bookmark (emms-stream-get-bookmark-at-point))
- (name (read-from-minibuffer "Description: "
- (emms-stream-name bookmark)))
- (url (read-from-minibuffer "URL: "
- (emms-stream-url bookmark)))
- (fd (read-from-minibuffer "Feed Descriptor: "
- (int-to-string (emms-stream-fd bookmark))))
- (type (read-from-minibuffer "Type (url, streamlist, or lastfm): "
- (format "%s" (emms-stream-type bookmark)))))
- (emms-stream-delete-bookmark)
- (emms-stream-add-bookmark name url (string-to-number fd) type)))
-
-(defun emms-stream-name (el)
- (car el))
-(defun emms-stream-url (el)
- (cadr el))
-(defun emms-stream-fd (el)
- (car (cddr el)))
-(defun emms-stream-type (el)
- (cadr (cddr el)))
-
-(defun emms-stream-play ()
- (interactive)
- (let* ((line (or (get-text-property (point) 'emms-stream)
- (progn
- (goto-char (or (previous-single-property-change
- (point) 'emms-stream)
- (point-min)))
- (goto-char (or (previous-single-property-change
- (point) 'emms-stream)
- (point-min)))
- (get-text-property (point) 'emms-stream))
- (error "No stream found at point")))
- (name (emms-stream-name line))
- (url (emms-stream-url line))
- (fd (emms-stream-fd line))
- (type (emms-stream-type line))
- (player (read (concat "emms-" emms-stream-default-action "-"
- (format "%s" type)))))
- (setq emms-stream-last-stream line)
-;; (funcall emms-stream-default-action url)
- (funcall player url)
- (if (string= emms-stream-default-action "add")
- (message "URL added to playlist")))
- (later-do 'emms-mode-line-alter)
- (run-hooks 'emms-stream-play-hook))
-
-(defun emms-stream-info-bookmark ()
- "Return the station and track information for the streaming audio station under point."
- (interactive)
- (if (fboundp 'emms-stream-info-message)
- (let* ((line (get-text-property (point) 'emms-stream))
- (url (emms-stream-url line)))
- (emms-stream-info-message url))
- (message "Streaming media info not available.")))
-
-;; Killing and yanking
-(defvar emms-stream-killed-streams ()
- "Bookmarks that have been killed.")
-
-(defun emms-stream-kill-bookmark ()
- "Kill the current bookmark."
- (interactive)
- (let ((stream (emms-stream-get-bookmark-at-point)))
- (setq emms-stream-list (delete stream emms-stream-list)
- emms-stream-killed-streams (cons stream emms-stream-killed-streams)))
- (let ((inhibit-read-only t))
- (kill-line 2)))
-
-(defun emms-stream-yank-bookmark ()
- "Yank bookmark into the streams buffer."
- (interactive)
- (emms-stream-back-to-stream)
- (let ((inhibit-read-only t)
- (streams nil))
- ;; get all valid streams
- (save-restriction
- (narrow-to-region (point) (point))
- (yank)
- (goto-char (point-min))
- (while (and (< (point) (point-max))
- (car emms-stream-killed-streams)
- (looking-at "^\\(.+\\)\n \\(.+\\)\n"))
- (setq streams (cons (car emms-stream-killed-streams) streams)
- emms-stream-killed-streams (cdr emms-stream-killed-streams))
- (goto-char (match-end 0)))
- (delete-region (point-min) (point-max)))
- ;; insert streams into list
- (if streams
- (let* ((line (emms-line-number-at-pos (point)))
- (index (+ (/ line 2) 1)))
- (setq emms-stream-list (emms-stream-insert-several-at
- index streams emms-stream-list))
- (setq line (+ line (* (length streams) 2)))
- (emms-stream-redisplay)
- (goto-char (point-min))
- (forward-line (1- line)))
- (message "Not yanking anything"))))
-
-;; Navigation
-(defun emms-stream-next-line ()
- (interactive)
- (when (get-text-property (point) 'emms-stream)
- (goto-char (or (next-single-property-change (point) 'emms-stream)
- (point-max))))
- (goto-char (or (next-single-property-change (point) 'emms-stream)
- (point-max)))
- (forward-line 0))
-
-(defun emms-stream-previous-line ()
- (interactive)
- (emms-stream-back-to-stream)
- (goto-char (or (previous-single-property-change (point) 'emms-stream)
- (point-min)))
- (goto-char (or (previous-single-property-change (point) 'emms-stream)
- (point-min)))
- (forward-line 0))
-
-(defun emms-stream-quit ()
+;;; ------------------------------------------------------------------
+;;; definitions
+;;; ------------------------------------------------------------------
+
+(defvar emms-streams-buffer-name "Emms Streams"
+ "Name for creating a streams buffer.")
+
+(defvar emms-streams-built-in-disclaimer
+ ";; This includes the built-in list of streams which come with Emms by
+;; default. Emms has no affiliation of any kind with the streaming
+;; audio stations listed below, nor is this an endorsement of these
+;; stations. Instead, this is a collection of stations submitted to
+;; the project over the years by people who enjoy Emms. We hope you
+;; will enjoy them too."
+ "Explaining the relationship between Emms and these streams.")
+
+(defvar emms-streams-built-in-list
+ '((*track* (type . streamlist) (name . "http://www.somafm.com/beatblender.pls") (metadata "SomaFM: Beatblender" "http://www.somafm.com/beatblender.pls" 1 streamlist))
+ (*track* (type . streamlist) (name . "http://www.somafm.com/secretagent.pls") (metadata "SomaFM: Secret Agent" "http://www.somafm.com/secretagent.pls" 1 streamlist))
+ (*track* (type . streamlist) (name . "http://www.somafm.com/groovesalad.pls") (metadata "SomaFM: Groove Salad" "http://www.somafm.com/groovesalad.pls" 1 streamlist))
+ (*track* (type . streamlist) (name . "http://www.somafm.com/dronezone.pls") (metadata "SomaFM: Drone Zone" "http://www.somafm.com/dronezone.pls" 1 streamlist))
+ (*track* (type . streamlist) (name . "http://www.somafm.com/tagstrance.pls") (metadata "SomaFM: Tag's Trance" "http://www.somafm.com/tagstrance.pls" 1 streamlist))
+ (*track* (type . streamlist) (name . "http://www.somafm.com/indiepop.pls") (metadata "SomaFM: Indie Pop Rocks" "http://www.somafm.com/indiepop.pls" 1 streamlist))
+ (*track* (type . streamlist) (name . "http://www.somafm.com/doomed.pls") (metadata "SomaFM: Doomed" "http://www.somafm.com/doomed.pls" 1 streamlist))
+ (*track* (type . url) (name . "http://listen.radionomy.com:80/-PHILOSOMATIKAPROGRESSIVE-") (metadata "P H I L O S O M A T I K A - Progressive Psytrance" "http://listen.radionomy.com:80/-PHILOSOMATIKAPROGRESSIVE-" 1 url))
+ (*track* (type . streamlist) (name . "http://www.bassdrive.com/BassDrive.m3u") (metadata "Drum and Bass Radio, BassDrive" "http://www.bassdrive.com/BassDrive.m3u" 1 streamlist))
+ (*track* (type . streamlist) (name . "http://www.ibiblio.org/wcpe/wcpe.pls") (metadata "WCPE, Classical Music" "http://www.ibiblio.org/wcpe/wcpe.pls" 1 streamlist))
+ (*track* (type . streamlist) (name . "http://stream.nute.net/kohina/stream.ogg.m3u") (metadata "Kohina - Old school game and demo music" "http://stream.nute.net/kohina/stream.ogg.m3u" 1 streamlist))
+ (*track* (type . streamlist) (name . "http://privat.is-by.us:8000/necta192.mp3.m3u") (metadata "Nectarine, Demoscene Radio, DE Continuum's relay 192 mp3" "http://privat.is-by.us:8000/necta192.mp3.m3u" 1 streamlist))
+ (*track* (type . streamlist) (name . "http://nectarine.from-de.com/necta192.m3u") (metadata "Nectarine, Demoscene Radio, DE stream (High Bitrate)" "http://nectarine.from-de.com/necta192.m3u" 1 streamlist))
+ (*track* (type . streamlist) (name . "http://www.wfmu.org/wfmu.pls") (metadata "WFMU, Freeform radio" "http://www.wfmu.org/wfmu.pls" 1 streamlist))
+ (*track* (type . streamlist) (name . "http://nyc01.egihosting.com:6232/listen.pls") (metadata "WBCR-LP - Berkshire Community Radio" "http://nyc01.egihosting.com:6232/listen.pls" 1 streamlist))))
+
+(defcustom emms-streams-file (concat (file-name-as-directory emms-directory)
+ "streams.emms")
+ "A file used to store the built-in streams."
+ :group 'emms
+ :type 'file)
+
+
+;;; ------------------------------------------------------------------
+;;; private functions
+;;; ------------------------------------------------------------------
+
+(defun emms-streams-install-file (file)
+ "Install FILE, containing streams."
+ (when (not (file-directory-p (file-name-directory emms-streams-file)))
+ (make-directory (file-name-directory emms-streams-file)))
+ (if (or (not (file-exists-p file))
+ (and (file-exists-p file)
+ (y-or-n-p (format "overwrite existing %s?" file))))
+ (progn
+ (message "writing %s" file)
+ (with-temp-buffer
+ (insert emms-source-playlist-native-header-line)
+ (insert (format "\n%s\n\n" emms-streams-built-in-disclaimer))
+ (insert
+ (concat "("
+ (mapconcat
+ #'(lambda (e)
+ (format "%S" e))
+ emms-streams-built-in-list "\n")
+ ")"))
+ (write-region (point-min) (point-max) file))
+ (message "writing %s... done" file))
+ (message "aborting")))
+
+
+;;; ------------------------------------------------------------------
+;;; interface
+;;; ------------------------------------------------------------------
+
+(defun emms-streams-install ()
(interactive)
- (emms-stream-kill-playlist)
- (kill-this-buffer)
- (run-hooks 'emms-stream-quit-hook))
+ "Install the built-in streams file."
+ (emms-streams-install-file emms-streams-file))
-(defun emms-stream-toggle-default-action ()
-"Toggle between adding to the current active playlist or play
-right now (and thus erase the current active playlist)."
+(defun emms-streams ()
(interactive)
- (if (string= emms-stream-default-action "play")
- (progn
- (emms-stream-kill-playlist)
- (setq emms-stream-default-action "add")
- (message "Default action is now add"))
- (emms-stream-create-playlist)
- (setq emms-stream-default-action "play")
- (message "Default action is now play")))
+ "Create or switch to the built-in streaming audio playlist."
+ (when (and (not (file-exists-p emms-streams-file))
+ (y-or-n-p "Emms' built-in streams file hasn't been installed yet. Install it now?"))
+ (emms-streams-install))
+ (let ((buf (get-buffer emms-streams-buffer-name)))
+ (when (not buf)
+ (with-current-buffer (get-buffer-create emms-streams-buffer-name)
+ (setq buf (current-buffer))
+ (emms-playlist-mode)
+ (setq emms-playlist-buffer-p t)
+ (emms-playlist-set-playlist-buffer (current-buffer))
+ (emms-add-native-playlist emms-streams-file)))
+ (switch-to-buffer buf)))
-;; info part
-; (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
-;; last one added by emms-add-url. so in both cases, that's what we
-;; want.
-;; FIXME : not working with the new design. Yrk ?
-; (defun emms-stream-last-element ()
-; (elt emms-playlist (- (length emms-playlist) 1)))
-
-(defun emms-info-url-providep (track)
- (if (eq (emms-track-type track) 'url)
- 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))))
-
-;; 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)
-
-(defun emms-stream-add-data-to-track (track)
- (emms-track-set track 'metadata emms-stream-last-stream))
-
-(add-to-list '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))
(provide 'emms-streams)
+
;;; emms-streams.el ends here