From 0f755cffbd470508e4e8aea70e3253aaa5a61a5f Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Fri, 12 Nov 2021 02:53:53 +0000
Subject: browse-url handler for sound urls (mpc)

---
 init.org | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'init.org')

diff --git a/init.org b/init.org
index 88cd745..6fe200e 100644
--- a/init.org
+++ b/init.org
@@ -1535,6 +1535,15 @@
 
       (defun jao-elpher--browse (url &rest _) (elpher-go url))
 
+      (defvar jao-browse--sound-rx
+        (format "^https?://.*/.*\\.%s" (regexp-opt '("mp4" "mp3" "flv"))))
+
+      (defun jao-browse-add-url-to-mpc (url &rest _)
+        (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))))
+
       (setq browse-url-handlers
             `(("^\\(gemini\\|gopher\\)://.*" . jao-elpher--browse)
               (,jao--doc-exts . jao--browse-doc)
@@ -1543,6 +1552,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-wget--regexp) . jao-download)
               (jao-video--url-p . jao-maybe-view-video)
               ("." . ,jao-browse-url-function)))
-- 
cgit v1.2.3