gistfile1.clj

(import 'java.io.ByteArrayOutputStream)
(import 'java.io.ByteArrayInputStream)
(import 'com.lowagie.text.Document)
(import 'com.lowagie.text.DocumentException)
(import 'com.lowagie.text.Paragraph)
(import 'com.lowagie.text.pdf.PdfWriter)

(defn gen-pdf-stream [title]
  (let [doc (new Document)
        stream (ByteArrayOutputStream.)
        writer (PdfWriter/getInstance doc stream)]
    (.open doc)
    (.add doc (Paragraph. title))
    (.close doc)
    (ByteArrayInputStream. (.toByteArray stream))))


(defroutes example-app
  (GET "/pdf" [{:headers {"Content-Type" "application/pdf"}}
               (gen-pdf-stream "Lorum Ipsum")]))

(run-server {:port 8080} "/*" (servlet example-app))