Quick and dirty doc generator for Nickel

docgen.ncl

let lib = {
  handle_record_field = fun rec_name { fields, type, contracts, documentation } =>
    m%"
      <details>
      <summary>%{rec_name}</summary>
      <div style="margin-left:12px">
      %{if documentation != null then documentation else "_no documentation_"}
      %{if type != null then "- *type*: %{type}" else ""}
      %{if contracts != [] then "- *contracts*:\n%{
        contracts
        |> std.array.map (fun x => "  - %{x}")
        |> std.string.join "\n"
      }" else ""}

      %{handle_record fields}
      </div>
      </details>
      "%,
  handle_record = fun record =>
    if record == null then "" else
    record
    |> std.record.map handle_record_field
    |> std.record.values
    |> std.string.join "\n"
}
in

let json_doc = import ".nickel/doc/organist.json" in
json_doc
|> lib.handle_record