Advertisement
Guest User

Untitled

a guest
Dec 18th, 2018
1,224
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. (defn start-server []
  2.   (jetty/run-jetty
  3.     ;(-> #'arc-ui.handler.routing/routes wrap-reload) Doesn't appear to be required now
  4.     (wrap-defaults #'arc-ui.handler.routing/routes site-defaults)
  5.     {:port (:port jetty-config)
  6.      :join (:join jetty-config)})
  7.   )
  8.  
  9.  
  10.  
  11. ;;; HTTP routes are specified here
  12. (defroutes routes
  13.            (route/resources "/")
  14.            (GET "/" [] (arc_ui.routes.home/home-page))
  15.            (GET "/test" request http-response-values)
  16.            (POST "/login" request (arc-ui.routes.login/login))
  17.            (route/not-found (arc-ui.routes.not-found/route-not-found)))
  18.  
  19.  
  20.  
  21.  
  22. ;;; The root (default page) that is loaded when a user visits
  23. (defn home-page []
  24.   (selmer/render-file "./html/Test.html" {:test (:name (first username))}))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement