#!/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)