gistfile1.clj

(defmacro define-entity-template
  [n & cs]
  (let [macro-name (->> n (str "def") symbol)
        docstring (if (string? (first cs)) (first cs) "")
        cs (if docstring (rest cs) cs)]
    ;; This is where it gets slightly insane...
    `(defmacro ~macro-name ~docstring
      [n# & cs#]
      (let [docstring# (if (string? (first cs#)) (first cs#) "")
            cs# (if docstring# (rest cs#) cs#)]
        `(defentity ~n# ~docstring# ~'~@cs ~@cs#))))) ; OMG