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 +++++++++++++++----- lisp/+ytdious.el | 21 +++++++++++++++++++++ 2 files changed, 36 insertions(+), 5 deletions(-) create mode 100644 lisp/+ytdious.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)) diff --git a/lisp/+ytdious.el b/lisp/+ytdious.el new file mode 100644 index 0000000..6124149 --- /dev/null +++ b/lisp/+ytdious.el @@ -0,0 +1,21 @@ +;;; +ytdious.el --- Ytdious customizations -*- lexical-binding: t; -*- + +;;; Commentary: + +;; https://github.com/spiderbit/ytdious + +;;; Code: + +(defun +ytdious-watch () + "Stream video at point in mpv." + (interactive) + (let* ((video (ytdious-get-current-video)) + (id (ytdious-video-id-fun video))) + (start-process "ytdious mpv" nil + "mpv" + (concat "https://www.youtube.com/watch?v=" id)) + "--ytdl-format=bestvideo[height<=?720]+bestaudio/best") + (message "Starting streaming...")) + +(provide '+ytdious) +;;; +ytdious.el ends here -- cgit 1.4.1-21-gabe81