Fixed bug in slidy writer: unclosed div tag.

This commit is contained in:
John MacFarlane 2011-07-06 03:03:05 -07:00
parent 4b31e4f5cf
commit ea0a09aef1

View file

@ -229,7 +229,7 @@ elementToListItem opts (Sec _ num id' headerText subsecs) = do
-- | Convert an Element to Html.
elementToHtml :: WriterOptions -> Element -> State WriterState Html
elementToHtml opts (Blk HorizontalRule) | writerSlideVariant opts /= NoSlides =
return $ primHtml "</div>" +++ nl opts +++ primHtml "<div class=\"slide\""
return $ primHtml "</div>" +++ nl opts +++ primHtml "<div class=\"slide\">"
elementToHtml opts (Blk block) = blockToHtml opts block
elementToHtml opts (Sec level num id' title' elements) = do
modify $ \st -> st{stSecNum = num} -- update section number