Create thumbnail of image

gistfile1.clj

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