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

commit 5c0c67f59df57a3a1a704e9e044a6b5b94122d66
parent c0575d104b67cd07b81eaf3a808e185e84885f61
Author: Eli Barzilay <eli@racket-lang.org>
Date:   Fri,  4 Jul 2008 01:55:03 +0000

improve title link in tocset (use tocviewselflink for the title too)

svn: r10593

original commit: a32e251f97d1381c56ba7f7349851ba8e87cff81

Diffstat:
M
collects/scribble/html-render.ss
 | 
28
++++++++++++++++------------
M
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
@@ -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
@@ -175,6 +175,7 @@ table td {
 }
 
 .tocviewselflink {
+  text-decoration: underline;
   color: blue;
 }