rest resource macro

gistfile1.clj

(ns j0ni.whatever
  (:use compojure.core))

(defmacro explode-resource [rsrc controller-fn attrs]
  `(context ~(str "/" rsrc) []
            (GET    "/"
                    []
                    (~(symbol (controller-fn "index"))))
            
            (GET    "/new"
                    []
                    (~(symbol (controller-fn "new"))))
            
            (POST   "/"
                    [~@(map #(symbol (name %)) attrs)]
                    (~(symbol (controller-fn "create")) ~@(map #(symbol (name %)) attrs)))
            
            (GET    "/:id"
                    [~(symbol "id")]
                    (~(symbol (controller-fn "show")) ~(symbol "id")))
            
            (DELETE "/:id"
                    [~(symbol "id")]
                    (~(symbol (controller-fn "destroy")) ~(symbol "id")))
            
            (GET    "/:id/edit"
                    [~(symbol "id")]
                    (~(symbol (controller-fn "edit")) ~(symbol "id")))
            
            (PUT    "/:id"
                    [~(symbol "id") ~@(map #(symbol (name %)) attrs)]
                    (~(symbol (controller-fn "update")) ~(symbol "id") ~@(map #(symbol (name %)) attrs)))))

(defmacro resource
  ([rsrc attrs]
     `(explode-resource ~rsrc ~#(str %) ~attrs))
  ([rsrc ns attrs]
     `(explode-resource ~rsrc ~#(str ns "/" %) ~attrs)))

one day this fucker will work