aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc
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/Pandoc
parentb50d01aa3294fe18349fd0e7f8fe052b1c3b655c (diff)
downloadpandoc-2f535ceda3ab02605f5b19dafd8976240b1b5d83.tar.gz
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/Pandoc')
-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]