chris/dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

adding mpl and dlvid.lisp

Browse source
This commit is contained in:
Chris Cochrun 2024-03-30 13:46:54 -05:00
parent afb8376f80
commit 0657befac8
2 changed files with 36 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

18
scripts/dlvid.lisp Executable file
View file

@ -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)

18
scripts/mpl Executable file
View file

@ -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)