aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--html/Ocean.std-theme/ocean.css16
-rw-r--r--src/Haddock/Backends/Xhtml.hs6
2 files changed, 11 insertions, 11 deletions
diff --git a/html/Ocean.std-theme/ocean.css b/html/Ocean.std-theme/ocean.css
index 5276a419..061506ee 100644
--- a/html/Ocean.std-theme/ocean.css
+++ b/html/Ocean.std-theme/ocean.css
@@ -52,10 +52,9 @@ h1 + h2, h2 + h3, h3 + h4, h4 + h5, h5 + h6 {
ul.links {
list-style: none;
text-align: left;
- position: absolute;
- right: 5px;
- top: 5px;
+ float: right;
display: inline-table;
+ margin-left: 1em;
}
ul.links li {
@@ -65,7 +64,9 @@ ul.links li {
padding: 0;
}
-ul.links li a { padding: 5px 10px; }
+ul.links li a {
+ padding: 0.2em 0.5em;
+}
.hide { display: none; }
.show { display: inherit; }
@@ -138,7 +139,7 @@ img.coll {
background: rgb(41,56,69);
border-top: 5px solid rgb(78,98,114);
color: #ddd;
- padding: 5px;
+ padding: 0.2em;
position: relative;
text-align: left;
}
@@ -170,9 +171,8 @@ dl.info {
font-size: 75%;
color: rgb(78,98,114);
background-color: #fff;
- max-width: 20em;
- margin-top: -6em;
- margin-bottom: 1em;
+ max-width: 40%;
+ margin: -1em 0 1em 1em;
}
dl.info dt {
diff --git a/src/Haddock/Backends/Xhtml.hs b/src/Haddock/Backends/Xhtml.hs
index c9eaf71b..6fc0ffeb 100644
--- a/src/Haddock/Backends/Xhtml.hs
+++ b/src/Haddock/Backends/Xhtml.hs
@@ -167,13 +167,13 @@ bodyHtml doctitle iface themes
pageContent =
body << [
divPackageHeader << [
- nonEmpty sectionName << doctitle,
unordList (catMaybes [
srcButton maybe_source_url iface,
wikiButton maybe_wiki_url (ifaceMod `fmap` iface),
contentsButton maybe_contents_url,
indexButton maybe_index_url
- ] ++ [styleMenu themes]) ! [theclass "links"]
+ ] ++ [styleMenu themes]) ! [theclass "links"],
+ nonEmpty sectionName << doctitle
],
divContent << pageContent,
divFooter << paragraph << (
@@ -453,7 +453,7 @@ ppHtmlModule odir doctitle themes
bodyHtml doctitle (Just iface) themes
maybe_source_url maybe_wiki_url
maybe_contents_url maybe_index_url << [
- divModuleHeader << (sectionName << mdl_str +++ moduleInfo iface),
+ divModuleHeader << (moduleInfo iface +++ (sectionName << mdl_str)),
ifaceToHtml maybe_source_url maybe_wiki_url iface unicode
]