Mark is not supported about boot-cljsjs HOT 2 CLOSED

(defn decompress-file [in out-dir & [{:keys [compression-format archive-format]}]]
  (with-open [is (if (.endsWith in ".gz")
                   (-> (io/input-stream in)
                       (try-decompress-stream {:format compression-format}))
                   (-> (io/input-stream in)
                       (try-decompress-stream {:format compression-format})
                       (unpackage-stream {:format archive-format})))]
    (if (.endsWith in ".gz")
      (let [target (io/file out-dir (.getName (io/file in)))]
        (println target)
        (io/make-parents target)
        (io/copy is target))

      (let [count (loop [i 0
                         entry (.getNextEntry is)]
                    (if entry
                      (if-not (.isDirectory entry)
                        (let [target (io/file out-dir (.getName entry))]
                          (io/make-parents target)
                                        ; After .getNextEntry the stream points to the specific archive entry
                          (io/copy is target)
                          (recur (inc i) (.getNextEntry is)))
                        (recur i (.getNextEntry is)))
                      i))]
        (util/info (format "Extracted %d files\n" count))))))