this is a lot of hoopla

This commit is contained in:
Chris Cochrun 2022-03-24 13:53:59 -05:00
parent 9a0fdfefa8
commit a8ee3f5c13
13 changed files with 151 additions and 42 deletions

View file

@ -32,12 +32,12 @@
;; Create a function to launch mpv with given url
(defun mpv (url)
"MPV launches with given url using the fast profile."
(uiop:run-program (list "mpv" "--profile=fast" url "&")))
(uiop:launch-program (list "mpv" "--profile=fast" url "&")))
;; Create a function to download videos with youtube-dl in alacritty
(defun youtube-dl (url)
"Download videos and audio with youtube-dl in alacritty for feedback"
(uiop:run-program
(uiop:launch-program
(list "alacritty" "-e" "yt-dlp" "-o ~/Videos/%(title)s.%(ext)s" url)))
;; Let's create a function to hint videos, convert the url to a sting, and play them in MPV