Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (defn start-server []
- (jetty/run-jetty
- ;(-> #'arc-ui.handler.routing/routes wrap-reload) Doesn't appear to be required now
- (wrap-defaults #'arc-ui.handler.routing/routes site-defaults)
- {:port (:port jetty-config)
- :join (:join jetty-config)})
- )
- ;;; HTTP routes are specified here
- (defroutes routes
- (route/resources "/")
- (GET "/" [] (arc_ui.routes.home/home-page))
- (GET "/test" request http-response-values)
- (POST "/login" request (arc-ui.routes.login/login))
- (route/not-found (arc-ui.routes.not-found/route-not-found)))
- ;;; The root (default page) that is loaded when a user visits
- (defn home-page []
- (selmer/render-file "./html/Test.html" {:test (:name (first username))}))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement