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

may need to accept the inevitable

Browse source
This commit is contained in:
Pagwin 2025-12-05 21:16:46 -05:00
parent b35fa4d699
commit 82c9fd8799
No known key found for this signature in database
GPG key ID: 81137023740CA260
2 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
TODO.md
View file

@ -1,3 +1,4 @@
- [ ] Figure out what the fuck is going on with the soft engineering retrospective post or accept it's broken and rewrite the markdown parser later
- [ ] add rst or org support and convert markdown handling to custom parser instead of pandoc - [ ] add rst or org support and convert markdown handling to custom parser instead of pandoc
- [ ] process source code blocks with tree sitter https://hackage.haskell.org/package/tree-sitter - [ ] process source code blocks with tree sitter https://hackage.haskell.org/package/tree-sitter
- Alternatively consider skylighting https://hackage.haskell.org/package/skylighting - Alternatively consider skylighting https://hackage.haskell.org/package/skylighting

2
src/Markdown.hs
View file

@ -163,7 +163,7 @@ unorderedListBlock = do
unorderedListItem :: (Logger m, Token s ~ Char, Stream s, IsString (Tokens s)) => ParserTG s m ListItem unorderedListItem :: (Logger m, Token s ~ Char, Stream s, IsString (Tokens s)) => ParserTG s m ListItem
unorderedListItem = do unorderedListItem = do
oneOf "*-+" oneOf "*-+"
char ' ' <|> char '\t' optional (char ' ' <|> char '\t')
content <- many $ notFollowedBy lineEnding' *> inlineElement content <- many $ notFollowedBy lineEnding' *> inlineElement
lineEnding' lineEnding'
-- continuations <- many listContinuation -- continuations <- many listContinuation