clj-jasper

[net.tbt-post/clj-jasper "0.1.0"]

(ns my-app.jasper
  (:require [clj-jasper.core :as jc]
            [clojure.java.io :as io]))

(defn render [name data properties]
  (binding [jc/*jr-templates-path* "my-templates"]
    (let [out (jc/data->report {:name (format "my-reports/%s" name)
                                :data data
                                :ops  properties})]
      {:status  200
       :headers {"Content-Type"        (:type out)
                 "Content-Disposition" (format "attachment; filename=\"%s\"" (:name out))
                 "Cache-Control"       "no-cache"}
       :body    (-> out :file io/input-stream)})))