Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

HTML writer: Put line breaks in section divs.

Browse source
This commit is contained in:
John MacFarlane 2011-02-05 11:27:25 -08:00
parent cbe162ecbe
commit 79a0fbe146
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/Text/Pandoc/Writers/HTML.hs
View file

@ -245,9 +245,11 @@ elementToHtml opts (Sec level num id' title' elements) = do
else if writerSectionDivs opts else if writerSectionDivs opts
then if writerHtml5 opts then if writerHtml5 opts
then tag "section" ! [prefixedId opts id'] then tag "section" ! [prefixedId opts id']
<< intersperse (nl opts) stuff << (nl opts : (intersperse (nl opts) stuff
++ [nl opts]))
else thediv ! [prefixedId opts id'] << else thediv ! [prefixedId opts id'] <<
intersperse (nl opts) stuff (nl opts : (intersperse (nl opts) stuff
++ [nl opts]))
else toHtmlFromList $ intersperse (nl opts) stuff else toHtmlFromList $ intersperse (nl opts) stuff
-- | Convert list of Note blocks to a footnote <div>. -- | Convert list of Note blocks to a footnote <div>.