From 0657befac87da670e16abb0dbf32e17b53bbef83 Mon Sep 17 00:00:00 2001
From: Chris Cochrun <chris@cochrun.xyz>
Date: Sat, 30 Mar 2024 13:46:54 -0500
Subject: [PATCH] adding mpl and dlvid.lisp

---
 scripts/dlvid.lisp | 18 ++++++++++++++++++
 scripts/mpl        | 18 ++++++++++++++++++
 2 files changed, 36 insertions(+)
 create mode 100755 scripts/dlvid.lisp
 create mode 100755 scripts/mpl

diff --git a/scripts/dlvid.lisp b/scripts/dlvid.lisp
new file mode 100755
index 0000000..5467bc0
--- /dev/null
+++ b/scripts/dlvid.lisp
@@ -0,0 +1,18 @@
+#!/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)
diff --git a/scripts/mpl b/scripts/mpl
new file mode 100755
index 0000000..5d6a12d
--- /dev/null
+++ b/scripts/mpl
@@ -0,0 +1,18 @@
+#!/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 "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)))
+
+ (main)