diff options
author | John MacFarlane <fiddlosopher@gmail.com> | 2012-03-29 11:09:48 -0400 |
---|---|---|
committer | John MacFarlane <fiddlosopher@gmail.com> | 2012-03-29 11:10:10 -0400 |
commit | 2f535ceda3ab02605f5b19dafd8976240b1b5d83 (patch) | |
tree | 06378a34e5a68956b26945d8286a48bffe94acf9 /src/Text/Pandoc | |
parent | b50d01aa3294fe18349fd0e7f8fe052b1c3b655c (diff) | |
download | pandoc-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.hs | 5 |
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] |