(with-open [task (ffmpeg! [:y 
                          :i "http://ftp.nluug.nl/pub/graphics/blender/demo/movies/ToS/ToS-4k-1920.mov"
                          :ss "00:00:00.000"
                          :t "5"
                          [:s "1280x720" :acodec "aac" :vcodec "h264" "720p.mp4"]])]

    (.wait-for task)
    (println "Transcoding completed. Exit code: " (.exit-code task)))
    

(let [c (async/chan)]

    (async/go (while true
                (let [[v ch] (async/alts! [c])]
                  (clojure.pprint/pprint v))))

    (with-open [task (ffmpeg! c [:y
                                :i "http://ftp.nluug.nl/pub/graphics/blender/demo/movies/ToS/ToS-4k-1920.mov"
                                :ss "00:00:00.000"
                                :t "5"
                                [:s "1280x720" :acodec "aac" :vcodec "h264" "720p.mp4"]])]

      (.wait-for task)
      (println "Transcoding completed. Exit code: " (.exit-code task))))

(let [result (ffprobe! [:show_format :show_streams 
                       "http://ftp.nluug.nl/pub/graphics/blender/demo/movies/ToS/ToS-4k-1920.mov"])
        s (group-by (comp keyword :codec_type) (:streams result))]
        [(:codec_name (first (:video s) )) (:codec_name (first (:audio s)) )])
        
; ["h264" "aac"]

#!/usr/bin/env bb

(require '[babashka.deps :as deps])

(deps/add-deps '{:deps {ffclj/ffclj {:mvn/version "0.1.2" }}})

(require '[ffclj.core :refer [ffmpeg! ffprobe!]]
         '[ffclj.task :as task])

(let [result (ffprobe! [:show_format :show_streams
                       "http://ftp.nluug.nl/pub/graphics/blender/demo/movies/ToS/ToS-4k-1920.mov"])
        s (group-by (comp keyword :codec_type) (:streams result))
        codecs [(:codec_name (first (:video s) )) (:codec_name (first (:audio s)) )]]

  (println codecs))


(with-open [t (ffmpeg! [:y
                        :i "http://ftp.nluug.nl/pub/graphics/blender/demo/movies/ToS/ToS-4k-1920.mov"
                        :ss "00:00:00.000"
                        :t "5"
                        [:s "1280x720" :acodec "aac" :vcodec "h264" "720p.mp4"]])]

      (task/wait-for t)
      (println "Transcoding completed. Exit code: " (task/exit-code t)))