suzanne.soy/hyper-literate
1
0
Fork 0
Code Issues 4 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

Scribble Latex rendering of table styles

Browse Source 
svn: r13887

original commit: 955f2e3441d4c6ad7488cdeff1958da73c32e537
This commit is contained in:
Matthew Flatt 2009-03-01 03:30:44 +00:00
parent 4563ae1d7b
commit 2c8cfdb3e9
6 changed files with 30 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
collects/scribble/latex-render.ss
View File

@ -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"
"" ; (if (equal? tableform "bigtabular") "\n\\\\" "")
tableform)))))
(printf "~a\n\n\\end{~a}~a\n"
""
tableform
(if (string? (table-style t))
(format "\\end{~a}" (table-style t))
""))))))
null)
(define/private (render-table-flow p part ri twidth vstyle)

2
collects/scribble/private/manual-bib.ss
View File

@ -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)])

2
collects/scribble/scribble.css
View File

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

10
collects/scribble/scribble.tex
View File

@ -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}}

11
collects/scribblings/scribble/config.scrbl
View File

@ -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[blockquote], it corresponds to a CSS class for HTML output or
a Tex macro/environment for Latex output. In Latex output, the string
is used as a macro name for a @scheme[styled-paragraph] and an
environment name for a @scheme[itemization] or @scheme[blockquote]. In
@scheme[styled-paragraph], @scheme[table],
@scheme[styled-itemization], or @scheme[blockquote], it corresponds to
a CSS class for HTML output or a Tex macro/environment for Latex
output. In Latex output, the string is used as a macro name for a
@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).

4
collects/scribblings/scribble/struct.scrbl
View File

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