aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMark Lentczner <markl@glyphic.com>2010-07-18 05:48:39 +0000
committerMark Lentczner <markl@glyphic.com>2010-07-18 05:48:39 +0000
commitb143d90c46e01a3c2724003c4805110fab4b224e (patch)
treea7a2dbdcd16471ab00f4ad22f6f2c9677a3c4144
parent8b1faf5946561e8c4332187dd25f3b16b6d6c5ef (diff)
added content div to main pages
-rw-r--r--html/shaddock.css7
-rw-r--r--src/Haddock/Backends/Xhtml.hs2
-rw-r--r--src/Haddock/Backends/Xhtml/Layout.hs5
3 files changed, 9 insertions, 5 deletions
diff --git a/html/shaddock.css b/html/shaddock.css
index 8ab3e57d..7928c832 100644
--- a/html/shaddock.css
+++ b/html/shaddock.css
@@ -59,10 +59,13 @@ body {
font-family: DroidSerif, Georgia, serif;
}
-div {
+div#content {
padding: 0 30px;
}
-
+
+div#module-header {
+ margin: 0 -30px;
+}
a:link { color: #5200A3; text-decoration: none }
diff --git a/src/Haddock/Backends/Xhtml.hs b/src/Haddock/Backends/Xhtml.hs
index bac24479..24499f39 100644
--- a/src/Haddock/Backends/Xhtml.hs
+++ b/src/Haddock/Backends/Xhtml.hs
@@ -224,7 +224,7 @@ bodyHtml doctitle iface
indexButton maybe_index_url
] ++ [styleMenu]) ! [theclass "links"]
],
- pageContent,
+ divContent << pageContent,
divFooter << paragraph << (
"Produced by " +++
(anchor ! [href projectUrl] << toHtml projectName) +++
diff --git a/src/Haddock/Backends/Xhtml/Layout.hs b/src/Haddock/Backends/Xhtml/Layout.hs
index 3afdd55d..0b4af0c0 100644
--- a/src/Haddock/Backends/Xhtml/Layout.hs
+++ b/src/Haddock/Backends/Xhtml/Layout.hs
@@ -13,7 +13,7 @@
module Haddock.Backends.Xhtml.Layout (
miniBody,
- divPackageHeader, divModuleHeader, divFooter,
+ divPackageHeader, divContent, divModuleHeader, divFooter,
divTableOfContents, divDescription, divSynposis, divInterface,
divIndex, divAlphabet, divModuleList,
@@ -58,12 +58,13 @@ sectionName :: Html -> Html
sectionName = paragraph ! [theclass "caption"]
-divPackageHeader, divModuleHeader, divFooter,
+divPackageHeader, divContent, divModuleHeader, divFooter,
divTableOfContents, divDescription, divSynposis, divInterface,
divIndex, divAlphabet, divModuleList
:: Html -> Html
divPackageHeader = sectionDiv "package-header"
+divContent = sectionDiv "content"
divModuleHeader = sectionDiv "module-header"
divFooter = sectionDiv "footer"
divTableOfContents = sectionDiv "table-of-contents"