@@ -163,12 +163,18 @@ blockToHtml opts (BulletList lst) =
163 let attribs = if writerIncremental opts
163 let attribs = if writerIncremental opts
164 then [theclass "incremental"]
164 then [theclass "incremental"]
165 else [] in
165 else [] in
166− ulist ! attribs $ toHtmlFromList $ map (listItemToHtml opts) lst
166+ unordList ! attribs $ map (blockListToHtml opts) lst
167blockToHtml opts (OrderedList lst) =
167blockToHtml opts (OrderedList lst) =
168 let attribs = if writerIncremental opts
168 let attribs = if writerIncremental opts
169 then [theclass "incremental"]
169 then [theclass "incremental"]
170 else [] in
170 else [] in
171− olist ! attribs $ toHtmlFromList $ map (listItemToHtml opts) lst
171+ ordList ! attribs $ map (blockListToHtml opts) lst
172+blockToHtml opts (DefinitionList lst) =
173+ let attribs = if writerIncremental opts
174+ then [theclass "incremental"]
176+ defList ! attribs $ map (\(term, def) -> (inlineListToHtml opts term,
177+ blockListToHtml opts def)) lst
172blockToHtml opts HorizontalRule = hr
178blockToHtml opts HorizontalRule = hr
173blockToHtml opts (Header level lst) =
179blockToHtml opts (Header level lst) =
174 let contents = inlineListToHtml opts lst in
180 let contents = inlineListToHtml opts lst in
@@ -210,9 +216,9 @@ tableItemToHtml opts tag align' width item =
210 else [] in
216 else [] in
211 tag ! attrib $ toHtmlFromList $ map (blockToHtml opts) item
217 tag ! attrib $ toHtmlFromList $ map (blockToHtml opts) item
213−listItemToHtml :: WriterOptions -> [Block] -> Html
219+blockListToHtml :: WriterOptions -> [Block] -> Html
214−listItemToHtml opts list =
220+blockListToHtml opts list =
215− li $ toHtmlFromList $ map (blockToHtml opts) list
221+ toHtmlFromList $ map (blockToHtml opts) list
217-- | Convert list of Pandoc inline elements to HTML.
223-- | Convert list of Pandoc inline elements to HTML.
218inlineListToHtml :: WriterOptions -> [Inline] -> Html
224inlineListToHtml :: WriterOptions -> [Inline] -> Html