r2e: removing shorts from yt feeds

1 files changed, 9 insertions, 1 deletions

diff --git a/lib/net/jao-r2e.el b/lib/net/jao-r2e.el
index f28b66b..628e83f 100644
--- a/lib/net/jao-r2e.el
+++ b/lib/net/jao-r2e.el
@@ -203,6 +203,13 @@
           (View-quit))
         (when url (cons url (or title "")))))))
 
+(defun jao-r2e-remove-shorts (url)
+  (if (and (string-match-p "www\.youtube\.com" url)
+           (y-or-n-p "Remove shorts? "))
+      (string-replace "channel_id=UC" "playlist_id=UULF" url)
+    url))
+
+;;;###autoload
 (defun jao-r2e-subscribe (url &optional cat relist)
   "Subscribe to a given RSS URL.  If URL not given, look for it."
   (interactive (list (or (jao-url-around-point)
@@ -214,7 +221,8 @@
     (unless url (error "No feeds found"))
     (let ((url (if (string-match "^feed:" url) (substring url 5) url)))
       (when (y-or-n-p (format "Subscribe to <%s>? " url))
-        (let* ((name (read-string "Feed name: " title))
+        (let* ((url (jao-r2e-remove-shorts url))
+               (name (read-string "Feed name: " title))
                (cats (cons "prog" (jao-notmuch-subtags "feeds")))
                (cat (completing-read "Category: " cats nil t cat))
                (sfmt (format "%%s add %s '%s' mail+feeds_%s@jao.io" name url cat)))