From 01dd8198d8769b4c9ac9a815f2c757af4462c543 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Tue, 17 Aug 2021 22:12:51 +0100
Subject: jao-rss-subscribe as an embark action

---
 completion.org | 4 ++--
 init.org       | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/completion.org b/completion.org
index d8c74d9..01ef0db 100644
--- a/completion.org
+++ b/completion.org
@@ -367,14 +367,14 @@
       (add-to-list 'embark-target-finders #'jao-embark-targets--w3m-anchor)
 
       (defun jao-embark-url (url)
-        "Browse URL, externally if we're already in emacs-w3m"
+        "Browse URL, externally if we're already in an emacs browser."
         (if (derived-mode-p 'w3m-mode 'eww-mode)
             (jao-browse-with-external-browser url)
           (browse-url url)))
 
       (define-key embark-url-map (kbd "RET") #'jao-embark-url)
-      (define-key embark-url-map (kbd "e") #'jao-eww-browse-url)
       (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)
     #+end_src
 *** video url targets
diff --git a/init.org b/init.org
index 4bd913f..28c4f31 100644
--- a/init.org
+++ b/init.org
@@ -1494,9 +1494,9 @@
           (insert "\nmaildir-mailbox = " mbox "\n\n")
           (save-buffer)))
 
-      (defun jao-rss-subscribe (&optional url)
+      (defun jao-rss-subscribe (url)
         "Subscribe to a given RSS URL.  If URL not given, look for it."
-        (interactive)
+        (interactive "s")
         (let* ((url (or url
                         (jao-url-around-point)
                         (jao-rss--find-url)
-- 
cgit v1.2.3