andros/auto-video-thumbnail
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases 4 Wiki Activity

Add needed gen-class

Browse Source
This commit is contained in:
José Sánchez Moreno 2020-07-14 11:24:19 +02:00
parent 9448c34702
commit c933503b16
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/video_optimize/core.clj
View File

@ -1,4 +1,5 @@
(ns video-optimize.core (ns video-optimize.core
(:gen-class)
(:require (:require
[clojure.java.io :as io] [clojure.java.io :as io]
[clojure.string :as str] [clojure.string :as str]
@ -24,7 +25,5 @@
(prn (str "Optimizing: " path_raw)) (prn (str "Optimizing: " path_raw))
;; Optimizing with ffmpeg ;; Optimizing with ffmpeg
(shell/sh "ffmpeg" "-y" "-i" path_raw "-vf" (str "scale=" width_thumbnail ":-2") "-c:v" "libx264" "-crf" "23" "-profile:v" "high" "-pix_fmt" "yuv420p" "-color_primaries" "1" "-color_trc" "1" "-colorspace" "1" "-movflags" "+faststart" "-an" "-acodec" "aac" "-ab" "128kb" path_thumbnail) (shell/sh "ffmpeg" "-y" "-i" path_raw "-vf" (str "scale=" width_thumbnail ":-2") "-c:v" "libx264" "-crf" "23" "-profile:v" "high" "-pix_fmt" "yuv420p" "-color_primaries" "1" "-color_trc" "1" "-colorspace" "1" "-movflags" "+faststart" "-an" "-acodec" "aac" "-ab" "128kb" path_thumbnail)
(prn (str "Finish: " path_thumbnail)))) (prn (str "Finish: " path_thumbnail))))))}])
)
)}])
(println "Running: Feed me!")) (println "Running: Feed me!"))