|
|
|
@ -32,9 +32,12 @@
|
|
|
|
|
;; Routing rules |
|
|
|
|
|
|
|
|
|
(defroute "/" () |
|
|
|
|
(hermetic:auth (:logged-in) |
|
|
|
|
(render #P"index.html" (auth:auth-user-data)) |
|
|
|
|
(render #P"index.html"))) |
|
|
|
|
(let ((alert (utils:get-and-reset-alert))) |
|
|
|
|
(hermetic:auth (:logged-in) |
|
|
|
|
(render #P"index.html" |
|
|
|
|
(append (auth:auth-user-data) |
|
|
|
|
`(:alert ,alert))) |
|
|
|
|
(render #P"index.html" `(:alert ,alert))))) |
|
|
|
|
|
|
|
|
|
(defroute "/setup" () |
|
|
|
|
;; If there is no database, there is no user, hence no more checks. |
|
|
|
|