attempt for spit-to-zip

(defn spit-to-zip
  "Put the content in filename and zip it into zip-filename. Accept
one or more filename/content."
  [zip-filename [filename content] & others]
  (with-open [zip (java.util.zip.ZipOutputStream.
                   (clojure.java.io/output-stream zip-filename))]
    (let [add-entry (fn [name cont & remain] 
                      (-> zip (.putNextEntry (java.util.zip.ZipEntry. name)))
                      (.println (java.io.PrintWriter. zip true) cont)
                      (when (seq remain)
                        (recur (first remain) (second remain) (drop 2 remain))))]
      (add-entry filename content others))))