cmc-application

gistfile1.txt

(def cmc-application
     (app
      (wrap-session)
      (wrap-if development? wrap-reload '[cmc.templates])
      (wrap-if development? wrap-stacktrace)
      ;; set application root
      (wrap-if development? wrap-file "resources")
      ["app" &]
      (app
       
       (wrap-security)
       (wrap-params)
       ["logout"] logout
       ["login"] {:get login-form
                  :post authenticate-user}
       
       ;;operate on collection
       ["users"] {:get get-all-users
                  :post create-new-user}

       ["users" ""] {:get get-all-users
                     :post create-new-user}
       
       ["users" "new"] {:get create-new-user-form}
       ["users" "new" ""] {:get create-new-user-form}

       ;;operate on a record
       ["users" id] {:get #(get-user % id)
                     :post (dispatch-on-param "_method"
                                              {"update" #(update-user % id)
                                               "delete" #(delete-user % id)})}
       ["users" id "edit"] {:get #(edit-user-form % id)}
       ["users" id "edit" ""] {:get #(edit-user-form % id)})))