Scribble Latex rendering of table styles

svn: r13887

original commit: 955f2e3441d4c6ad7488cdeff1958da73c32e537

collects/scribble/latex-render.ss

@@ -273,7 +273,10 @@
               [index? (printf "\\begin{list}{}{\\parsep=0pt \\itemsep=1pt \\leftmargin=2ex \\itemindent=-2ex}\n")]
               [inline? (void)]
               [else
-               (printf "\n\n\\begin{~a}~a{@{}~a}\n~a"
+               (printf "\n\n~a\\begin{~a}~a{@{}~a}\n~a"
+                       (if (string? (table-style t))
+                           (format "\\begin{~a}" (table-style t))
+                           "")
                        tableform
                        opt
                        (string-append*
@@ -325,9 +328,12 @@
                 (unless (null? (cdr flowss))
                   (loop (cdr flowss) (cdr row-styles)))))
             (unless inline?
-              (printf "~a\n\n\\end{~a}\n"
+              (printf "~a\n\n\\end{~a}~a\n"
-                      "" ; (if (equal? tableform "bigtabular") "\n\\\\" "")
+                      ""
-                      tableform)))))
+                      tableform
+                      (if (string? (table-style t))
+                           (format "\\end{~a}" (table-style t))
+                           ""))))))
       null)
 
     (define/private (render-table-flow p part ri twidth vstyle)

collects/scribble/private/manual-bib.ss

@@ -64,7 +64,7 @@
    (make-flow
     (list
      (make-table
-      "bibliography"
+      "SBibliography"
       (map (lambda (c)
              (let ([key (a-bib-entry-key c)]
                    [val (a-bib-entry-val c)])

collects/scribble/scribble.css

@@ -506,7 +506,7 @@ i {
 .techinside:hover              { color: blue; }
 .techoutside:hover>.techinside { color: inherit; }
 
-.bibliography td {
+.SBibliography td {
   vertical-align: text-top;
 }
 

collects/scribble/scribble.tex

@@ -78,6 +78,16 @@
 
 \newenvironment{bigtabular}{\begin{longtable}}{\end{longtable}\vspace{-3ex}}
 
+\newenvironment{schemeblock}{}{}
+\newenvironment{defmodule}{}{}
+\newenvironment{prototype}{}{}
+\newenvironment{argcontract}{}{}
+\newenvironment{together}{}{}
+\newenvironment{SBibliography}{}{}
+
+\newenvironment{compact}{\begin{itemize}}{\end{itemize}}
+\newcommand{\compactItem}[1]{\item #1}
+
 \newcommand{\SecRef}[2]{\S#1 ``#2''}
 
 \newcommand{\sectionhidden}[1]{\section{#1}}

collects/scribblings/scribble/config.scrbl

@@ -40,11 +40,12 @@ extend or configure Scribble fall into two groups:
          #:style `((css "inbox.css") (tex "inbox.tex"))]{Adding a Style}
 
 When a string is uses as a style in an @scheme[element],
-@scheme[styled-paragraph], @scheme[styled-itemization], or
+@scheme[styled-paragraph], @scheme[table],
-@scheme[blockquote], it corresponds to a CSS class for HTML output or
+@scheme[styled-itemization], or @scheme[blockquote], it corresponds to
-a Tex macro/environment for Latex output. In Latex output, the string
+a CSS class for HTML output or a Tex macro/environment for Latex
-is used as a macro name for a @scheme[styled-paragraph] and an
+output. In Latex output, the string is used as a macro name for a
-environment name for a @scheme[itemization] or @scheme[blockquote]. In
+@scheme[styled-paragraph] and an environment name for a
+@scheme[table], @scheme[itemization], or @scheme[blockquote]. In
 addition, for an itemization, the style string is suffixed with
 @scheme["Item"] and used as a CSS class or Tex macro name to use for
 the itemization's items (in place of @tt{item} in the case of Latex).

collects/scribblings/scribble/struct.scrbl

@@ -399,8 +399,8 @@ The @scheme[style] can be any of the following:
 
 @itemize[
 
- @item{A string that corresponds to a CSS class for
+ @item{A string that corresponds to a CSS class for HTML output or an
-       HTML output (see @secref["extra-style"]).}
+       environment for Latex output (see @secref["extra-style"]).}
 
  @item{@scheme['boxed] to render as a definition.}