From 400abfcb291fae0672e2694708da7d60d4d63ab9 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 31 Mar 2008 18:31:46 +0000
Subject: [PATCH] revert default Scribble Latex output to use longtable

svn: r9121

original commit: f833112489eebdf678c4d2bde4c3b0cd189a1b1b
---
 collects/scribble/latex-render.ss | 20 ++++++++++++--------
 collects/scribble/scribble.tex    |  8 +++++++-
 2 files changed, 19 insertions(+), 9 deletions(-)

diff --git a/collects/scribble/latex-render.ss b/collects/scribble/latex-render.ss
index 5048ef99..c711219f 100644
--- a/collects/scribble/latex-render.ss
+++ b/collects/scribble/latex-render.ss
@@ -220,7 +220,9 @@
                         (if boxed? 
                             (format "{~a\\begin{picture}(1,0)\\put(0,0){\\line(1,0){1}}\\end{picture}}~a\n\\nopagebreak\n" 
                                     "\\setlength{\\unitlength}{\\linewidth}"
-                                    "\n\n")
+                                    (if (equal? tableform "supertabular")
+                                        "\\supertabline"
+                                        "\n\n"))
                             "")
                         tableform
                         opt
@@ -285,13 +287,15 @@
         null)
 
       (define/override (render-blockquote t part ri)
-        (printf "\n\n\\begin{quote}\n")
-        (parameterize ([current-table-mode (list "blockquote" t)])
-          (for-each (lambda (e)
-                      (render-flow-element e part ri #f))
-                    (blockquote-paragraphs t)))
-        (printf "\n\n\\end{quote}\n")
-        null)
+        (let ([kind (or (blockquote-style t)
+                        "quote")])
+          (printf "\n\n\\begin{~a}\n" kind)
+          (parameterize ([current-table-mode (list "blockquote" t)])
+            (for-each (lambda (e)
+                        (render-flow-element e part ri #f))
+                      (blockquote-paragraphs t)))
+          (printf "\n\n\\end{~a}\n" kind)
+          null))
 
       (define/override (render-other i part ri)
         (cond
diff --git a/collects/scribble/scribble.tex b/collects/scribble/scribble.tex
index 4c18f48b..1773faf2 100644
--- a/collects/scribble/scribble.tex
+++ b/collects/scribble/scribble.tex
@@ -14,7 +14,7 @@
 \usepackage{graphicx}
 \usepackage{hyperref}
 \renewcommand{\rmdefault}{ptm}
-\usepackage{supertabular}
+\usepackage{longtable}
 \usepackage[htt]{hyphenat}
 \usepackage[usenames,dvipsnames]{color}
 \hypersetup{bookmarks=true,bookmarksopen=true,bookmarksnumbered=true}
@@ -74,6 +74,12 @@
 \newcommand{\preDoc}{\sloppy}
 \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:
 %
 %  \begin{document}