From 0190c2702dfc403f889572ebc1b91fcd6e95bb8d Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 2 Jul 2012 09:00:08 -0600
Subject: [PATCH] scribble: adjust `subsubsub*section' font size

Closes PR 12868

original commit: b5189c823216fda8ea68b7254a2a4df5cc4ee5f3
---
 collects/scribble/base.rkt     | 2 +-
 collects/scribble/scribble.css | 5 +++++
 collects/scribble/scribble.tex | 2 ++
 3 files changed, 8 insertions(+), 1 deletion(-)

diff --git a/collects/scribble/base.rkt b/collects/scribble/base.rkt
index 50eb08c1..ea656d36 100644
--- a/collects/scribble/base.rkt
+++ b/collects/scribble/base.rkt
@@ -107,7 +107,7 @@
   (let ([content (decode-content str)])
     (make-paragraph plain 
                     (list
-                     (make-element 'bold
+                     (make-element "SSubSubSubSection"
                                    (if tag
                                        (make-target-element #f content `(part ,tag))
                                        content))))))
diff --git a/collects/scribble/scribble.css b/collects/scribble/scribble.css
index 050ef74a..3e66f9c6 100644
--- a/collects/scribble/scribble.css
+++ b/collects/scribble/scribble.css
@@ -38,6 +38,11 @@ h3, h4, h5, h6, h7, h8 {
   margin-bottom: 0.5em;
 }
 
+.SSubSubSubSection {
+  font-weight: bold;
+  font-size: 0.83em; /* should match h5; from HTML 4 reference */
+}
+
 /* Needed for browsers like Opera, and eventually for HTML 4 conformance.
    This means that multiple paragraphs in a table element do not have a space
    between them. */
diff --git a/collects/scribble/scribble.tex b/collects/scribble/scribble.tex
index 2e10c840..09016ba8 100644
--- a/collects/scribble/scribble.tex
+++ b/collects/scribble/scribble.tex
@@ -154,6 +154,8 @@
 \newcommand{\subsectionhidden}[1]{\subsection{#1}}
 \newcommand{\subsubsectionhidden}[1]{\subsubsection{#1}}
 
+\newcommand{\SSubSubSubSection}[1]{{\bf #1}}
+
 % For hidden parts with an empty title:
 \newcommand{\notitlesection}{\vspace{2ex}\phantomsection\noindent}