bkyk8rc3zvpnsf5inmcqq4n3k98cv6hj-my-site-hyper-literate-git.test.suzanne.soy-0.0.1

commit a0beff1796ba45742b6a1d93f180dd74ecf92c70
parent 7eab88977b28b857de0b9eddfae6a7967c913bd7
Author: Matthew Flatt <mflatt@racket-lang.org>
Date:   Sun, 22 Feb 2009 16:00:00 +0000

layout improvements

svn: r13790

original commit: cdfc9ffc365bb3efdebdbdda7ccdddf59620c2c9

Diffstat:
M
collects/scribble/latex-render.ss
 | 
8
++++----
M
collects/scribble/private/manual-style.ss
 | 
2
+-
M
collects/scribble/scribble.tex
 | 
3
+++

3 files changed, 8 insertions(+), 5 deletions(-)
diff --git a/collects/scribble/latex-render.ss b/collects/scribble/latex-render.ss
@@ -136,7 +136,7 @@
             (printf "\\label{t:~a}"
                     (t-encode (tag-key (target-element-tag e) ri))))
           (when part-label?
-            (printf "\\S")
+            (printf "\\SecRef{")
             (render-content
              (let ([dest (resolve-get part ri (link-element-tag e))])
                (if dest
@@ -149,7 +149,7 @@
                           '("!!!")))
                  (list "???")))
              part ri)
-            (printf " ``"))
+            (printf "}{"))
           (let ([style (and (element? e)
                             (let ([s (flatten-style (element-style e))])
                               (if (with-attributes? s)
@@ -206,7 +206,7 @@
                            (image-file-scale style) fn)))]
               [else (super render-element e part ri)])))
         (when part-label?
-          (printf "''"))
+          (printf "}"))
         (when (and (link-element? e)
                    (show-link-page-numbers)
                    (not (done-link-page-numbers)))
@@ -308,7 +308,7 @@
                   (loop (cdr flowss) (cdr row-styles)))))
             (unless inline?
               (printf "~a\n\n\\end{~a}\n"
-                      (if (equal? tableform "bigtabular") "\n\\\\" "")
+                      "" ; (if (equal? tableform "bigtabular") "\n\\\\" "")
                       tableform)))))
       null)
 
diff --git a/collects/scribble/private/manual-style.ss b/collects/scribble/private/manual-style.ss
@@ -26,7 +26,7 @@
          void-const undefined-const
          math)
 
-(define PLaneT "PLaneT")
+(define PLaneT (make-element "planetName" '("PLaneT")))
 
 (define etc "etc.") ; so we can fix the latex space, one day
 
diff --git a/collects/scribble/scribble.tex b/collects/scribble/scribble.tex
@@ -70,6 +70,7 @@
 \newcommand{\imageleft}[1]{} % drop it
 \renewcommand{\smaller}[1]{\textsmaller{#1}}
 \newcommand{\refpara}[1]{\marginpar{\raggedright \footnotesize #1}}
+\newcommand{\planetName}[1]{PLane$\!$T}
 
 \newcommand{\titleAndEmptyVersion}[2]{\title{#1}\maketitle}
 \newcommand{\titleAndVersion}[2]{\title{#1\\{\normalsize Version #2}}\maketitle}
@@ -89,6 +90,8 @@
 \newenvironment{bigtabular}{\begin{longtable}}{\end{longtable}\vspace{-3ex}}
 \newcommand{\bigtabline}{\vspace{-2ex}}
 
+\newcommand{\SecRef}[2]{\S#1 ``#2''}
+
 \newcommand{\sectionhidden}[1]{\section{#1}}
 \newcommand{\subsectionhidden}[1]{\subsection{#1}}
 \newcommand{\subsubsectionhidden}[1]{\subsubsection{#1}}