Org reader: don't parse a list as first item in a list item.

Closes #7557.
This commit is contained in:
John MacFarlane 2021-09-10 09:50:05 -07:00
parent 12b3ee3787
commit 0216a2f504
2 changed files with 11 additions and 1 deletions

View file

@ -889,7 +889,10 @@ listItem parseIndentedMarker = try . withContext ListItemState $ do
firstLine <- anyLineNewline
blank <- option "" ("\n" <$ blankline)
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)
-- | Prepend inlines to blocks, adding them to the first paragraph or

7
test/command/7557.md Normal file
View 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"]]]]
```