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

commit 57064d288572638fc4a10b1ac668c6933580be09
parent 06966ab71a5abe5489e515d8095ff9deb49a8769
Author: Matthew Flatt <mflatt@racket-lang.org>
Date:   Fri, 11 Apr 2008 04:05:38 +0000

fix latex output with image in section title

svn: r9253

original commit: db3c6931c85b272cad69b21ed56525e8c28ed9ae

Diffstat:
M
collects/scribble/latex-render.ss
 | 
24
+++++++++++++++---------

1 file changed, 15 insertions(+), 9 deletions(-)
diff --git a/collects/scribble/latex-render.ss b/collects/scribble/latex-render.ss
@@ -11,6 +11,7 @@
   (define current-table-mode (make-parameter #f))
   (define rendering-tt (make-parameter #f))
   (define show-link-page-numbers (make-parameter #f))
+  (define disable-images (make-parameter #f))
 
   (define-struct (toc-paragraph paragraph) ())
 
@@ -54,7 +55,7 @@
               (printf "\\twocolumn\n\\parskip=0pt\n\\addcontentsline{toc}{section}{Index}\n"))
             (let ([no-number? (and (pair? number)
                                    (not (car number)))])
-              (printf "\\~a~a~a~a{"
+              (printf "\\~a~a~a"
                       (case (length number)
                         [(0 1) "sectionNewpage\n\n\\section"]
                         [(2) "subsection"]
@@ -66,10 +67,13 @@
                           "")
                       (if no-number?
                           "*"
-                          "")
-                      (if (part-style? d 'hidden)
-                          ""
-                          "[]")))
+                          ""))
+              (when (not (part-style? d 'hidden))
+                (printf "[")
+                (parameterize ([disable-images #t])
+                  (render-content (part-title-content d) d ri))
+                (printf "]")))
+            (printf "{")
             (render-content (part-title-content d) d ri)
             (printf "}")
             (when (part-style? d 'index)
@@ -166,10 +170,12 @@
                                             (/ (cadddr style) 255.0))))
                       #f)]
                [(image-file? style) 
-                (let ([fn (install-file 
-                           (main-collects-relative->path 
-                            (image-file-path style)))])
-                  (printf "\\includegraphics[scale=~a]{~a}" (image-file-scale style) fn))]
+                (if (disable-images)
+                    (void)
+                    (let ([fn (install-file 
+                               (main-collects-relative->path 
+                                (image-file-path style)))])
+                      (printf "\\includegraphics[scale=~a]{~a}" (image-file-scale style) fn)))]
                [else (super render-element e part ri)])))
           (when part-label?
             (printf "''"))