gistfile1.clj

(def servlets
  "Map of servlet classes to ring handlers, add here.  Needs to be quoted so symbols resolve to themselves."
  '{:my.servlet.class.Servlet hr/app})

(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
  []
  (let [gens (for [[name handler] servlets]
                `(make-servlet ~name ~handler))]
    `(do ~@gens)))

(make-servlets)