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

Compare commits

base: andros:master
Branches Tags
andros:master
andros:1.0.4
andros:1.0.2
andros:1.0.1
andros:1.0.0
..
compare: andros:1.0.2
Branches Tags
andros:master
andros:1.0.4
andros:1.0.2
andros:1.0.1
andros:1.0.0

No commits in common. "master" and "1.0.2" have entirely different histories.
master ... 1.0.2

4 changed files with 13 additions and 34 deletions
Show Stats Expand all files Collapse all files

14
README.md
View File

@ -1,9 +1,3 @@
# Auto video thumbnail
Watch and resize all the videos you deposit in one folder.
<img width="100%" src="demo.gif">
# Install
1) Install Java.
@ -11,7 +5,7 @@ Watch and resize all the videos you deposit in one folder.
Debian/Ubuntu
``` bash
sudo apt install default-jdk ffmpeg
sudo apt install default-jdk
```
Mac OS
@ -59,9 +53,3 @@ java $JVM_OPTS -cp video-optimize-{version}-SNAPSHOT-standalone.jar clojure.main
Everything you leave in the videos folder will be optimized for web with the specified resolution (600px in this example).
example.mp4 -> example_thumbnail.mp4
# Tricks
## I just want to optimise, without resizing
Delete from your settings `width_thumbnail`.

BIN
demo.gif
View File

Binary file not shown.
Side by Side

Before

Width:  |  Height:  |  Size: 1.7 MiB

2
project.clj
View File

@ -1,4 +1,4 @@
(defproject video-optimize "1.0.4"
(defproject video-optimize "1.0.2-SNAPSHOT"
:description "Watcher and optimize videos"
:url "http://example.com/FIXME"
:license {:name "EPL-2.0 OR GPL-2.0-or-later WITH Classpath-exception-2.0"

31
src/video_optimize/core.clj
View File

@ -14,28 +14,19 @@
(def audio_quality_thumbnail (:audio_quality_thumbnail config))
(def path_videos (:path_videos config))
(defn convertVideo
;; Optimize video
[e]
(let [path_raw (.getAbsolutePath (:file e))
is_thumbnail (doall (re-find (re-pattern extension_thumbnail) path_raw))
path_thumbnail (str (str/join "." ( drop-last (str/split path_raw #"\."))) extension_thumbnail)
path_thumbnail_temp (str "/tmp/" (last (str/split path_thumbnail #"\/")))]
(if (and (.exists (io/file path_raw)) (not is_thumbnail) (not (.exists (io/file path_thumbnail))))
(do
(prn (str "Optimizing: " path_raw))
(if (nil? width_thumbnail)
;; Not width, not scale
(shell/sh "ffmpeg" "-y" "-i" path_raw "-c:v" "libx264" "-c:a" "aac" "-ab" (str audio_quality_thumbnail) "-strict" "-2" path_thumbnail_temp)
;; With width, scale
(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" "-c:a" "aac" "-ab" (str audio_quality_thumbnail) path_thumbnail_temp))
(shell/sh "mv" path_thumbnail_temp path_thumbnail)
(prn (str "Finish: " path_thumbnail))))))
(defn -main [& args]
;; Watch
(hawk/watch! [{:paths [path_videos]
:handler (fn [ctx e]
(convertVideo e))}])
(let [path_raw (.getAbsolutePath (:file e))
is_thumbnail (doall (re-find (re-pattern extension_thumbnail) path_raw))
path_thumbnail (str/join (concat (drop-last (str/split path_raw #"\.")) extension_thumbnail))
path_thumbnail_temp (str "/tmp/" (last (str/split path_thumbnail #"\/")))]
(if (and (.exists (io/file path_raw)) (not is_thumbnail) (not (.exists (io/file path_thumbnail))))
(do
(prn (str "Optimizing: " path_raw))
;; 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" (str width_thumbnail "kb") path_thumbnail_temp)
(shell/sh "mv" path_thumbnail_temp path_thumbnail)
(prn (str "Finish: " path_thumbnail))))))}])
(println "Running: Feed me!"))