From 74cf52728e4c0adfadd436bd7cb2cc46275eb484 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Mon, 16 Nov 2015 09:57:28 -0800
Subject: HTML writer: Include `example` class for example lists.

Closes #2524.
---
 src/Text/Pandoc/Writers/HTML.hs | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'src')

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_ $
-- 
cgit v1.2.3