jao-mpc: playing http radio streams

1 files changed, 5 insertions, 8 deletions

diff --git a/init.el b/init.el
index dbcf67a..c77496a 100644
--- a/init.el
+++ b/init.el
@@ -1590,12 +1590,8 @@
 (defvar jao-browse--sound-rx
   (format "^https?://.*/.*\\.%s" (regexp-opt '("mp4" "mp3" "flv"))))
 
-(defun jao-browse-add-url-to-mpc (url &rest _)
-  "Add the given URL to mpc's playing list, or just play it."
-  (let ((p (yes-or-no-p (format "Play %s right now?" url))))
-    (when p (jao-mpc-clear))
-    (jao-mpc-add-url url)
-    (if p (jao-mpc-play) (message "%s added to mpc queue" url))))
+(defun jao-browse-play-sound-url (url &rest _)
+  (jao-mpc-add-or-play-url url))
 
 (defun jao-browse-url-browse (&rest args)
   (apply jao-browse-url-function args))
@@ -1608,7 +1604,7 @@
         ("^file://?" . jao--find-file-other-window)
         (,jao-browse--external-regexp . ,jao-browse-url-external-function)
         ("^https?://.*\\.gotomeeting\\.com\\.*" . browse-url-chrome)
-        (,jao-browse--sound-rx . jao-browse-add-url-to-mpc)
+        (,jao-browse--sound-rx . jao-browse-play-sound-url)
         (,(jao-wget--regexp) . jao-download)
         (jao-video--url-p . jao-maybe-view-video)
         ("." . jao-browse-url-browse)))
@@ -3097,7 +3093,8 @@
    ["Seek and search"
     ("f" "seek fwd" jao-player-seek-10 :transient t)
     ("F" "seek bwd" jao-player-seek--10 :transient t)
-    ("a" "search album" jao-mpc-search-and-select-album)]
+    ("a" "search album" jao-mpc-search-and-select-album)
+    ("S" "play stream" jao-mpc-play-stream)]
    ["Browse"
     ("b" "browse" jao-player-browse)
     ("l" "show play list" jao-player-list)