44 lines
1.3 KiB
OCaml
44 lines
1.3 KiB
OCaml
open Drame
|
|
open Tyxml.Html
|
|
open Lang
|
|
|
|
let contact_img = { name = "contact.png"; alt = { fr = ""; en = "" } }
|
|
|
|
let get request =
|
|
let content =
|
|
div
|
|
~a:[ a_class [ "contact-grid"; "inline-padded" ] ]
|
|
[ img request ~a:[]
|
|
~src:(Sitemap.img contact_img.name)
|
|
~alt:contact_img.alt
|
|
; div
|
|
~a:[ a_class [ "contact-text" ] ]
|
|
[ div
|
|
~a:[ a_class [ "contact-text-title" ] ]
|
|
[ txt_anylang "Joanna Barreiro"
|
|
; br ()
|
|
; txt request ~fr:"Architecte & Maître d'œuvre"
|
|
~en:"HMONP Architect & Project Manager"
|
|
]
|
|
; div
|
|
[ txt request ~fr:"Seine-et-Marne (77)," ~en:"Paris,"
|
|
; br ()
|
|
; txt request ~fr:"Île-de-France" ~en:"France"
|
|
]
|
|
; div
|
|
[ txt request ~fr:"mail : " ~en:"mail: "
|
|
; a
|
|
~a:[ a_href "mailto:contact@jb-architecte.com" ]
|
|
[ txt_anylang "contact@jb-architecte.com" ]
|
|
; br ()
|
|
; txt request ~fr:"Tél. : 07 82 73 80 81"
|
|
~en:"Tel.: +33 7 82 73 80 81"
|
|
]
|
|
]
|
|
]
|
|
in
|
|
|
|
let h1 = { en = "Contact"; fr = "Contact" } in
|
|
let doc = Template.render request ~h1 content in
|
|
Ok (Content.Html doc)
|