gistfile1.clj

(defn gunzip
  "Writes the contents of input to output, decompressed.
  input: something which can be opened by io/input-stream.
      The bytes supplied by the resulting stream must be gzip compressed.
  output: something which can be copied to by io/copy."
  [input output & opts]
  (with-open [input (-> input io/input-stream GZIPInputStream.)]
    (apply io/copy input output opts)))

;; ... snip ...

(defn -main []
  (let [sources (map #(vector (clojure.string/replace (.getName %) #".xml$" "")
                              (get-first-source-url %))
                     sources)] ;; a list of vectors: [filename url]
    (doall (pmap #(-> (second %)
                      io/input-stream
                      (gunzip (io/file (format "./docsets/%s.docset" (first %)))))
                 (take 1 sources))))) ;; just try one for testing