From b143d90c46e01a3c2724003c4805110fab4b224e Mon Sep 17 00:00:00 2001 From: Mark Lentczner Date: Sun, 18 Jul 2010 05:48:39 +0000 Subject: added content div to main pages --- html/shaddock.css | 7 +++++-- src/Haddock/Backends/Xhtml.hs | 2 +- src/Haddock/Backends/Xhtml/Layout.hs | 5 +++-- 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" -- cgit v1.2.3