open Cow
open Cow.Html

let about name doc =
  html @@ list [
    body @@ list [
      div @@ string name;
      div @@ string @@ Option.value doc ~default:"undocumented"
    ]
  ]

let not_found =
  html @@ list [
    body @@ list [
      div @@ string "not found in layer 9";
      div @@ string "try other layers?";
      div @@ list [
        anchor "8 (downgrade to)";
        anchor "10 (upgrade to)";
      ]
    ]
  ]