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
|
||||
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
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…
Reference in a new issue