diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2019-12-17 11:09:00 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2019-12-17 11:59:52 -0800 |
| commit | 20cf4e47b069f76839b4223cbfecbf96875aadb4 (patch) | |
| tree | c809a41a5666c2a74a24d09fe3f5979e0402656f /src/Text/Pandoc/Writers | |
| parent | 11bab77120010f205452e899c0d93d638638261a (diff) | |
| download | pandoc-20cf4e47b069f76839b4223cbfecbf96875aadb4.tar.gz | |
Improved makeSections so we don't get doubled attributes.
Closes #5986.
Diffstat (limited to 'src/Text/Pandoc/Writers')
| -rw-r--r-- | src/Text/Pandoc/Writers/HTML.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs index 4d8a6b961..784606dd5 100644 --- a/src/Text/Pandoc/Writers/HTML.hs +++ b/src/Text/Pandoc/Writers/HTML.hs @@ -663,7 +663,8 @@ blockToHtml opts (Div (ident, "section":dclasses, dkvs) (z:zs) -> ([],z ++ concatMap inDiv zs) titleContents <- blockListToHtml opts titleBlocks innerContents <- blockListToHtml opts innerSecs - let classes' = ["title-slide" | titleSlide] ++ ["slide" | slide] ++ + let classes' = ordNub $ + ["title-slide" | titleSlide] ++ ["slide" | slide] ++ ["section" | (slide || writerSectionDivs opts) && not html5 ] ++ ["level" <> tshow level | slide || writerSectionDivs opts ] |