diff --git a/collects/scribble/html-render.ss b/collects/scribble/html-render.ss index 5c6656f0..3abc86fb 100644 --- a/collects/scribble/html-render.ss +++ b/collects/scribble/html-render.ss @@ -1122,6 +1122,13 @@ (string? (style-name column-style))) `([class ,(style-name column-style)]) null) + ,@(if (and column-style + (pair? (style-properties column-style))) + (style->attribs (make-style + #f + (filter attributes? + (style-properties column-style)))) + null) ,@(if (and (pair? (cdr ds)) (eq? 'cont (cadr ds))) `([colspan diff --git a/collects/scribblings/scribble/core.scrbl b/collects/scribblings/scribble/core.scrbl index 08ff197e..9b2468d9 100644 --- a/collects/scribblings/scribble/core.scrbl +++ b/collects/scribblings/scribble/core.scrbl @@ -853,13 +853,16 @@ The following symbols are recognized as cell-@tech{style properties}: @item{@scheme['vcenter] --- Center the cell content vertically.} -]} +] +In addition, for HTML output, @scheme[attributes] structures as +@tech{style properties} can add arbitrary attributes to a cell's +@tt{