gistfile1.txt

(defmacro gen-controllers [resource views]
  `(let [res-name# (name ~resource)
         index# (str res-name# "-index")]
   (list
    (defn index# []
      ((~views :index) (mongo/fetch-all col)))
   
    (defn c-show   [id#]
      ((~views :show) (mongo/fetch-by-id col id#)))
    
    (defn c-new    []
      (~views :new))

    (defn c-create [params#]
      (mongo/insert col params#)
      (redirect-to (str "/" ~resource)))

    (defn c-edit   [id#]
      ((~views :edit) (mongo/fetch-by-id col id#)))

    (defn c-update [id# params#]
      (mongo/update col (mongo/fetch-by-id col id#) {:$set params#})
      (redirect-to (str "/" ~resource "/" id#)))

    (defn c-delete [id#]
      (mongo/delete col (mongo/fetch-by-id col id#))
      (redirect-to (str "/" ~resource))))
  ))