CLEANUP: html_text: measure table cells without rendering them twice

Column widths were established by formatting every cell a second time
with tty(false) and counting characters, because ANSI attributes would
otherwise be counted as text.  write_size/4 reports display columns and
ignores escape sequences, so the cells are measured as they are printed.

Co-Authored-By: Claude Opus 5 (1M context) <noreply@anthropic.com>
Claude-Session: https://claude.ai/code/session_01LmQHEtHoVQ2NH2Zzusvepa

Author: JanWielemaker

library/lynx/html_text.pl

@@ -626,12 +626,13 @@
     option(margin_left(ML), BlockAttrs, 0),
     option(margin_right(MR), BlockAttrs, 0),
     MaxTableWidth is State.width - ML - MR,
-    table_cell_state(Attrs, State, CellState),
+    table_cell_state(Attrs, State, CellState0),
+    CellState = CellState0.put(tty, TTY),
     phrase(rows(Content), Rows),
     columns(Rows, Columns),
-    maplist(auto_column_width(CellState.put(tty,false)), Columns, Widths),
+    maplist(auto_column_width(CellState), Columns, Widths),
     column_widths(Widths, MaxTableWidth, ColWidths),
-    maplist(format_row(ColWidths, CellState.put(tty,TTY), ML), Rows).
+    maplist(format_row(ColWidths, CellState, ML), Rows).
 
 tty_state(TTY) :-
     stream_property(current_output, tty(true)),
@@ -717,9 +718,7 @@
     cell_colspan(Cell, 1),
     !,
     format_cell_to_string(Cell, 1_000, State, String),
-    split_string(String, "\n", "", Lines),
-    maplist(string_length, Lines, LineW),
-    max_list(LineW, Width0),
+    write_size(String, Width0, _Height, []),
     Width is Width0 + State.margin_right.
 auto_cell_width(_, _, 0).
 

man/builtin.plx

@@ -6985,9 +6985,10 @@ appropriate for the use-case.
 True when \arg{Width} and \arg{Height} describe the maximum line width
 and \arg{Height} the number of lines for printing \arg{Term} using
 \arg{Options} using \term{write_term}{Term, Options}. The computed width
-respects Unicode \jargon{coombining} and \jargon{double width}
-characters. In addition to qvalid options for write_term/2, it processes
-the options:
+is a count of display columns, as in line_position/2: it respects Unicode
+\jargon{combining} and \jargon{double width} characters and does not
+count ANSI escape sequences. In addition to qvalid options for
+write_term/2, it processes the options:
 
     \begin{description}
 	\termitem{max_width}{+MaxWidth}