aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/Writers/Docbook.hs
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2010-03-24 10:51:38 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2010-03-27 10:24:18 -0700
commit6972c0b5b040f3de998d936e6ddf8580ecfa7b30 (patch)
treeb0f8228f7d5bb0a2704dc00122ce98f30607db7e /src/Text/Pandoc/Writers/Docbook.hs
parentdb31e066932461b0d1a86921ebf08c55c48a3f81 (diff)
downloadpandoc-6972c0b5b040f3de998d936e6ddf8580ecfa7b30.tar.gz
Implemented @ for sequentially numbered examples.
Also implemented (@label) for example labels and references.
Diffstat (limited to 'src/Text/Pandoc/Writers/Docbook.hs')
-rw-r--r--src/Text/Pandoc/Writers/Docbook.hs1
1 files changed, 1 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Writers/Docbook.hs b/src/Text/Pandoc/Writers/Docbook.hs
index 3abed1610..5223259eb 100644
--- a/src/Text/Pandoc/Writers/Docbook.hs
+++ b/src/Text/Pandoc/Writers/Docbook.hs
@@ -154,6 +154,7 @@ blockToDocbook opts (OrderedList (start, numstyle, _) (first:rest)) =
let attribs = case numstyle of
DefaultStyle -> []
Decimal -> [("numeration", "arabic")]
+ Example -> [("numeration", "arabic")]
UpperAlpha -> [("numeration", "upperalpha")]
LowerAlpha -> [("numeration", "loweralpha")]
UpperRoman -> [("numeration", "upperroman")]