diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2011-07-23 12:04:31 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2011-07-23 12:04:31 -0700 |
| commit | 26418b7d14ce04a7386392388d2a3cbded205705 (patch) | |
| tree | 683354873d9d27f7fc732b273c21a2ec98fef3de /src/Text/Pandoc/Writers | |
| parent | 12110f3282b78d81e255b3c348ad311b7f08fdc9 (diff) | |
| download | pandoc-26418b7d14ce04a7386392388d2a3cbded205705.tar.gz | |
HTML writer/templates: Made TOC more customizable.
The container for the TOC is now in the template, so users
can insert a header or other styling. Thanks to Bruce D'Arcus
for the suggestion.
Diffstat (limited to 'src/Text/Pandoc/Writers')
| -rw-r--r-- | src/Text/Pandoc/Writers/HTML.hs | 13 |
1 files changed, 4 insertions, 9 deletions
diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs index ae94f7696..4c82f2c85 100644 --- a/src/Text/Pandoc/Writers/HTML.hs +++ b/src/Text/Pandoc/Writers/HTML.hs @@ -169,7 +169,9 @@ inTemplate opts tit auths date toc body' newvars = [ ("body", dropWhile (=='\n') $ showHtmlFragment body') , ("pagetitle", topTitle') , ("title", dropWhile (=='\n') $ showHtmlFragment tit) - , ("date", date') ] ++ + , ("date", date') + , ("idprefix", writerIdentifierPrefix opts) + ] ++ [ ("html5","true") | writerHtml5 opts ] ++ (case toc of Just t -> [ ("toc", showHtmlFragment t)] @@ -198,14 +200,7 @@ tableOfContents opts sects = do let tocList = catMaybes contents return $ if null tocList then Nothing - else Just $ - if writerHtml5 opts - then (tag "nav" ! [prefixedId opts' "TOC"] $ - nl opts +++ unordList opts tocList +++ nl opts) - +++ nl opts - else (thediv ! [prefixedId opts' "TOC"] $ - nl opts +++ unordList opts tocList +++ nl opts) - +++ nl opts + else Just $ unordList opts tocList -- | Convert section number to string showSecNum :: [Int] -> String |