30 lines
1.3 KiB
Common Lisp
Executable file
30 lines
1.3 KiB
Common Lisp
Executable file
#!/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)
|
|
|