From 911d80a1442720f34749198a36233fcc0bbd803b Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 8 Mar 2010 21:31:31 +0000 Subject: [PATCH] scribble: use 'attributes' properties when rendering table cells svn: r18488 --- collects/scribble/html-render.ss | 7 +++++++ collects/scribblings/scribble/core.scrbl | 7 +++++-- 2 files changed, 12 insertions(+), 2 deletions(-) diff --git a/collects/scribble/html-render.ss b/collects/scribble/html-render.ss index 5c6656f0c5..3abc86fb2a 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 08ff197ef0..9b2468d97c 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{} tag.} @defstruct[table-columns ([styles (listof style?)])]{ Like @scheme[table-cells], but the @scheme[styles] list is duplicated -for each row in the table. This @tech{style property} is only when a +for each row in the table. This @tech{style property} is used only when a @scheme[table-cells] is not present in a style's list of properties.} @defproc[(block? [v any/c]) boolean?]{