all kinds of different language scripts

scripts/rusty.rs

@@ -0,0 +1,19 @@
+#!/usr/bin/env -S nix shell "github:nix-community/fenix?rev=092bd452904e749efa39907aa4a20a42678ac31e#minimal.toolchain" -c cargo -q -Zscript
+```cargo
+[dependencies]
+clap = { version = "4.2", features = ["derive"] }
+```
+
+use clap::Parser;
+
+#[derive(Parser, Debug)]
+#[clap(version)]
+struct Args {
+    #[clap(short, long, help = "Path to config")]
+    config: Option<std::path::PathBuf>,
+}
+
+fn main() {
+    let args = Args::parse();
+    println!("{:?}", args);
+}

scripts/script.rs

@@ -0,0 +1,13 @@
+use clap::Parser;
+
+#[derive(Parser, Debug)]
+#[clap(version)]
+struct Args {
+    #[clap(short, long, help = "Path to config")]
+    config: Option<PathBuf>,
+}
+
+fn main() {
+    let args = Args::parse();
+    println!("{:?}", args);
+}

scripts/video-archive

@@ -0,0 +1,5 @@
+#!/usr/bin/env fish
+
+set file $argv[1]
+set new-file 
+echo $file

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

scripts/video-archive.rs

@@ -0,0 +1,13 @@
+use clap::Parser;
+
+#[derive(Parser, Debug)]
+#[clap(version)]
+struct Args {
+    #[clap(short, long, help = "Video to convert")]
+    video: Option<PathBuf>,
+}
+
+fn main() {
+    let args = Args::parse();
+    println!("{:?}", args);
+}