defjob.clj

(defmacro defjob [name & forms]
  (let [prefix (str name "-")
        classname (str *ns* name)
        sym (with-meta
              (symbol (str name "-main"))
              (meta name))]
    `(do (gen-class :name ~classname
                    :main ~true
                    :prefix ~prefix)
         (defn ~sym ~@forms))))

(defjob StaticPailer [x] x)