From 20cf4e47b069f76839b4223cbfecbf96875aadb4 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Tue, 17 Dec 2019 11:09:00 -0800
Subject: Improved makeSections so we don't get doubled attributes.
Closes #5986.
---
src/Text/Pandoc/Writers/HTML.hs | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
(limited to 'src/Text/Pandoc/Writers')
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 ]
--
cgit v1.2.3