From 1ca398268d28644bb955560612ed881d783078d0 Mon Sep 17 00:00:00 2001 From: Yoni Rabkin Date: Sun, 29 Mar 2015 22:42:41 -0400 Subject: Move librefm to https. Note that some player backends don't know how to handle https. --- lisp/emms-librefm-stream.el | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) (limited to 'lisp/emms-librefm-stream.el') diff --git a/lisp/emms-librefm-stream.el b/lisp/emms-librefm-stream.el index 9c55e41..7df67cb 100644 --- a/lisp/emms-librefm-stream.el +++ b/lisp/emms-librefm-stream.el @@ -60,6 +60,9 @@ (defvar emms-librefm-stream-playlist-buffer nil "Non-interactive Emms GNU FM buffer.") +(defvar emms-librefm-stream-connect-method "https://" + "Method of connecting to server.") + ;;; ------------------------------------------------------------------ ;;; HTTP @@ -88,7 +91,7 @@ point after the HTTP headers." (error "null username")) (when (not emms-librefm-scrobbler-password) (error "null password")) - (let ((url (concat "http://" + (let ((url (concat emms-librefm-stream-connect-method emms-librefm-stream-host-url "/radio/handshake.php?" "version=1.3.0.58" "&" @@ -157,7 +160,7 @@ point after the HTTP headers." (error "null session id")) (when (not station) (error "null station")) - (let ((url (concat "http://" + (let ((url (concat emms-librefm-stream-connect-method emms-librefm-stream-host-url emms-librefm-stream-host-base-path "/adjust.php?" @@ -227,7 +230,7 @@ point after the HTTP headers." "Create the getplaylist string." (when (not radio-session-id) (error "null radio session id")) - (let ((url (concat "http://" + (let ((url (concat emms-librefm-stream-connect-method emms-librefm-stream-host-url emms-librefm-stream-host-base-path "/xspf.php?" -- cgit v1.2.3