From 5fe7d70d08118381c21f68122f509d43281a8e5c Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Mon, 17 Jan 2022 01:10:01 -0600 Subject: Add ytdious --- lisp/+ytdious.el | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) create mode 100644 lisp/+ytdious.el (limited to 'lisp') 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