with-open-zipfile.clj

with-open-zipfile.clj

(defmacro with-open-zipfile
  [bindings & body]
  (let [bindings# (->> bindings
                       (mapncat 2 (fn [v f]
                                    `(~v (java.util.zip.ZipFile. ~f))))
                       (into []))]
    `(with-open ~bindings# ~@body)))

;; example

(macroexpand-1
 `(with-open-zipfile [a "a.zip" b "b.zip"]
    (my-logic a b)))

;; result of expand
;;
;;(with-open [a (java.util.zip.ZipFile. "a.zip")
;;           b (java.util.zip.ZipFile. "b.zip")]
;;   (my-logic a b))