new audio script

scripts/dlaudio.lisp

@@ -0,0 +1,26 @@
+#!/usr/bin/env -S sbcl --script
+(require "uiop")
+(load "/home/chris/.sbclrc")
+(ql:quickload :serapeum)
+
+(defvar *url* (car (uiop:command-line-arguments)))
+
+(defun dlvid (url)
+  (run-program "yt-dlp"
+               `("-x"
+                 "-o"
+                 "~/music/%(playlist)s-%(artist)s/%(playlist_index)s - %(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*)
+      (let ((url (serapeum:string-replace-all
+                  "inv.cochrun.xyz" *url* "youtube.com")))
+        (dlvid (string url)))
+    (dlvid (string url))))
+
+ (main)