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

commit 0d5290559316ea72a70c502a985627d34a2fbbf9
parent ac6aeb38fe5cef3ae316b1fcf5143a45500a1bbb
Author: Matthew Flatt <mflatt@racket-lang.org>
Date:   Tue, 15 Jan 2008 14:20:49 +0000

more mzc scribblings; scribbled HTML layout tweaks

svn: r8335

original commit: e3af8a5a5254d35bdcc706916bbeb79e72ac3ecf

Diffstat:
M
collects/scribble/html-render.ss
 | 
7
+++++--
M
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
@@ -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
@@ -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;