From 6699471484355d25a426b276f88e21311049fac5 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Sat, 20 Apr 2019 22:24:24 -0700 Subject: HTML writer: Add class="heading" to level 7+ Headers... rendered as p tags. Closes #5457. --- src/Text/Pandoc/Writers/HTML.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs index 206a8f5d4..2a8835263 100644 --- a/src/Text/Pandoc/Writers/HTML.hs +++ b/src/Text/Pandoc/Writers/HTML.hs @@ -836,7 +836,7 @@ blockToHtml opts (Header level attr@(_,classes,_) lst) = do 4 -> H.h4 contents' 5 -> H.h5 contents' 6 -> H.h6 contents' - _ -> H.p contents' + _ -> H.p ! A.class_ "heading" $ contents' blockToHtml opts (BulletList lst) = do contents <- mapM (listItemToHtml opts) lst unordList opts contents -- cgit v1.2.3