swrup/pellest
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

clean code

Browse source
This commit is contained in:
zapashcanon 2022-12-06 01:00:39 +01:00
parent eda6a2d001
commit 1736a4c905
No known key found for this signature in database
GPG key ID: 8981C3C62D1D28F1
10 changed files with 46 additions and 27 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/home.ml
View file

@ -1,9 +1,15 @@
open Tyxml.Html
let get _request =
let get request =
let title = "Pellest is the best game ever!" in
let about = div [ txt App.about ] in
let register_link = div [ a ~a:[ a_href "/register" ] [ txt "Register" ] ] in
let login_link = div [ a ~a:[ a_href "/login" ] [ txt "Login" ] ] in
let page = div [ about; login_link; register_link ] in
let logout_link = div [ a ~a:[ a_href "/logout" ] [ txt "Logout" ] ] in
let page =
div
@@
if User.is_logged_in request then [ about; logout_link ]
else [ about; login_link; register_link ]
in
Template.render ~title ~scripts:[] page