slightly better use of CSS for tables

svn: r6591

original commit: 9d8a639f496fd14684b02dec07e8aa9c7726f7ef

collects/scribble/html-render.ss

@@ -192,12 +192,16 @@
            [else (super render-element e part ht)])))
 
       (define/override (render-table t part ht)
-        `((table ((cellspacing "0") ,@(case (table-style t)
-                                        [(boxed) '((width "100%") (bgcolor "#E8E8FF"))]
-                                        [(centered) '((align "center"))]
-                                        [(at-right) '((align "right"))]
-                                        [(at-left) '((align "left"))]
-                                        [else null]))
+        `((table ((cellspacing "0") 
+                  ,@(case (table-style t)
+                      [(boxed) '((class "boxed"))]
+                      [(centered) '((align "center"))]
+                      [(at-right) '((align "right"))]
+                      [(at-left) '((align "left"))]
+                      [else null])
+                  ,@(if (string? (table-style t))
+                        `((class ,(table-style t)))
+                        null))
                  ,@(map (lambda (flows)
                           `(tr ,@(map (lambda (d a va)
                                         `(td (,@(case a

collects/scribble/latex-render.ss

@@ -49,6 +49,7 @@
         (define-color "schemevaluelink" "blue")
         (define-color "schemeresult" "ResultColor")
         (define-color "schemestdout" "OutputColor")
+        (define-color "schememeta" "IdentifierColor")
         (define-color "schemevariablecol" "IdentifierColor")
         (printf "\\newcommand{\\schemevariable}[1]{{\\schemevariablecol{\\textsl{#1}}}}\n")
         (define-color "schemeerrorcol" "red")

collects/scribble/manual.ss

@@ -338,7 +338,7 @@
                  (list (make-flow
                         (list
                          (make-table
-                          '((valignment top top top top top))
+                          "prototype"
                           (list
                            (list
                             (to-flow
@@ -383,11 +383,7 @@
                                   (make-flow
                                    (list
                                     (make-table
-                                     `((valignment baseline baseline baseline baseline
-                                                   baseline baseline
-                                                   ,@(if (has-optional? v)
-                                                         '(baseline baseline baseline baseline)
-                                                         null)))
+                                     "argcontract"
                                      (list
                                       (let ([v (if (keyword? (car v)) 
                                                    (cdr v)

collects/scribble/scheme.ss

@@ -405,7 +405,7 @@
       (unless (null? content)
         (finish-line!))
       (if multi-line?
-          (make-table #f (map list (reverse docs)))
+          (make-table "schemeblock" (map list (reverse docs)))
           (make-sized-element #f (reverse content) dest-col))))
 
   (define (to-element c)

collects/scribble/scribble.css

@@ -141,6 +141,27 @@
                font-family: serif;
                }
 
+               .boxed { 
+                 width: 100%;
+                 background-color: #E8E8FF;
+               }
+
+               .prototype td { 
+                 vertical-align: baseline;
+               }
+
+               .schemeblock td { 
+                 vertical-align: baseline;
+               }
+
+               .argcontract td { 
+                 vertical-align: baseline;
+               }
+
+               .centered { 
+                 horiz-align: center;
+               }
+
                .verbatim em {
                font-family: serif;
                }