suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

layout improvements

Browse Source 
svn: r13790
This commit is contained in:
Matthew Flatt 2009-02-22 16:00:00 +00:00
parent 4cbd62709a
commit cdfc9ffc36
3 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -136,7 +136,7 @@
(printf "\\label{t:~a}" (printf "\\label{t:~a}"
(t-encode (tag-key (target-element-tag e) ri)))) (t-encode (tag-key (target-element-tag e) ri))))
(when part-label? (when part-label?
(printf "\\S") (printf "\\SecRef{")
(render-content (render-content
(let ([dest (resolve-get part ri (link-element-tag e))]) (let ([dest (resolve-get part ri (link-element-tag e))])
(if dest (if dest
@ -149,7 +149,7 @@
'("!!!"))) '("!!!")))
(list "???"))) (list "???")))
part ri) part ri)
(printf " ``")) (printf "}{"))
(let ([style (and (element? e) (let ([style (and (element? e)
(let ([s (flatten-style (element-style e))]) (let ([s (flatten-style (element-style e))])
(if (with-attributes? s) (if (with-attributes? s)
@ -206,7 +206,7 @@
(image-file-scale style) fn)))] (image-file-scale style) fn)))]
[else (super render-element e part ri)]))) [else (super render-element e part ri)])))
(when part-label? (when part-label?
(printf "''")) (printf "}"))
(when (and (link-element? e) (when (and (link-element? e)
(show-link-page-numbers) (show-link-page-numbers)
(not (done-link-page-numbers))) (not (done-link-page-numbers)))
@ -308,7 +308,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 "bigtabular") "\n\\\\" "") "" ; (if (equal? tableform "bigtabular") "\n\\\\" "")
tableform))))) tableform)))))
null) null)

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

@ -26,7 +26,7 @@
void-const undefined-const void-const undefined-const
math) math)
(define PLaneT "PLaneT") (define PLaneT (make-element "planetName" '("PLaneT")))
(define etc "etc.") ; so we can fix the latex space, one day (define etc "etc.") ; so we can fix the latex space, one day

3
collects/scribble/scribble.tex
View File

@ -70,6 +70,7 @@
\newcommand{\imageleft}[1]{} % drop it \newcommand{\imageleft}[1]{} % drop it
\renewcommand{\smaller}[1]{\textsmaller{#1}} \renewcommand{\smaller}[1]{\textsmaller{#1}}
\newcommand{\refpara}[1]{\marginpar{\raggedright \footnotesize #1}} \newcommand{\refpara}[1]{\marginpar{\raggedright \footnotesize #1}}
\newcommand{\planetName}[1]{PLane$\!$T}
\newcommand{\titleAndEmptyVersion}[2]{\title{#1}\maketitle} \newcommand{\titleAndEmptyVersion}[2]{\title{#1}\maketitle}
\newcommand{\titleAndVersion}[2]{\title{#1\\{\normalsize Version #2}}\maketitle} \newcommand{\titleAndVersion}[2]{\title{#1\\{\normalsize Version #2}}\maketitle}
@ -89,6 +90,8 @@
\newenvironment{bigtabular}{\begin{longtable}}{\end{longtable}\vspace{-3ex}} \newenvironment{bigtabular}{\begin{longtable}}{\end{longtable}\vspace{-3ex}}
\newcommand{\bigtabline}{\vspace{-2ex}} \newcommand{\bigtabline}{\vspace{-2ex}}
\newcommand{\SecRef}[2]{\S#1 ``#2''}
\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}}