From a75069630019a4dbb8364f3e90abe770a90ec01a Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Fri, 12 Nov 2021 04:47:28 +0000
Subject: embark action for podcasts

---
 completion.org | 2 ++
 init.org       | 1 +
 2 files changed, 3 insertions(+)

diff --git a/completion.org b/completion.org
index 3c552ef..b7ebbcb 100644
--- a/completion.org
+++ b/completion.org
@@ -419,6 +419,8 @@
       (define-key embark-url-map (kbd "f") #'browse-url-firefox)
       (define-key embark-url-map (kbd "x") #'jao-rss-subscribe)
       (define-key embark-url-map (kbd "m") 'jao-browse-with-external-browser)
+      (define-key embark-url-map (kbd "p") 'jao-browse-add-url-to-mpc)
+
     #+end_src
 *** video url targets
     #+begin_src emacs-lisp
diff --git a/init.org b/init.org
index 6fe200e..476c64e 100644
--- a/init.org
+++ b/init.org
@@ -1539,6 +1539,7 @@
         (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)
-- 
cgit v1.2.3