diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2019-04-20 22:24:24 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2019-04-20 22:24:24 -0700 |
| commit | 6699471484355d25a426b276f88e21311049fac5 (patch) | |
| tree | 3f42ac8ee8b43311037df0548475f78d2fd087e5 /src/Text/Pandoc | |
| parent | 66ffe1831e6c9416e81d6da40ae73e3006bab702 (diff) | |
| download | pandoc-6699471484355d25a426b276f88e21311049fac5.tar.gz | |
HTML writer: Add class="heading" to level 7+ Headers...
rendered as p tags. Closes #5457.
Diffstat (limited to 'src/Text/Pandoc')
| -rw-r--r-- | src/Text/Pandoc/Writers/HTML.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |