README.md

@@ -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`.

project.clj

@@ -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"

src/video_optimize/core.clj

@@ -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!"))