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)