From 5c0c67f59df57a3a1a704e9e044a6b5b94122d66 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Fri, 4 Jul 2008 01:55:03 +0000
Subject: [PATCH] improve title link in tocset (use tocviewselflink for the
 title too)

svn: r10593

original commit: a32e251f97d1381c56ba7f7349851ba8e87cff81
---
 collects/scribble/html-render.ss | 28 ++++++++++++++++------------
 collects/scribble/scribble.css   |  1 +
 2 files changed, 17 insertions(+), 12 deletions(-)

diff --git a/collects/scribble/html-render.ss b/collects/scribble/html-render.ss
index 6d951f5f..4b5b6fa7 100644
--- a/collects/scribble/html-render.ss
+++ b/collects/scribble/html-render.ss
@@ -386,21 +386,25 @@
           ,@(if (part-style? d 'no-toc)
               null
               (let* ([toc-content (toc-content)]
-                     [content (render-content
-                               (or (part-title-content top) '("???"))
-                               d ri)]
-                     [content (if (null? toc-content)
-                                content
-                                `((a ([href "index.html"] [class "tocviewlink"])
-                                    ,@content)))])
-                `((div ([class "tocview"])
-                    (div ([class "tocviewtitle"]) ,@content)
-                    (div nbsp)
-                    ,@(if (null? toc-content)
+                     [toc-content
+                      (if (null? toc-content)
                         '()
                         (toc-wrap
                          `(table ([class "tocviewlist"] [cellspacing "0"])
-                            ,@toc-content)))))))
+                            ,@toc-content)))]
+                     [title-content
+                      `(div ([class "tocviewtitle"])
+                         (a ([href "index.html"]
+                             [class ,(if (eq? mine top)
+                                       "tocviewselflink"
+                                       "tocviewlink")])
+                           ,@(render-content (or (part-title-content top)
+                                                 '("???"))
+                                             d ri)))])
+                `((div ([class "tocview"])
+                    ,title-content
+                    (div nbsp)
+                    ,@toc-content))))
           ,@(render-onthispage-contents
              d ri top (if (part-style? d 'no-toc) "tocview" "tocsub"))
           ,@(parameterize ([extra-breaking? #t])
diff --git a/collects/scribble/scribble.css b/collects/scribble/scribble.css
index c172393f..4dcae6ab 100644
--- a/collects/scribble/scribble.css
+++ b/collects/scribble/scribble.css
@@ -175,6 +175,7 @@ table td {
 }
 
 .tocviewselflink {
+  text-decoration: underline;
   color: blue;
 }