bkyk8rc3zvpnsf5inmcqq4n3k98cv6hj-my-site-hyper-literate-git.test.suzanne.soy-0.0.1

commit 870bfd3ae691616f6fe2315cd1babe1eaa30bf8b
parent 95e265e395b9903122fef316f8e2578c6258cec3
Author: Matthew Flatt <mflatt@racket-lang.org>
Date:   Mon,  8 Mar 2010 21:31:31 +0000

scribble: use 'attributes' properties when rendering table cells

svn: r18488

original commit: 911d80a1442720f34749198a36233fcc0bbd803b

Diffstat:
M
collects/scribble/html-render.ss
 | 
7
+++++++
M
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
@@ -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
@@ -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{<td>} 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?]{