You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
16 lines
488 B
16 lines
488 B
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
|
|
|