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

commit e296df047113e642425c40293050f281b52dd226
parent c8a8d37408bb8eb150c1c38d1831b64cd0f3bf20
Author: Matthew Flatt <mflatt@racket-lang.org>
Date:   Mon,  5 Jan 2009 12:06:33 +0000

fix problem with gif->png suffix change; fix ToC when a subsection has a tag prefix

svn: r13010

original commit: 332461c30e5d9188d4e292bc8231b0bdd1b7b2c1

Diffstat:
M
collects/scribble/base-render.ss
 | 
14
++++++++++----
M
collects/scribble/latex-render.ss
 | 
5
+++--

2 files changed, 13 insertions(+), 6 deletions(-)
diff --git a/collects/scribble/base-render.ss b/collects/scribble/base-render.ss
@@ -443,7 +443,8 @@
                                                (part-collected-info part ri))))
                                    #t
                                    quiet
-                                   depth)))
+                                   depth
+                                   null)))
 
     (define/public (table-of-contents part ri)
       (do-table-of-contents part ri -1 not +inf.0))
@@ -456,14 +457,17 @@
     (define/public (quiet-table-of-contents part ri)
       (do-table-of-contents part ri 1 (lambda (x) #t) +inf.0))
 
-    (define/private (generate-toc part ri base-len skip? quiet depth)
+    (define/private (generate-toc part ri base-len skip? quiet depth prefixes)
       (let* ([number (collected-info-number (part-collected-info part ri))]
+             [prefixes (if (part-tag-prefix part)
+                           (cons (part-tag-prefix part) prefixes)
+                           prefixes)]
              [subs
               (if (and (quiet (and (part-style? part 'quiet)
                                    (not (= base-len (sub1 (length number))))))
                        (positive? depth))
                   (apply append (map (lambda (p)
-                                       (generate-toc p ri base-len #f quiet (sub1 depth)))
+                                       (generate-toc p ri base-len #f quiet (sub1 depth) prefixes))
                                      (part-parts part)))
                   null)])
         (if skip?
@@ -485,7 +489,9 @@
                                    number
                                    (list (make-element 'hspace '(" "))))
                                   (or (part-title-content part) '("???")))
-                                 (car (part-tags part))))))))
+                                 (for/fold ([t (car (part-tags part))])
+                                     ([prefix (in-list prefixes)])
+                                   (convert-key prefix t))))))))
                       subs)])
               (if (and (= 1 (length number))
                        (or (not (car number)) ((car number) . > . 1)))
diff --git a/collects/scribble/latex-render.ss b/collects/scribble/latex-render.ss
@@ -199,8 +199,9 @@
                (if (disable-images)
                  (void)
                  (let ([fn (install-file
-                            (main-collects-relative->path
-                             (gif-to-png (image-file-path style))))])
+                            (gif-to-png 
+                             (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)])))