simon/youyesyet
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Servlet-context fixes

Browse source
This commit is contained in:
Simon Brooke 2018-07-22 09:24:37 +01:00
parent 3463292e3c
commit b7ddc0a443
9 changed files with 9 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/clj/youyesyet/routes/home.clj
View file

@ -49,9 +49,9 @@
(defn about-page []
(layout/render "about.html" {:title
(layout/render "md.html" {:title
(str "About " (:site-title env))
:motd (md-to-html-string (slurp (io/resource "about.md")))}))
:content (md-to-html-string (slurp (io/resource "about.md")))}))
(defn call-me-page [request]

5
src/clj/youyesyet/routes/logged_in.clj
View file

@ -115,7 +115,7 @@
(defn handle-logout
[request]
(let [r (response/found "home")]
(let [r (response/found (str (:servlet-context request) "/home"))]
(assoc r :session (dissoc (:session r) :user))))
@ -123,5 +123,4 @@
(defroutes logged-in-routes
(GET "/logout" request (handle-logout request))
(GET "/profile" request (route/restricted (profile-page request)))
(GET "/app" [request] (route/restricted (app-page request)))
)
(GET "/app" [request] (route/restricted (app-page request))))