static hiccup generation

gistfile1.clj

(defmacro defpartial 
  "Create a function that returns html using hiccup. The function is 
   callable with the given name."
  [fname params & body]
  `(defn ~fname ~params
     (h.core/html
      ~@body)))

(defmacro fn-partial 
  "Create a function that returns html using hiccup."
  [params & body]
  `(fn ~params
     (h.core/html
      ~@body)))

(defmacro defpartial-static
  "Pre-render on compilation, no params"
  [name & body]
  (let [b `(fn-partial [] ~@body)
        value ((eval b))]
    `(defpartial ~name []
       ~value)))