Pagwin/psb
1
0
Fork 0
Code Issues 4 Pull requests Projects Releases Packages Wiki Activity

handled nested lists

Browse source
This commit is contained in:
Pagwin 2025-12-10 15:16:11 -05:00
parent bc1ea7e84b
commit 628d85a8f3
No known key found for this signature in database
GPG key ID: 81137023740CA260
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Markdown.hs
View file

@ -131,11 +131,11 @@ blockquoteBlock = BlockQuote . Q . concat <$> (some blockquoteLine)
-- nesting amount -- nesting amount
listBlock :: (Logger m, Characters s) => ListType -> Parser s m prefix -> (Int -> Parser s m List) -> Int -> Parser s m Element listBlock :: (Logger m, Characters s) => ListType -> Parser s m prefix -> (Int -> Parser s m List) -> Int -> Parser s m Element
listBlock list_type prefix child_parser_factory nest_level = do listBlock list_type prefix child_parser_factory nest_level = do
error "unhandled ident_level"
items <- some $ (try (listItem <* notFollowedBy blockEnding)) <|> (listItem <* lineEnding) items <- some $ (try (listItem <* notFollowedBy blockEnding)) <|> (listItem <* lineEnding)
pure $ List $ L {list_type, items} pure $ List $ L {list_type, items}
where where
listItem = do listItem = do
count nest_level ((try $ void $ char '\t') <|> (void $ string " "))
prefix prefix
content <- many inlineText content <- many inlineText
child <- optional $ child_parser_factory $ nest_level + 1 child <- optional $ child_parser_factory $ nest_level + 1