all kinds of different language scripts

scripts/video-archive.lisp

@@ -0,0 +1,29 @@
+#!/usr/bin/env -S sbcl --script
+(require "uiop")
+(load "/home/chris/.sbclrc")
+
+(defvar file (car (uiop:command-line-arguments)))
+(uiop/pathname:unix-namestring file)
+(defvar new-file (concatenate 'string (string-trim ".mp4" file) "-compressed.mp4"))
+
+(run-program "ffmpeg"
+             `("-i"
+               ,file
+               "-c:v" "libx264"
+               "-crf" "27" "-x264-params"
+               "cabac=1:ref=5:analyse=0x133:me=umh:subme=9:chroma-me=1:deadzone-inter=21:deadzone-intra=11:b-adapt=2:rc-lookahead=60:vbv-maxrate=10000:vbv-bufsize=10000:qpmax=69:bframes=5:b-adapt=2:direct=auto:crf-max=51:weightp=2:merange=24:chroma-qp-offset=-1:sync-lookahead=2:psy-rd=1.00,0.15:trellis=2:min-keyint=23:partitions=all"
+
+               "-c:a" "aac" "-ar" "44100"
+               "-b:a" "128k" "-map" "0"
+               ,new-file)
+             :search "/run/current-system/sw/bin/"
+             :output t)
+
+
+(defvar path (pathname file))
+(defvar old-path (pathname "~/vids/camprules202-compressed.mp4"))
+(uiop:println old-path)
+(defvar new-path (make-pathname :defaults old-path :directory (pathname-directory (pathname "/run/media/chris/Storage/videos/camp2024/w1d1/"))))
+(uiop:println new-path)
+(run-program "mv" `(,new-file ,(namestring new-path)) :search "/run/current-system/sw/bin/" :output t)
+