25 lines
749 B
Common Lisp
Executable file
25 lines
749 B
Common Lisp
Executable file
#!/usr/bin/env -S sbcl --script
|
|
(require "uiop")
|
|
(load "/home/chris/.sbclrc")
|
|
(ql:quickload :serapeum)
|
|
|
|
(defvar *url* (car (uiop:command-line-arguments)))
|
|
|
|
(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)))
|
|
|
|
(main)
|