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

adding tweaks to lisp based scripts

Browse source
This commit is contained in:
Chris Cochrun 2024-04-03 10:10:57 -05:00
parent 2cd192db65
commit e95deedffb
2 changed files with 25 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
scripts/dlvid.lisp
View file

@ -6,12 +6,18 @@
(defvar *url* (car (uiop:command-line-arguments)))
(defun main ()
(when (serapeum:string-contains-p "piped.cochrun.xyz" *url*)
(if (serapeum:string-contains-p "inv.cochrun.xyz" *url*)
(run-program "yt-dlp"
`("-o"
"~/vids/%(title)s.%(ext)s"
,(serapeum:string-replace-all
"piped.cochrun.xyz" *url* "youtube.com"))
"inv.cochrun.xyz" *url* "youtube.com"))
:search "/run/current-system/sw/bin/"
:output t)
(run-program "yt-dlp"
`("-o"
"~/vids/%(title)s.%(ext)s"
,(string *url*))
:search "/run/current-system/sw/bin/"
:output t)))

25
scripts/mpl
View file

@ -5,14 +5,23 @@
(defvar *url* (car (uiop:command-line-arguments)))
;; (uiop:println *url*)
;; (uiop:println (type-of *url*))
(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)))
(if (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)
(run-program "mpv"
`("--ontop"
"--keepaspect-window"
,(string *url*))
:search "/run/current-system/sw/bin/"
:output t)))
(main)