Clojure on Heroku

gistfile1.clj

(ns demo.web
  (use ring.adapter.jetty
       compojure.core
       [clojure.java.io :only [input-stream]]
       [fleet :only [fleet-ns]]
       [ring.util.response :only [response]]
       [compojure.response :only [Renderable]])
  (require [compojure [route :as route] [handler :as handler]])
  (import java.io.ByteArrayOutputStream
          javax.imageio.ImageIO
          java.awt.image.BufferedImage
          java.awt.image.BufferedImage))

(defn make-thumbnail* [in-stream out-stream width]
  (let [img (ImageIO/read in-stream)
        width (min (.getWidth img) width)
        height (* (/ width (.getWidth img)) (.getHeight img))
        simg (BufferedImage. width height
                             (BufferedImage/TYPE_INT_ARGB))
        g (.createGraphics simg)]
    (do
      (.drawImage g img 0 0 width height nil)
      (.dispose g)
      (ImageIO/write simg "png" out-stream))))

(defn make-thumbnail [{{{f :tempfile} :file} :params :as req}]
  (let [out (ByteArrayOutputStream.)]
    (make-thumbnail* (input-stream f)
                    out 100)
    (input-stream (.toByteArray out))))

(extend-protocol Renderable
  fleet.util.CljString
  (render [this _] (response (.toString this))))

(fleet-ns templates "templates" [:fleet :bypass])

(defroutes main-routes
  (GET "/" _ (templates.upload/index))
  (POST "/" _ make-thumbnail))

(def app
     (-> #'main-routes
         handler/site))

(defn -main []
  (let [port (Integer/parseInt (or (System/getenv "PORT")
                                   "8080"))]
    (run-jetty (var app) {:port port})))

;; (-main)