// func(S) -> S

static new ThreadLocal htmlTable_cellEncoder;

// htmlEncode = true

static S htmlTable(O data) {

  ret htmlTable(data, true);

}

static S htmlTable(O data, boolean useHtmlEncode) {

  ret htmlTable(data, useHtmlEncode, false);

}

static S htmlTable(O data, boolean useHtmlEncode, boolean useBr) {

  // prepare table

  new L<L<S>> rows;

  new L<S> cols;

  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("<table border>\n");

  // title

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

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

    buf.append("  <th>" + htmlTable_encodeCell(cell, useHtmlEncode, useBr) + "</th>\n");

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

  // data

  for (L<S> row : rows) {

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

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

      buf.append("  <td>" + htmlTable_encodeCell(cell, useHtmlEncode, useBr) + "</td>\n");

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

  }

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

  ret buf.toString();

}

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

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

  if (useHtmlEncode) cell = htmlEncode(cell);

  if (useBr) cell = nlToBr(cell);

  ret cell;

}