gistfile1.clj

(defmacro make-servlet
  "Call to generate a servlet class given the class name and a ring handler."
  [servlet handler]
  (let [servlet (name servlet), prefix (str servlet "-")]
    `(do (println "Compiling Servlet" ~servlet)
         (gen-class :name ~servlet
                    :prefix ~prefix
                    :extends javax.servlet.http.HttpServlet)
         (s/defservice ~prefix ~handler))))

(defmacro make-servlets
  [& servlets]
  `(do ~(map #(list* `make-servlet %&) (partition 2 servlets))))

(make-servlets
  my.servlet.class.Servlet hr/app)