(** Common HTML layout components *)
let head ~title =
Printf.sprintf {|
%s - OHC
|} title
let nav () = {|
|}
let footer () = {|
|}
let page ~title ~content =
head ~title ^ nav () ^
{||} ^ content ^ {||} ^
footer ()
let badge status =
match status with
| `Success -> {|success|}
| `Failed -> {|failed|}
| `Skipped -> {|skipped|}
let stat ~value ~label =
Printf.sprintf {|