diff options
| author | Case Duckworth | 2022-01-17 01:10:01 -0600 |
|---|---|---|
| committer | Case Duckworth | 2022-01-17 01:10:20 -0600 |
| commit | 5fe7d70d08118381c21f68122f509d43281a8e5c (patch) | |
| tree | 301997baf7eb6a7e0413ae9c18ed6bb104494a08 /lisp | |
| parent | Add newer features section and page breaks (diff) | |
| download | emacs-5fe7d70d08118381c21f68122f509d43281a8e5c.tar.gz emacs-5fe7d70d08118381c21f68122f509d43281a8e5c.zip | |
Add ytdious
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/+ytdious.el | 21 |
1 files changed, 21 insertions, 0 deletions
| 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 @@ | |||
| 1 | ;;; +ytdious.el --- Ytdious customizations -*- lexical-binding: t; -*- | ||
| 2 | |||
| 3 | ;;; Commentary: | ||
| 4 | |||
| 5 | ;; https://github.com/spiderbit/ytdious | ||
| 6 | |||
| 7 | ;;; Code: | ||
| 8 | |||
| 9 | (defun +ytdious-watch () | ||
| 10 | "Stream video at point in mpv." | ||
| 11 | (interactive) | ||
| 12 | (let* ((video (ytdious-get-current-video)) | ||
| 13 | (id (ytdious-video-id-fun video))) | ||
| 14 | (start-process "ytdious mpv" nil | ||
| 15 | "mpv" | ||
| 16 | (concat "https://www.youtube.com/watch?v=" id)) | ||
| 17 | "--ytdl-format=bestvideo[height<=?720]+bestaudio/best") | ||
| 18 | (message "Starting streaming...")) | ||
| 19 | |||
| 20 | (provide '+ytdious) | ||
| 21 | ;;; +ytdious.el ends here | ||