55 lines
1.4 KiB
OCaml
55 lines
1.4 KiB
OCaml
open Drame
|
|
open Tyxml.Html
|
|
open Lang
|
|
|
|
let services request =
|
|
let open Services_data in
|
|
let f request service =
|
|
div
|
|
~a:[ a_class [ "services-subgrid" ] ]
|
|
[ img request
|
|
~a:[ a_class [] ]
|
|
~src:(Sitemap.img service.img_left.name)
|
|
~alt:service.img_left.alt
|
|
; div
|
|
~a:[ a_class [ "services-grid-text" ] ]
|
|
[ p ~a:[] [ txt_choice request service.p1 ]
|
|
; p ~a:[] [ txt_choice request service.p2 ]
|
|
]
|
|
; img request
|
|
~a:[ a_class [] ]
|
|
~src:(Sitemap.img service.img_right.name)
|
|
~alt:service.img_right.alt
|
|
]
|
|
in
|
|
List.map (f request) services
|
|
|
|
let get request =
|
|
let services_grid =
|
|
div ~a:[ a_class [ "services-grid"; "inline-padded" ] ] (services request)
|
|
in
|
|
let content =
|
|
div
|
|
~a:[ a_class [ "services-container" ] ]
|
|
[ services_grid
|
|
; h3
|
|
[ txt request
|
|
~fr:
|
|
"Besoin de précisions sur mes services ou d'échanger sur un \
|
|
projet ? "
|
|
~en:
|
|
"Need more information about my services or to discuss a \
|
|
project? "
|
|
; a
|
|
~a:[ a_href Sitemap.contact ]
|
|
[ txt request ~fr:"Me contacter" ~en:"Contact me" ]
|
|
; txt_anylang "."
|
|
]
|
|
]
|
|
in
|
|
|
|
let h1 = { en = "Services"; fr = "Services" } in
|
|
|
|
let doc = Template.render request ~h1 content in
|
|
Ok (Content.Html doc)
|