diff options
| author | Mark Lentczner <markl@glyphic.com> | 2010-07-15 23:53:01 +0000 |
|---|---|---|
| committer | Mark Lentczner <markl@glyphic.com> | 2010-07-15 23:53:01 +0000 |
| commit | b67678234917d61b8393fa9b75092bfa2c399ab4 (patch) | |
| tree | f5bdf58b5af5e20ddbfbf33c37b1419a20bd2f9b /src/Haddock/Backends/Xhtml.hs | |
| parent | 3811494e06613f472c28a00ec3de00b50490f143 (diff) | |
added two new themes and rough css switcher
Diffstat (limited to 'src/Haddock/Backends/Xhtml.hs')
| -rw-r--r-- | src/Haddock/Backends/Xhtml.hs | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/src/Haddock/Backends/Xhtml.hs b/src/Haddock/Backends/Xhtml.hs index dc24acbd..c24dec6a 100644 --- a/src/Haddock/Backends/Xhtml.hs +++ b/src/Haddock/Backends/Xhtml.hs @@ -138,16 +138,19 @@ copyFile fromFPath toFPath = copyHtmlBits :: FilePath -> FilePath -> Maybe FilePath -> IO () -copyHtmlBits odir libdir maybe_css = do +copyHtmlBits odir libdir _maybe_css = do let libhtmldir = joinPath [libdir, "html"] + {- css_file = case maybe_css of Nothing -> joinPath [libhtmldir, 'x':cssFile] Just f -> f css_destination = joinPath [odir, cssFile] + -} copyLibFile f = do copyFile (joinPath [libhtmldir, f]) (joinPath [odir, f]) - copyFile css_file css_destination + --copyFile css_file css_destination + mapM_ copyLibFile cssFiles mapM_ copyLibFile [ iconFile, plusFile, minusFile, jsFile, framesFile ] footer :: Html @@ -201,7 +204,7 @@ simpleHeader doctitle maybe_contents_url maybe_index_url wikiButton maybe_wiki_url Nothing, contentsButton maybe_contents_url, indexButton maybe_index_url - ]) ! [theclass "links"] + ] ++ stylePickers) ! [theclass "links"] ) pageHeader :: String -> Interface -> String @@ -217,7 +220,7 @@ pageHeader mdl iface doctitle wikiButton maybe_wiki_url (Just $ ifaceMod iface), contentsButton maybe_contents_url, indexButton maybe_index_url - ]) ! [theclass "links"] + ] ++ stylePickers) ! [theclass "links"] ) +++ divModuleHeader << ( sectionName << mdl +++ |