jao-mpc-add-url, for podcasts

2 files changed, 16 insertions, 11 deletions

diff --git a/gnus.org b/gnus.org
index 61ef7c5..a11bfa0 100644
--- a/gnus.org
+++ b/gnus.org
@@ -683,17 +683,17 @@
 
       (defun jao-gnus-open-enclosure (&optional playp)
         (interactive "P")
-        (gnus-summary-select-article-buffer)
-        (save-excursion
-          (goto-char (point-min))
-          (when (search-forward "Enclosure:")
-            (forward-char 2)
-            (when-let ((url (thing-at-point-url-at-point)))
-              (message "%s %s ..." (if playp "Playing" "Adding") url)
-              (if playp (emms-play-url url) (emms-add-url url))
-              (when playp
-                (sit-for 1)
-                (jao-emms-echo))))))
+        (save-window-excursion
+          (gnus-summary-select-article-buffer)
+          (save-excursion
+            (goto-char (point-min))
+            (when (search-forward "Enclosure:")
+              (forward-char 2)
+              (when-let ((url (thing-at-point-url-at-point)))
+                (message "%s %s ..." (if playp "Playing" "Adding") url)
+                (when playp (jao-mpc-clear))
+                (jao-mpc-add-url url)
+                (when playp (jao-mpc-play)))))))
     #+end_src
 * Keyboard shortcuts
   #+BEGIN_SRC emacs-lisp
diff --git a/lib/media/jao-mpc.el b/lib/media/jao-mpc.el
index 669883c..5f70f15 100644
--- a/lib/media/jao-mpc.el
+++ b/lib/media/jao-mpc.el
@@ -203,6 +203,11 @@
   (jao-notify (jao-mpc--current-str)))
 
 ;;;###autoload
+(defun jao-mpc-add-url (url)
+  (interactive "sURL: ")
+  (jao-mpc--cmd (format "add %s" url)))
+
+;;;###autoload
 (defun jao-mpc-show-albums ()
   "Show album list."
   (interactive)