let pp_cell_type_html fmt cell_type =
  Format.fprintf fmt "class=\"%s\"" (cell_type_to_string cell_type)