X-Git-Url: https://njoseph.me/gitweb/babashka-scripts.git/blobdiff_plain/f7a7c8852fc7f3a47f858ad4fbf6b177735f52c0..f1d839f5e616cf6f3b121c3b34a4fd16b2200a8c:/ebook-to-audio-book.clj diff --git a/ebook-to-audio-book.clj b/ebook-to-audio-book.clj index 8305c2e..c09b8d0 100755 --- a/ebook-to-audio-book.clj +++ b/ebook-to-audio-book.clj @@ -2,8 +2,6 @@ ; A utility to listen to your ebooks using TTS programs -(import '[java.nio.file Files FileSystems CopyOption]) - (require '[babashka.process :as p] '[clojure.java.io :as io] '[clojure.string :refer [split]]) @@ -15,7 +13,6 @@ ;; TODO Use festival-tts or say depending on OS - (defn run-cmd [command] (->> command @@ -23,16 +20,6 @@ :out slurp)) -(defn extract-file-from-zip - [zip-file-name source destination] - (let [zip-file (io/file zip-file-name) - src (io/file source) - dest (io/file destination) - fs (FileSystems/newFileSystem (.toPath zip-file) nil) - file-in-zip (.getPath fs source (into-array String []))] - (Files/copy file-in-zip (.toPath dest) - (into-array CopyOption [])))) - (let [book-file (first *command-line-args*) title (first (split book-file #"\.")) txtz-file (str title ".txtz")