diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2011-02-05 11:27:25 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2011-02-05 11:27:25 -0800 |
| commit | 79a0fbe146bccc625fc6fffe57464a418f54703c (patch) | |
| tree | b612456adaba5c16020d948da8573d3f2a5e5aef /src | |
| parent | cbe162ecbe7ee0df08dd843360c803a2cedf1c73 (diff) | |
| download | pandoc-79a0fbe146bccc625fc6fffe57464a418f54703c.tar.gz | |
HTML writer: Put line breaks in section divs.
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Writers/HTML.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs index aba73a417..1faeeea80 100644 --- a/src/Text/Pandoc/Writers/HTML.hs +++ b/src/Text/Pandoc/Writers/HTML.hs @@ -245,9 +245,11 @@ elementToHtml opts (Sec level num id' title' elements) = do else if writerSectionDivs opts then if writerHtml5 opts then tag "section" ! [prefixedId opts id'] - << intersperse (nl opts) stuff + << (nl opts : (intersperse (nl opts) stuff + ++ [nl opts])) else thediv ! [prefixedId opts id'] << - intersperse (nl opts) stuff + (nl opts : (intersperse (nl opts) stuff + ++ [nl opts])) else toHtmlFromList $ intersperse (nl opts) stuff -- | Convert list of Note blocks to a footnote <div>. |