From e95deedffb2b272d2dda35b5360090b5731bda7e Mon Sep 17 00:00:00 2001
From: Chris Cochrun <chris@cochrun.xyz>
Date: Wed, 3 Apr 2024 10:10:57 -0500
Subject: [PATCH] adding tweaks to lisp based scripts

---
 scripts/dlvid.lisp | 10 ++++++++--
 scripts/mpl        | 25 +++++++++++++++++--------
 2 files changed, 25 insertions(+), 10 deletions(-)

diff --git a/scripts/dlvid.lisp b/scripts/dlvid.lisp
index 5467bc0..096837d 100755
--- a/scripts/dlvid.lisp
+++ b/scripts/dlvid.lisp
@@ -6,12 +6,18 @@
 (defvar *url* (car (uiop:command-line-arguments)))
 
 (defun main ()
-  (when (serapeum:string-contains-p "piped.cochrun.xyz" *url*)
+  (if (serapeum:string-contains-p "inv.cochrun.xyz" *url*)
     (run-program "yt-dlp"
                  `("-o"
                    "~/vids/%(title)s.%(ext)s"
                    ,(serapeum:string-replace-all
-                     "piped.cochrun.xyz" *url* "youtube.com"))
+                     "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)))
 
diff --git a/scripts/mpl b/scripts/mpl
index 5d6a12d..251739d 100755
--- a/scripts/mpl
+++ b/scripts/mpl
@@ -5,14 +5,23 @@
 
 (defvar *url* (car (uiop:command-line-arguments)))
 
+;; (uiop:println *url*)
+;; (uiop:println (type-of *url*))
+
 (defun main ()
-  (when (serapeum:string-contains-p "inv.cochrun.xyz" *url*)
-    (run-program "mpv"
-                 `("--ontop"
-                   "--keepaspect-window"
-                   ,(serapeum:string-replace-all
-                     "inv.cochrun.xyz" *url* "youtube.com"))
-                 :search "/run/current-system/sw/bin/"
-                 :output t)))
+  (if (serapeum:string-contains-p "inv.cochrun.xyz" *url*)
+      (run-program "mpv"
+                   `("--ontop"
+                     "--keepaspect-window"
+                     ,(serapeum:string-replace-all
+                       "inv.cochrun.xyz" *url* "youtube.com"))
+                   :search "/run/current-system/sw/bin/"
+                   :output t)
+      (run-program "mpv"
+                   `("--ontop"
+                     "--keepaspect-window"
+                     ,(string *url*))
+                   :search "/run/current-system/sw/bin/"
+                   :output t)))
 
  (main)