From 04e6d902c804c9ef99aec497f8366b700e3f1690 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sun, 18 May 2008 16:12:25 +0000
Subject: [PATCH] enable extra line breaking for ToC display

svn: r9879

original commit: 2662eff0b0d4aa0affb94fb72cc78e6abd4f57bd
---
 collects/scribble/html-render.ss | 61 ++++++++++++++++----------------
 1 file changed, 31 insertions(+), 30 deletions(-)

diff --git a/collects/scribble/html-render.ss b/collects/scribble/html-render.ss
index 94b595d2..c30ef37c 100644
--- a/collects/scribble/html-render.ss
+++ b/collects/scribble/html-render.ss
@@ -326,36 +326,37 @@
               (loop p (if (reveal-subparts? d) mine d))
               (values d mine)))))
       (define toc-content
-        (map (lambda (pp)
-               (let ([p (car pp)]
-                     [show-number? (cdr pp)])
-                 `(tr
-                   (td ([align "right"])
-                       ,@(if show-number?
-                           (format-number (collected-info-number (part-collected-info p ri))
-                                          '((tt nbsp)))
-                           '("-" nbsp)))
-                   (td
-                    (a ([href ,(let ([dest (resolve-get p ri (car (part-tags p)))])
-                                 (format "~a~a~a"
-                                         (from-root (relative->path (dest-path dest))
-                                                    (get-dest-directory))
-                                         (if (dest-page? dest) "" "#")
-                                         (if (dest-page? dest)
-                                           ""
-                                           (anchor-name (dest-anchor dest)))))]
-                        [class ,(if (eq? p mine)
-                                  "tocviewselflink"
-                                  "tocviewlink")])
-                       ,@(render-content (or (part-title-content p) '("???"))
-                                         d ri))))))
-             (let loop ([l (map (lambda (v) (cons v #t)) (part-parts top))])
-               (cond [(null? l) null]
-                     [(reveal-subparts? (caar l))
-                      (cons (car l) (loop (append (map (lambda (v) (cons v #f))
-                                                       (part-parts (caar l)))
-                                                  (cdr l))))]
-                     [else (cons (car l) (loop (cdr l)))]))))
+        (parameterize ([extra-breaking? #t])
+          (map (lambda (pp)
+                 (let ([p (car pp)]
+                       [show-number? (cdr pp)])
+                   `(tr
+                     (td ([align "right"])
+                         ,@(if show-number?
+                               (format-number (collected-info-number (part-collected-info p ri))
+                                              '((tt nbsp)))
+                               '("-" nbsp)))
+                     (td
+                      (a ([href ,(let ([dest (resolve-get p ri (car (part-tags p)))])
+                                   (format "~a~a~a"
+                                           (from-root (relative->path (dest-path dest))
+                                                      (get-dest-directory))
+                                           (if (dest-page? dest) "" "#")
+                                           (if (dest-page? dest)
+                                               ""
+                                               (anchor-name (dest-anchor dest)))))]
+                          [class ,(if (eq? p mine)
+                                      "tocviewselflink"
+                                      "tocviewlink")])
+                         ,@(render-content (or (part-title-content p) '("???"))
+                                           d ri))))))
+               (let loop ([l (map (lambda (v) (cons v #t)) (part-parts top))])
+                 (cond [(null? l) null]
+                       [(reveal-subparts? (caar l))
+                        (cons (car l) (loop (append (map (lambda (v) (cons v #f))
+                                                         (part-parts (caar l)))
+                                                    (cdr l))))]
+                       [else (cons (car l) (loop (cdr l)))])))))
       `((div ([class "tocset"])
           ,@(let* ([content (render-content
                              (or (part-title-content top) '("???"))