about summary refs log tree commit diff stats
path: root/lisp
diff options
context:
space:
mode:
authorCase Duckworth2022-01-17 01:10:01 -0600
committerCase Duckworth2022-01-17 01:10:20 -0600
commit5fe7d70d08118381c21f68122f509d43281a8e5c (patch)
tree301997baf7eb6a7e0413ae9c18ed6bb104494a08 /lisp
parentAdd newer features section and page breaks (diff)
downloademacs-5fe7d70d08118381c21f68122f509d43281a8e5c.tar.gz
emacs-5fe7d70d08118381c21f68122f509d43281a8e5c.zip
Add ytdious
Diffstat (limited to 'lisp')
-rw-r--r--lisp/+ytdious.el21
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