#5: Progress, but nothing working yet

src/clj/youyesyet/handler.clj

@@ -1,6 +1,7 @@
 (ns youyesyet.handler
   (:require [compojure.core :refer [routes wrap-routes]]
             [youyesyet.layout :refer [error-page]]
+            [youyesyet.routes.authenticated :refer [authenticated-routes]]
             [youyesyet.routes.home :refer [home-routes]]
             [youyesyet.routes.oauth :refer [oauth-routes]]
             [compojure.route :as route]
@@ -61,6 +62,7 @@
         (wrap-routes middleware/wrap-csrf)
         (wrap-routes middleware/wrap-formats))
     #'oauth-routes
+    #'authenticated-routes
     (route/not-found
       (:body
         (error-page {:status 404

src/clj/youyesyet/routes/authenticated.clj

@@ -33,12 +33,22 @@
 
 ;;; This code adapted from http://www.luminusweb.net/docs#accessing_the_database
 
-(defn canvassers-page
+(defn canvasser-page
   [request]
   (if
     (:params request)
     (let [params (:params request)]
       (if (:id params)
         (db/update-canvasser! params)
-        (db/create-canvasser! params)))))
+        (db/create-canvasser! params))
+      )))
 
+(defn routing-page
+  "Render the routing page, which offers routes according to the user's roles"
+  []
+  (layout/render "routing.html"))
+
+(defroutes authenticated-routes
+  (GET "/edit-canvasser" request (canvasser-page request))
+  (POST "/edit-canvasser" request (canvasser-page request))
+  (GET "/routing" [] (routing-page)))