HTML writer: Improve line breaks with <dd> tags.

We now put a newline between `</dd>` and `<dd>` when
there are multiple definitions.

src/Text/Pandoc/Writers/HTML.hs

@@ -485,7 +485,8 @@ blockToHtml opts (DefinitionList lst) = do
                   do term' <- liftM (H.dt) $ inlineListToHtml opts term
                      defs' <- mapM ((liftM (\x -> H.dd $ (x >> nl opts))) .
                                     blockListToHtml opts) defs
-                     return $ mconcat $ nl opts : term' : nl opts : defs') lst
+                     return $ mconcat $ nl opts : term' : nl opts :
+                                        intersperse (nl opts) defs') lst
   let lst' = H.dl $ mconcat contents >> nl opts
   let lst'' = if writerIncremental opts
                  then lst' ! A.class_ "incremental"

tests/writer.html

@@ -281,29 +281,34 @@ These should not be escaped:  \$ \\ \&gt; \[ \{</code></pre>
 <dl>
 <dt>apple</dt>
 <dd>red fruit
-</dd><dd>computer
+</dd>
+<dd>computer
 </dd>
 <dt>orange</dt>
 <dd>orange fruit
-</dd><dd>bank
+</dd>
+<dd>bank
 </dd>
 </dl>
 <p>Multiple definitions, loose:</p>
 <dl>
 <dt>apple</dt>
 <dd><p>red fruit</p>
-</dd><dd><p>computer</p>
+</dd>
+<dd><p>computer</p>
 </dd>
 <dt>orange</dt>
 <dd><p>orange fruit</p>
-</dd><dd><p>bank</p>
+</dd>
+<dd><p>bank</p>
 </dd>
 </dl>
 <p>Blank line after term, indented marker, alternate markers:</p>
 <dl>
 <dt>apple</dt>
 <dd><p>red fruit</p>
-</dd><dd><p>computer</p>
+</dd>
+<dd><p>computer</p>
 </dd>
 <dt>orange</dt>
 <dd><p>orange fruit</p>