// func(S) -> S

static new ThreadLocal htmlTable2_cellEncoder;

// htmlEncode = true

static S htmlTable2(O data, O... _) {

  bool htmlEncode = optPar htmlEncode(_, true);

  optPar bool useBr;

  optPar Map<S, O[]> paramsByColName;

  optPar O[] tableParams;

  optPar O[] trParams;

  optPar O[] tdParams;

  optPar SS replaceHeaders; // optionally replace HTML contents for header row

  optPar bool noHeader;

  // prepare table

  new LL<S> rows;

  LS cols = new ContentsIndexedList;

  if (data instanceof L) {

    for (O x : (L) data) pcall {

      rows.add(dataToTable_makeRow(x, cols));

    }

  } else if (data instanceof Map) {

    Map map = cast data;

    for (O key : map.keySet()) {

      O value = map.get(key);

      rows.add(litlist(structureOrText(key), structureOrText(value)));

    }

  } else

    print("Unknown data type: " + data);

  // get table width

  int w = 0;

  for (L<S> row : rows)

    w = max(w, l(row));

  // construct HTML for table

  new StringBuilder buf;

  buf.append(hopeningtag('table, paramsPlus(tableParams, border := html_valueLessParam())) + "\n");

  // title

  if (!noHeader) {

    buf.append("<tr>\n");

    for (S cell : padList(cols, w, ""))

      buf.append("  <th>" + htmlTable2_encodeCell(

        getOrKeep(replaceHeaders, cell), htmlEncode, useBr) + "</th>\n");

    buf.append("</tr>\n");

  }

  // data

  for (L<S> row : rows) {

    buf.append(hopeningtag tr(trParams));

    int i = 0;

    for (S cell : padList(row, w, "")) {

      S col = get(cols, i++);

      O[] params = paramsPlus(tdParams, mapGet(paramsByColName, col));

      buf.append("  " + tag('td, htmlTable2_encodeCell(cell, htmlEncode, useBr), params) + "\n");

    }

    buf.append("</tr>\n");

  }

  buf.append("</table>\n");

  ret buf.toString();

}

static S htmlTable2_encodeCell(S cell, boolean useHtmlEncode, boolean useBr) {

  if (htmlTable2_cellEncoder! != null) ret (S) callF(htmlTable2_cellEncoder!, cell);

  if (useHtmlEncode) cell = htmlEncode2(cell);

  if (useBr) cell = nlToBr(cell);

  ret cell;

}