From 79a0fbe146bccc625fc6fffe57464a418f54703c Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Sat, 5 Feb 2011 11:27:25 -0800
Subject: HTML writer: Put line breaks in section divs.

---
 src/Text/Pandoc/Writers/HTML.hs | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'src')

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>.
-- 
cgit v1.2.3