22 lines
581 B
EmacsLisp
22 lines
581 B
EmacsLisp
;;; +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
|