pellest/src/home.ml

open Tyxml.Html

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 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