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))) (defvar *url* (car (uiop:command-line-arguments)))
(defun main () (defun main ()
(when (serapeum:string-contains-p "piped.cochrun.xyz" *url*) (if (serapeum:string-contains-p "inv.cochrun.xyz" *url*)
(run-program "yt-dlp" (run-program "yt-dlp"
`("-o" `("-o"
"~/vids/%(title)s.%(ext)s" "~/vids/%(title)s.%(ext)s"
,(serapeum:string-replace-all ,(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/" :search "/run/current-system/sw/bin/"
:output t))) :output t)))

11
scripts/mpl
View file

@ -5,14 +5,23 @@
(defvar *url* (car (uiop:command-line-arguments))) (defvar *url* (car (uiop:command-line-arguments)))
;; (uiop:println *url*)
;; (uiop:println (type-of *url*))
(defun main () (defun main ()
(when (serapeum:string-contains-p "inv.cochrun.xyz" *url*) (if (serapeum:string-contains-p "inv.cochrun.xyz" *url*)
(run-program "mpv" (run-program "mpv"
`("--ontop" `("--ontop"
"--keepaspect-window" "--keepaspect-window"
,(serapeum:string-replace-all ,(serapeum:string-replace-all
"inv.cochrun.xyz" *url* "youtube.com")) "inv.cochrun.xyz" *url* "youtube.com"))
:search "/run/current-system/sw/bin/" :search "/run/current-system/sw/bin/"
:output t)
(run-program "mpv"
`("--ontop"
"--keepaspect-window"
,(string *url*))
:search "/run/current-system/sw/bin/"
:output t))) :output t)))
(main) (main)