17 lines
488 B
OCaml
17 lines
488 B
OCaml
open Tyxml
|
|
|
|
let render ~page_title ~scripts content =
|
|
let open Html in
|
|
let head =
|
|
head
|
|
(title (txt page_title))
|
|
( [ link ~rel:[ `Icon ] ~href:"/assets/img/favicon.png" ()
|
|
; link ~rel:[ `Stylesheet ] ~href:"/assets/css/style.css" ()
|
|
; link ~rel:[ `Stylesheet ] ~href:"/assets/css/leaflet.css" ()
|
|
]
|
|
@ scripts )
|
|
in
|
|
let body = body [ main [ content ] ] in
|
|
let page = html head body in
|
|
Format.asprintf "%a@." (pp ~indent:true ()) page
|