HTML reader: trim definition list terms
commit751427745417c7702a1546b1368db297a44b21e0
authorAlexander Krotov <ilabdsf@gmail.com>
dateSat 25 May 2019, 18:26 (7 years ago)
parent19f9eed
src/Text/Pandoc/Readers/HTML.hs+1−1
@@ -336,7 +336,7 @@ pDefListItem = try $ do
336336 terms <- many1 (try $ skipMany nonItem >> pInTags "dt" inline)
337337 defs <- many1 (try $ skipMany nonItem >> pInTags "dd" block)
338338 skipMany nonItem
339− let term = foldl1 (\x y -> x <> B.linebreak <> y) terms
339+ let term = foldl1 (\x y -> x <> B.linebreak <> y) $ map trimInlines terms
340340 return (term, map (fixPlains True) defs)
341341
342342fixPlains :: Bool -> Blocks -> Blocks
test/command/html-trim-definition-list-terms.mdnew file+17
@@ -0,0 +1,17 @@
1+```
2+% pandoc -f html -t native
3+<dl>
4+ <dt>
5+ foo
6+ bar
7+ </dt>
8+ <dt>
9+ baz
10+ </dt>
11+ <dd>test</dd>
12+</dl>
13+^D
14+[DefinitionList
15+ [([Str "foo",SoftBreak,Str "bar",LineBreak,Str "baz"],
16+ [[Plain [Str "test"]]])]]
17+```