diff options
author | John MacFarlane <jgm@berkeley.edu> | 2011-07-06 03:03:05 -0700 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2011-07-06 17:24:40 -0700 |
commit | ea0a09aef1632cd6721ede8b8e3e908660bc4619 (patch) | |
tree | 30a21c1ff4051731179ffe4684a1b2639719fccd /src/Text/Pandoc/Writers | |
parent | 4b31e4f5cf071c0559a5af13183158213e8a1af8 (diff) | |
download | pandoc-ea0a09aef1632cd6721ede8b8e3e908660bc4619.tar.gz |
Fixed bug in slidy writer: unclosed div tag.
Diffstat (limited to 'src/Text/Pandoc/Writers')
-rw-r--r-- | src/Text/Pandoc/Writers/HTML.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs index 6144e43db..93d90bea0 100644 --- a/src/Text/Pandoc/Writers/HTML.hs +++ b/src/Text/Pandoc/Writers/HTML.hs @@ -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 |