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

fix PDF doc build

Browse Source 
svn: r9135

original commit: 81e54f9049587d009ba6e24e6d2e7745314db11e
This commit is contained in:
Matthew Flatt 2008-04-02 11:58:49 +00:00
parent 91d3b3ba42
commit 43dae63615
2 changed files with 23 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -51,19 +51,21 @@
(pair? number)) (pair? number))
(when (part-style? d 'index) (when (part-style? d 'index)
(printf "\\twocolumn\n\\parskip=0pt\n\\addcontentsline{toc}{section}{Index}\n")) (printf "\\twocolumn\n\\parskip=0pt\n\\addcontentsline{toc}{section}{Index}\n"))
(printf "\\~a~a~a{" (let ([no-number? (and (pair? number)
(case (length number) (not (car number)))])
[(0 1) "sectionNewpage\n\n\\section"] (printf "\\~a~a~a{"
[(2) "subsection"] (case (length number)
[(3) "subsubsection"] [(0 1) "sectionNewpage\n\n\\section"]
[else "subsubsection*"]) [(2) "subsection"]
(if (part-style? d 'hidden) [(3) "subsubsection"]
"hidden" [else "subsubsection*"])
"") (if (and (part-style? d 'hidden)
(if (and (pair? number) (not no-number?))
(not (car number))) "hidden"
"*" "")
"")) (if no-number?
"*"
"")))
(render-content (part-title-content d) d ri) (render-content (part-title-content d) d ri)
(printf "}") (printf "}")
(when (part-style? d 'index) (when (part-style? d 'index)
@ -193,16 +195,16 @@
(= 1 (length (car (table-flowss t))))) (= 1 (length (car (table-flowss t)))))
(let ([m (current-table-mode)]) (let ([m (current-table-mode)])
(and m (and m
(equal? "supertabular" (car m)) (equal? "bigtabular" (car m))
(= 1 (length (car (table-flowss (cadr m))))))))] (= 1 (length (car (table-flowss (cadr m))))))))]
[tableform (cond [tableform (cond
[index? "list"] [index? "list"]
[(and (not (current-table-mode)) [(and (not (current-table-mode))
(not inline-table?)) (not inline-table?))
"supertabular"] "bigtabular"]
[else "tabular"])] [else "tabular"])]
[opt (cond [opt (cond
[(equal? tableform "supertabular") "[l]"] [(equal? tableform "bigtabular") "[l]"]
[(equal? tableform "tabular") "[t]"] [(equal? tableform "tabular") "[t]"]
[else ""])] [else ""])]
[flowss (if index? [flowss (if index?
@ -223,8 +225,8 @@
(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}"
(if (equal? tableform "supertabular") (if (equal? tableform "bigtabular")
"\\supertabline" "\\bigtabline"
"\n\n")) "\n\n"))
"") "")
tableform tableform
@ -274,7 +276,7 @@
(loop (cdr flowss) (cdr row-styles))))) (loop (cdr flowss) (cdr row-styles)))))
(unless inline? (unless inline?
(printf "~a\n\n\\end{~a}\n" (printf "~a\n\n\\end{~a}\n"
(if (equal? tableform "supertabular") (if (equal? tableform "bigtabular")
"\n\\\\" "\n\\\\"
"") "")
tableform))))) tableform)))))

7
collects/scribble/scribble.tex
View File

@ -77,15 +77,12 @@
\newenvironment{leftindent}{\begin{quote}}{\end{quote}} \newenvironment{leftindent}{\begin{quote}}{\end{quote}}
\newenvironment{insetpara}{\begin{quote}}{\end{quote}} \newenvironment{insetpara}{\begin{quote}}{\end{quote}}
\newenvironment{supertabular}{\begin{longtable}}{\end{longtable}\vspace{-3ex}} \newenvironment{bigtabular}{\begin{longtable}}{\end{longtable}\vspace{-3ex}}
\newcommand{\supertabline}{\vspace{-2ex}} \newcommand{\bigtabline}{\vspace{-2ex}}
\newcommand{\sectionhidden}[1]{\section{#1}} \newcommand{\sectionhidden}[1]{\section{#1}}
\newcommand{\subsectionhidden}[1]{\subsection{#1}} \newcommand{\subsectionhidden}[1]{\subsection{#1}}
\newcommand{\subsubsectionhidden}[1]{\subsubsection{#1}} \newcommand{\subsubsectionhidden}[1]{\subsubsection{#1}}
\newcommand{\sectionhidden*}[1]{\section*{#1}}
\newcommand{\subsectionhidden*}[1]{\subsection*{#1}}
\newcommand{\subsubsectionhidden*}[1]{\subsubsection*{#1}}
% Scribble then generates the following: % Scribble then generates the following:
% %