chris/dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

adding some things

Browse source
This commit is contained in:
Chris Cochrun 2024-07-10 09:14:53 -05:00
parent 4c60fcb238
commit 4c25000f23
7 changed files with 150 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

27
scripts/dlvid.lisp
View file

@ -5,20 +5,21 @@
(defvar *url* (car (uiop:command-line-arguments)))
(defun dlvid (url)
(run-program "yt-dlp"
`("-o"
"~/vids/%(title)s.%(ext)s"
,url
"--embed-thumbnail"
"--sponsorblock-remove=sponsor,intro,outro")
:search "/run/current-system/sw/bin/"
:output t))
(defun main ()
(if (serapeum:string-contains-p "inv.cochrun.xyz" *url*)
(run-program "yt-dlp"
`("-o"
"~/vids/%(title)s.%(ext)s"
,(serapeum:string-replace-all
"inv.cochrun.xyz" *url* "youtube.com"))
:search "/run/current-system/sw/bin/"
:output t)
(run-program "yt-dlp"
`("-o"
"~/vids/%(title)s.%(ext)s"
,(string *url*))
:search "/run/current-system/sw/bin/"
:output t)))
(let ((url (serapeum:string-replace-all
"inv.cochrun.xyz" *url* "youtube.com")))
(dlvid (string url)))
(dlvid (string url))))
(main)