Org reader: don't parse a list as first item in a list item.
Closes #7557.
This commit is contained in:
parent
12b3ee3787
commit
0216a2f504
2 changed files with 11 additions and 1 deletions
|
@ -889,7 +889,10 @@ listItem parseIndentedMarker = try . withContext ListItemState $ do
|
||||||
firstLine <- anyLineNewline
|
firstLine <- anyLineNewline
|
||||||
blank <- option "" ("\n" <$ blankline)
|
blank <- option "" ("\n" <$ blankline)
|
||||||
rest <- T.concat <$> many (listContinuation markerLength)
|
rest <- T.concat <$> many (listContinuation markerLength)
|
||||||
contents <- parseFromString blocks $ firstLine <> blank <> rest
|
contents <- parseFromString (do initial <- paraOrPlain <|> pure mempty
|
||||||
|
subsequent <- blocks
|
||||||
|
return $ initial <> subsequent)
|
||||||
|
(firstLine <> blank <> rest)
|
||||||
return (maybe id (prependInlines . checkboxToInlines) box <$> contents)
|
return (maybe id (prependInlines . checkboxToInlines) box <$> contents)
|
||||||
|
|
||||||
-- | Prepend inlines to blocks, adding them to the first paragraph or
|
-- | Prepend inlines to blocks, adding them to the first paragraph or
|
||||||
|
|
7
test/command/7557.md
Normal file
7
test/command/7557.md
Normal file
|
@ -0,0 +1,7 @@
|
||||||
|
```
|
||||||
|
% pandoc -f org -t native
|
||||||
|
- 11. and 12. 09. meeting
|
||||||
|
- ^D
|
||||||
|
[BulletList
|
||||||
|
[[Plain [Str "11.",Space,Str "and",Space,Str "12.",Space,Str "09.",Space,Str "meeting"]]]]
|
||||||
|
```
|
Loading…
Add table
Reference in a new issue