aboutsummaryrefslogtreecommitdiff
path: root/src/Text
diff options
context:
space:
mode:
authorJohn MacFarlane <fiddlosopher@gmail.com>2012-09-11 08:51:08 -0700
committerJohn MacFarlane <fiddlosopher@gmail.com>2012-09-12 08:45:03 -0700
commitbad3c88cb6fa65ffade5365001202c9c8df2a1c0 (patch)
tree64a149b2a368d66d4c83dd73ddf9d7250cf53107 /src/Text
parent0189997420cff0a38637a522d880815e1ee201c4 (diff)
downloadpandoc-bad3c88cb6fa65ffade5365001202c9c8df2a1c0.tar.gz
HTML writer: Improve line breaks with `<dd>` tags.
We now put a newline between `</dd>` and `<dd>` when there are multiple definitions.
Diffstat (limited to 'src/Text')
-rw-r--r--src/Text/Pandoc/Writers/HTML.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs
index c6c4a8fd7..bb8d1b242 100644
--- a/src/Text/Pandoc/Writers/HTML.hs
+++ b/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"