Patch applied to the main git repo
thank you! Isaac Haller <[email protected]> writes: > Hello, > > This patch makes emms-mpd-player.el also match HTTPS URLs. It's a > fairly small change so I don't think I need to sign any FSF paperwork > (if that's required for this project otherwise). Please let me know if > I need to format the patch differently. > >>From 272d13193700b770b5030a6dbe29c62558a7f265 Mon Sep 17 00:00:00 2001 > From: Isaac Haller <[email protected]> > Date: Thu, 13 Mar 2025 06:43:58 -0500 > Subject: [PATCH] Match HTTPS URLs in MPD player > > --- > emms-player-mpd.el | 6 +++--- > 1 file changed, 3 insertions(+), 3 deletions(-) > > diff --git a/emms-player-mpd.el b/emms-player-mpd.el > index fcdc53d..e857388 100644 > --- a/emms-player-mpd.el > +++ b/emms-player-mpd.el > @@ -180,14 +180,14 @@ or nil if we cannot figure it out." > ;; Create regexp > (when (and (stringp supported) > (not (string= supported ""))) > - (concat "\\`http://\\|\\.\\(m3u\\|pls\\|" > + (concat "\\`http[s]?://\\|\\.\\(m3u\\|pls\\|" > (regexp-opt (delq nil (split-string supported))) > "\\)\\'")))))) > > (defcustom emms-player-mpd-supported-regexp > ;; Use a sane default, just in case > (or (emms-player-mpd-get-supported-regexp) > - (concat "\\`http://\\|" > + (concat "\\`http[s]?://\\|" > (emms-player-simple-regexp > "m3u" "ogg" "flac" "mp3" "wav" "mod" "au" "aiff"))) > "Formats supported by MusicPD." > @@ -279,7 +279,7 @@ return at the end of a request.") > > (defun emms-player-mpd-remote-filenamep (filename) > "Return t if FILENAME is a remote file." > - (string-match "\\`http://"; filename)) > + (string-match "\\`http[s]?://" filename)) > > (defun emms-player-mpd-sentinel (proc event) > "The process sentinel for MusicPD." > -- "Cut your own wood and it will warm you twice"
