X-Git-Url: https://njoseph.me/gitweb/babashka-scripts.git/blobdiff_plain/9da8be80d72b89328d70b47b71050251e32c470a..fbc0885061f2ce47b5a21b5d4a5d99640d6f0e21:/ebook-to-audio-book.clj diff --git a/ebook-to-audio-book.clj b/ebook-to-audio-book.clj index c09b8d0..0d17855 100755 --- a/ebook-to-audio-book.clj +++ b/ebook-to-audio-book.clj @@ -13,13 +13,6 @@ ;; TODO Use festival-tts or say depending on OS -(defn run-cmd - [command] - (->> command - p/process - :out - slurp)) - (let [book-file (first *command-line-args*) title (first (split book-file #"\.")) txtz-file (str title ".txtz") @@ -34,5 +27,5 @@ (println "Creating mp3 file...") (run-cmd ["ffmpeg" "-i" aiff-file mp3-file]) (println "Cleaning up...") - (run! #(io/delete-file %) [txtz-file txt-file aiff-file]) + (run! io/delete-file [txtz-file txt-file aiff-file]) (println (str "Done! Check out " mp3-file)))