yada-upload-images.clj

(defn create-tempfile
  [suffix]
  (let [f (File/createTempFile "yada-" suffix)]
    (.deleteOnExit f)
    f))

(defn save-body-to-file
  [ctx body-stream media-type & args]
  (let [temp-file (create-tempfile (str "." (second (str/split media-type #"/"))))]
    (md/chain
      (ms/reduce
        (fn [^OutputStream acc ^bytes buf]
          (do (.write acc buf)
              acc))
        (io/output-stream temp-file)
        body-stream)

      (fn [^OutputStream acc]
        (.close acc)
        (assoc-in ctx [:parameters :body] temp-file)))))

(defmethod process-request-body "application/jpg"
  [ctx body-stream media-type & args]
  (apply save-body-to-file ctx body-stream media-type args))

(defn upload-file
  []
  (yada/resource
    {:produces #{"application/json"}
     :methods  {:post
                {:consumes   #{"application/jpg" "application/jpeg" "application/png"}
                 :parameters {:body java.io.File}
                 :response   (fn [ctx]
                               (do
                                 (log/info (get-in ctx [:parameters :body]))
                                 {:message "ok, yeah"}))}}}))