git.iko.soy/typeable/pandoc
on master help sign in
HTML writer: Put line breaks in section divs.
79a0fbeJohn MacFarlane
src/Text/Pandoc/Writers/HTML.hs+4−2
compare with master
unifiedsplit
@@ -245,9 +245,11 @@ elementToHtml opts (Sec level num id' title' elements) = do
245 else if writerSectionDivs opts
245 else if writerSectionDivs opts
246 then if writerHtml5 opts
246 then if writerHtml5 opts
247 then tag "section" ! [prefixedId opts id']
247 then tag "section" ! [prefixedId opts id']
248− << intersperse (nl opts) stuff
248+ << (nl opts : (intersperse (nl opts) stuff
249+ ++ [nl opts]))
249 else thediv ! [prefixedId opts id'] <<
250 else thediv ! [prefixedId opts id'] <<
250− intersperse (nl opts) stuff
251+ (nl opts : (intersperse (nl opts) stuff
252+ ++ [nl opts]))
251 else toHtmlFromList $ intersperse (nl opts) stuff
253 else toHtmlFromList $ intersperse (nl opts) stuff
252
254
253-- | Convert list of Note blocks to a footnote <div>.
255-- | Convert list of Note blocks to a footnote <div>.