with-temp-files.clj

(defmacro with-temp-files
  "Create a block where `varname` is a temporary `File` containing `content`."
  [bindings & body]
  (let [bindings (partition 2 bindings)]
    `(let ~(into []
                 (mapcat
                   (fn [[bind-name content]]
                     `[~bind-name (File/createTempFile ~(str bind-name) ".json")]))
                 bindings)
       ~@(mapv
           (fn [[bind-name content]]
             `(io/copy ~content ~bind-name))
           bindings)
       (let [rv# (do ~@body)]
         ~@(mapv
             (fn [[bind-name _]]
               `(.delete ^File ~bind-name))
             bindings)
         rv#))))