gistfile1.txt

  (:import java.util.zip.ZipEntry
           java.util.zip.ZipInputStream))


(defn- ^ZipInputStream get-stream
  [url]
  (let [resp (client/get url {:as :stream})]
    (ZipInputStream. (:body resp))))

(def ^:private
  re-xlsx #".*(?i)\.xlsx$")

(def ^:private
  re-csv #".*(?i)\.csv$")

(defn- matches-ext [filename ext]
  (str/ends-with? (str/lower-case filename) (str/lower-case ext)))

(defn- seek-stream
  [^ZipInputStream stream ^java.util.regex.Pattern re]
  (loop []
    (if-let [entry (.getNextEntry stream)]
      (let [filename (.getName entry)]
        (if (re-matches re filename)
          stream
          (recur)))
      (raise! "Cannot find a file by regex %s" re))))