From 0d5290559316ea72a70c502a985627d34a2fbbf9 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 15 Jan 2008 14:20:49 +0000
Subject: [PATCH] more mzc scribblings; scribbled HTML layout tweaks

svn: r8335

original commit: e3af8a5a5254d35bdcc706916bbeb79e72ac3ecf
---
 collects/scribble/html-render.ss | 7 +++++--
 collects/scribble/scribble.css   | 8 +++++++-
 2 files changed, 12 insertions(+), 3 deletions(-)

diff --git a/collects/scribble/html-render.ss b/collects/scribble/html-render.ss
index 8de6dccb..2af395e0 100644
--- a/collects/scribble/html-render.ss
+++ b/collects/scribble/html-render.ss
@@ -277,7 +277,8 @@
                                                                         flows)))
                                                    (table-flowss table))))])
                              (apply append (map flow-element-targets (flow-paragraphs (part-flow d)))))
-                           (map flatten (part-parts d)))))])
+                           (map flatten (part-parts d)))))]
+                   [any-parts? (ormap part? ps)])
               (if (null? ps)
                   null
                   `((div ((class "tocsub"))
@@ -303,7 +304,9 @@
                                                                (format "#~a" (anchor-name (tag-key (target-element-tag p) ri)))))
                                                     (class ,(if (part? p)
                                                                 "tocsubseclink"
-                                                                "tocsublink")))
+                                                                (if any-parts?
+                                                                    "tocsubnonseclink"
+                                                                    "tocsublink"))))
                                                    ,@(if (part? p)
                                                          (render-content (or (part-title-content p) '("???")) d ri)
                                                          (render-content (element-content p) d ri)))))))))
diff --git a/collects/scribble/scribble.css b/collects/scribble/scribble.css
index 55e2b024..31805e7c 100644
--- a/collects/scribble/scribble.css
+++ b/collects/scribble/scribble.css
@@ -137,7 +137,8 @@ font-weight: bold;
 
 .tocsub {
   text-align: left;
-  background-color: #DCF5F5;
+  margin-top: 0.5em;
+  background-color: #F5F5F5;
 }
 
 .tocviewtitle {
@@ -182,6 +183,11 @@ font-weight: bold;
   text-decoration: none;
 }
 
+.tocsubnonseclink {
+  text-decoration: none;
+  padding-left: 0.5em;
+}
+
 .tocsubtitle {
   font-size: 80%;
   font-style: italic;