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 00:12:14 +01:00
parent 97864116bb
commit 20f18bcd76
No known key found for this signature in database
GPG key ID: 8981C3C62D1D28F1
24 changed files with 99 additions and 894 deletions
Download patch file Download diff file Expand all files Collapse all files

14
src/home.ml
View file

@ -1,11 +1,9 @@
open Tyxml.Html
let f _request =
let page_title = "Pellest is the best game ever!" in
let get _request =
let title = "Pellest is the best game ever!" in
let about = div [ txt App.about ] in
let link_to_register =
div [ a ~a:[ a_href "/register" ] [ txt "Register" ] ]
in
let link_to_login = div [ a ~a:[ a_href "/login" ] [ txt "Login" ] ] in
let page = div [ about; link_to_login; link_to_register ] in
Template.render ~page_title ~scripts:[] page
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
Template.render ~title ~scripts:[] page