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

started handling lists

Browse source
This commit is contained in:
Pagwin 2025-12-10 00:30:26 -05:00
parent ce5794e7ea
commit 656490ffe6
No known key found for this signature in database
GPG key ID: 81137023740CA260
1 changed files with 13 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
src/Markdown.hs
View file

@ -116,10 +116,21 @@ blockquoteBlock = BlockQuote . Q . concat <$> (some blockquoteLine)
pure ret pure ret
unorderedListBlock :: (Logger m, Characters s) => Int -> Parser s m Element unorderedListBlock :: (Logger m, Characters s) => Int -> Parser s m Element
unorderedListBlock indent_level = error "TODO: unorderedListBlock" unorderedListBlock indent_level = do
error "Can unordered and ordered lists be consolidated into 1 function of ListType -> Parser s m prefix -> Int -> Paser s m Element"
error "unhandled ident_level"
items <- some $ (try (unorderedListItem <* notFollowedBy blockEnding)) <|> (unorderedListItem <* lineEnding)
pure $ List $ L {list_type = Unordered, items}
where
unorderedListItem = error "unorderedListItem"
orderedListBlock :: (Logger m, Characters s) => Int -> Parser s m Element orderedListBlock :: (Logger m, Characters s) => Int -> Parser s m Element
orderedListBlock indent_level = error "TODO: orderedListBlock" orderedListBlock indent_level = do
error "unhandled ident_level"
items <- some $ (try (orderedListItem <* notFollowedBy blockEnding)) <|> (orderedListItem <* lineEnding)
pure $ List $ L {list_type = Unordered, items}
where
orderedListItem = error "orderedListItem"
htmlBlock :: (Logger m, Characters s) => Parser s m Element htmlBlock :: (Logger m, Characters s) => Parser s m Element
htmlBlock = error "TODO: htmlBlock" htmlBlock = error "TODO: htmlBlock"