19 lines
538 B
Common Lisp
Executable file
19 lines
538 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 ()
|
|
(when (serapeum:string-contains-p "piped.cochrun.xyz" *url*)
|
|
(run-program "yt-dlp"
|
|
`("-o"
|
|
"~/vids/%(title)s.%(ext)s"
|
|
,(serapeum:string-replace-all
|
|
"piped.cochrun.xyz" *url* "youtube.com"))
|
|
:search "/run/current-system/sw/bin/"
|
|
:output t)))
|
|
|
|
(main)
|