20 lines
484 B
OCaml
20 lines
484 B
OCaml
open Drame
|
|
open Tyxml.Html
|
|
open Lang
|
|
|
|
let get request =
|
|
let h1 =
|
|
{ fr = "Joanna Barreiro Architecte"; en = "Joanna Barreiro Architect" }
|
|
in
|
|
let content =
|
|
div
|
|
[ img request
|
|
~a:[ a_class [ "home-gif" ] ]
|
|
~src:(Sitemap.img "home.gif") ~alt:h1
|
|
; Tyxml.Html.h1 ~a:[ a_class [ "visible-h1" ] ] [ txt_choice request h1 ]
|
|
]
|
|
in
|
|
(* TODO hidden h1.. *)
|
|
let doc = Template.render request ~styles:[] ~h1 content in
|
|
Ok (Content.Html doc)
|