git.iko.soy/typeable/pandoc
on master help sign in
HTML writer: Put line breaks in section divs.
commit79a0fbe146bccc625fc6fffe57464a418f54703c authorJohn MacFarlane <jgm@berkeley.edu> dateSat 5 Feb 2011, 11:27 (16 years ago) parentcbe162e
1 file changed+4−2
src/Text/Pandoc/Writers/HTML.hs+4−2
src/Text/Pandoc/Writers/HTML.hs+4−2
@@ -245,9 +245,11 @@ elementToHtml opts (Sec level num id' title' elements) = do
245245 else if writerSectionDivs opts
246246 then if writerHtml5 opts
247247 then tag "section" ! [prefixedId opts id']
248− << intersperse (nl opts) stuff
248+ << (nl opts : (intersperse (nl opts) stuff
249+ ++ [nl opts]))
249250 else thediv ! [prefixedId opts id'] <<
250− intersperse (nl opts) stuff
251+ (nl opts : (intersperse (nl opts) stuff
252+ ++ [nl opts]))
251253 else toHtmlFromList $ intersperse (nl opts) stuff
252254
253255-- | Convert list of Note blocks to a footnote <div>.