Add babashka self-updater script
[babashka-scripts.git] / ebook-to-audio-book.clj
index 8305c2e92b45429be875c6f40df61ba7d228a17c..c09b8d00aaf3bad531407d4e25d5d41649a9b4ae 100755 (executable)
@@ -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
        :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")