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

revert default Scribble Latex output to use longtable

Browse Source 
svn: r9121

original commit: f833112489eebdf678c4d2bde4c3b0cd189a1b1b
This commit is contained in:
Matthew Flatt 2008-03-31 18:31:46 +00:00
parent ab02db1252
commit 400abfcb29
2 changed files with 19 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -220,7 +220,9 @@
(if boxed? (if boxed?
(format "{~a\\begin{picture}(1,0)\\put(0,0){\\line(1,0){1}}\\end{picture}}~a\n\\nopagebreak\n" (format "{~a\\begin{picture}(1,0)\\put(0,0){\\line(1,0){1}}\\end{picture}}~a\n\\nopagebreak\n"
"\\setlength{\\unitlength}{\\linewidth}" "\\setlength{\\unitlength}{\\linewidth}"
"\n\n") (if (equal? tableform "supertabular")
"\\supertabline"
"\n\n"))
"") "")
tableform tableform
opt opt
@ -285,13 +287,15 @@
null) null)
(define/override (render-blockquote t part ri) (define/override (render-blockquote t part ri)
(printf "\n\n\\begin{quote}\n") (let ([kind (or (blockquote-style t)
(parameterize ([current-table-mode (list "blockquote" t)]) "quote")])
(for-each (lambda (e) (printf "\n\n\\begin{~a}\n" kind)
(render-flow-element e part ri #f)) (parameterize ([current-table-mode (list "blockquote" t)])
(blockquote-paragraphs t))) (for-each (lambda (e)
(printf "\n\n\\end{quote}\n") (render-flow-element e part ri #f))
null) (blockquote-paragraphs t)))
(printf "\n\n\\end{~a}\n" kind)
null))
(define/override (render-other i part ri) (define/override (render-other i part ri)
(cond (cond

8
collects/scribble/scribble.tex
View File

@ -14,7 +14,7 @@
\usepackage{graphicx} \usepackage{graphicx}
\usepackage{hyperref} \usepackage{hyperref}
\renewcommand{\rmdefault}{ptm} \renewcommand{\rmdefault}{ptm}
\usepackage{supertabular} \usepackage{longtable}
\usepackage[htt]{hyphenat} \usepackage[htt]{hyphenat}
\usepackage[usenames,dvipsnames]{color} \usepackage[usenames,dvipsnames]{color}
\hypersetup{bookmarks=true,bookmarksopen=true,bookmarksnumbered=true} \hypersetup{bookmarks=true,bookmarksopen=true,bookmarksnumbered=true}
@ -74,6 +74,12 @@
\newcommand{\preDoc}{\sloppy} \newcommand{\preDoc}{\sloppy}
\newcommand{\postDoc}{} \newcommand{\postDoc}{}
\newenvironment{leftindent}{\begin{quote}}{\end{quote}}
\newenvironment{insetpara}{\begin{quote}}{\end{quote}}
\newenvironment{supertabular}{\begin{longtable}}{\end{longtable}\vspace{-3ex}}
\newcommand{\supertabline}{\vspace{-2ex}}
% Scribble then generates the following: % Scribble then generates the following:
% %
% \begin{document} % \begin{document}