18 lines
529 B
Common Lisp
Executable file
18 lines
529 B
Common Lisp
Executable file
#!/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)
|