diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2015-11-16 09:57:28 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2015-11-16 09:57:28 -0800 |
| commit | 74cf52728e4c0adfadd436bd7cb2cc46275eb484 (patch) | |
| tree | f2c5d112f4732cb2a9fe5a5aa7ac7aae6f9fb4d2 | |
| parent | e44149931ef8db3b42614e47a316d3ba27d1e337 (diff) | |
| download | pandoc-74cf52728e4c0adfadd436bd7cb2cc46275eb484.tar.gz | |
HTML writer: Include `example` class for example lists.
Closes #2524.
| -rw-r--r-- | src/Text/Pandoc/Writers/HTML.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs index 3a79897d6..528c4e2b8 100644 --- a/src/Text/Pandoc/Writers/HTML.hs +++ b/src/Text/Pandoc/Writers/HTML.hs @@ -544,6 +544,9 @@ blockToHtml opts (OrderedList (startnum, numstyle, _) lst) = do let attribs = (if startnum /= 1 then [A.start $ toValue startnum] else []) ++ + (if numstyle == Example + then [A.class_ "example"] + else []) ++ (if numstyle /= DefaultStyle then if writerHtml5 opts then [A.type_ $ |