HTML writer: Include `example` class for example lists.
Closes #2524.
commit74cf52728e4c0adfadd436bd7cb2cc46275eb484
authorJohn MacFarlane <jgm@berkeley.edu>
dateMon 16 Nov 2015, 09:57 (11 years ago)
parente441499
src/Text/Pandoc/Writers/HTML.hs+3
@@ -544,6 +544,9 @@ blockToHtml opts (OrderedList (startnum, numstyle, _) lst) = do
544544 let attribs = (if startnum /= 1
545545 then [A.start $ toValue startnum]
546546 else []) ++
547+ (if numstyle == Example
548+ then [A.class_ "example"]
549+ else []) ++
547550 (if numstyle /= DefaultStyle
548551 then if writerHtml5 opts
549552 then [A.type_ $