blob: 61241492d6516907e1dc4bbc6829cf0c0c468077 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
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
|
