diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2015-01-27 16:56:56 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2015-01-27 16:56:56 -0800 |
| commit | 82c04a28cee407b0fcf56224b6c63d014e2c1c39 (patch) | |
| tree | 7647d5bf3d2f29dc51a24dacd76325f1f79efbf2 /src/Text/Pandoc/Writers/HTML.hs | |
| parent | 4e03796f145d8da84d59c8c272b7640fe1f7eb76 (diff) | |
| download | pandoc-82c04a28cee407b0fcf56224b6c63d014e2c1c39.tar.gz | |
Fixed list-style-type for numbered example lists.
Should be "decimal," not "example." Closes #1902.
Diffstat (limited to 'src/Text/Pandoc/Writers/HTML.hs')
| -rw-r--r-- | src/Text/Pandoc/Writers/HTML.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs index b3a2d264d..955c1b208 100644 --- a/src/Text/Pandoc/Writers/HTML.hs +++ b/src/Text/Pandoc/Writers/HTML.hs @@ -525,7 +525,9 @@ blockToHtml opts (BulletList lst) = do return $ unordList opts contents blockToHtml opts (OrderedList (startnum, numstyle, _) lst) = do contents <- mapM (blockListToHtml opts) lst - let numstyle' = camelCaseToHyphenated $ show numstyle + let numstyle' = case numstyle of + Example -> "decimal" + _ -> camelCaseToHyphenated $ show numstyle let attribs = (if startnum /= 1 then [A.start $ toValue startnum] else []) ++ |