summaryrefslogtreecommitdiff
path: root/src/Text
diff options
context:
space:
mode:
authorJohn MacFarlane <fiddlosopher@gmail.com>2012-03-29 11:09:48 -0400
committerJohn MacFarlane <fiddlosopher@gmail.com>2012-03-29 11:10:10 -0400
commit2f535ceda3ab02605f5b19dafd8976240b1b5d83 (patch)
tree06378a34e5a68956b26945d8286a48bffe94acf9 /src/Text
parentb50d01aa3294fe18349fd0e7f8fe052b1c3b655c (diff)
Avoid repeated id in section and header in HTML slides.
Previously pandoc would use the same id attribute for the div or section and the header inside it; now the id is omitted from the header if the div or section has it.
Diffstat (limited to 'src/Text')
-rw-r--r--src/Text/Pandoc/Writers/HTML.hs5
1 files changed, 2 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs
index b1fd9c56f..f9bbe8796 100644
--- a/src/Text/Pandoc/Writers/HTML.hs
+++ b/src/Text/Pandoc/Writers/HTML.hs
@@ -264,9 +264,8 @@ elementToHtml slideLevel opts (Sec level num id' title' elements) = do
-- title slides have no content of their own
then filter isSec elements
else elements
- let header'' = if (writerStrictMarkdown opts ||
- writerSectionDivs opts ||
- writerSlideVariant opts == S5Slides)
+ let header'' = if (writerStrictMarkdown opts || writerSectionDivs opts ||
+ writerSlideVariant opts == S5Slides || slide)
then header'
else header' ! prefixedId opts id'
let inNl x = mconcat $ nl opts : intersperse (nl opts) x ++ [nl opts]