From 5fe7d70d08118381c21f68122f509d43281a8e5c Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Mon, 17 Jan 2022 01:10:01 -0600
Subject: Add ytdious

---
 init.el | 20 +++++++++++++++-----
 1 file changed, 15 insertions(+), 5 deletions(-)

(limited to 'init.el')

diff --git a/init.el b/init.el
index 560da6f..a938db0 100644
--- a/init.el
+++ b/init.el
@@ -153,7 +153,9 @@
                                            #'browse-url-default-browser)
    browse-url-new-window-flag nil
    browse-url-firefox-arguments '("--new-tab")
-   browse-url-firefox-new-window-is-tab t)
+   browse-url-firefox-new-window-is-tab t
+   ;; TODO: Add variables for other transformations and what-not.
+   +invidious-host "invidious.snopyta.org")
   ;; Set up external browsing URLs.
   (add-to-list '+custom-variable-allowlist
                '+browse-url-secondary-browser-regexps)
@@ -180,7 +182,7 @@
                    (t #'eww-browse-url))
              args)))
     (cons (rx (or ;; videos
-               "youtube.com" "youtu.be" "yewtu.be" "invidious"
+               "youtube.com" "youtu.be" (eval +invidious-host) "invidious"
                (seq "." (or "mp4" "gif" "mov" "MOV" "webm") eos)
                ;; music
                "soundcloud.com" "bandcamp.com"
@@ -195,9 +197,9 @@
     (cons "."                           ; everything else
           +browse-url-browser-function)))
   ;; Transform URLs before passing to `browse-url'
-  (:option +browse-url-transformations `((,(rx "//" (or "youtube.com"
-                                                        "youtu.be"))
-                                          . "//yewtu.be")
+  (:option +browse-url-transformations `((,(rx (or "youtube.com"
+                                                   "youtu.be"))
+                                          . ,+invidious-host)
                                          ("twitter\\.com"
                                           . "nitter.net")
                                          ("instagram\\.com"
@@ -1633,3 +1635,11 @@ See also `crux-reopen-as-root-mode'."
   (:require +zzz-to-char)
   (:option zzz-to-char-reach 1024)
   (:global "M-z" #'+zzz-to-char))
+
+(setup (:straight (ytdious
+                   :fork (:host github :repo "duckwork/ytdious")))
+  (:also-load +ytdious)
+  (:option ytdious-invidious-api-url (if +invidious-host
+                                         (concat "https://" invidious-host)
+                                       "https://invidious.snopyta.org"))
+  (:bind "y" #'+ytdious-watch))
-- 
cgit 1.4.1-21-gabe81