[feature] Browse video url on invidious

- Add yeetube-invidious-instances variable, containing random
invidious instances
- Rewrite yeetube-browse-url to use a random invidious instance from yeetube-invidious-instances

1 files changed, 16 insertions, 2 deletions

diff --git a/yeetube.el b/yeetube.el
index a125e96..cd5ed4b 100644
--- a/yeetube.el
+++ b/yeetube.el
@@ -72,6 +72,15 @@ Example Usage:
   :type 'string
   :group 'yeetube)
 
+(defvar yeetube-invidious-instances
+  '("vid.puffyan.us"
+    "invidious.flokinet.to"
+    "yt.artemislena.eu"
+    "invidious.privacydev.net"
+    "onion.tube"
+    "yewtu.be")
+  "List of invidious instaces.")
+
 (defvar yeetube-content nil
   "Scraped content.")
 
@@ -165,9 +174,13 @@ WHERE indicates where in the buffer the update should happen."
     (yeetube-buffer-create query yeetube-content 'yeetube-mode)))
 
 (defun yeetube-browse-url ()
-  "Open URL in browser."
+  "Open URL for video at point, using an invidious instance."
   (interactive)
-  (browse-url (yeetube-get-url)))
+  (let ((invidious-instance (+ 1 (random (length yeetube-invidious-instances)))))
+    (browse-url
+     (replace-regexp-in-string "youtube.com"
+			       (nth invidious-instance yeetube-invidious-instances)
+			       (yeetube-get-url)))))
 
 (defun yeetube-get-item (query)
   "Get item from youtube results for QUERY.
@@ -269,6 +282,7 @@ prompt blank to keep the default name."
 ;; Yeetube Mode
 (defvar yeetube-mode-map (make-sparse-keymap))
 (define-key yeetube-mode-map (kbd "RET") #'yeetube-play)
+(define-key yeetube-mode-map (kbd "b") #'yeetube-browse-url)
 (define-key yeetube-mode-map (kbd "d") #'yeetube-download-video)
 (define-key yeetube-mode-map (kbd "D") #'yeetube-download-change-directory)
 (define-key yeetube-mode-map (kbd "a") #'yeetube-download-change-audio-format)