example of specialized defpage

common.clj

(defmacro mainpage [route params & body]
  `(defpage ~route ~params
     (common/main-layout
       ~@body)))

;;Or if you wanted to get really crazy, so that you don't have to duplicate that macro
;;you could write a macro that writes the macros for you:

(defmacro layout-page [name layout]
  `(defmacro ~name [route# params# & body#]
     (concat `(defpage ~route# ~params#) 
             [(conj `(~@body#)
                    ~layout)]))) 

(layout-page adminpage common/admin-layout)