Rockingcool/md-to-html
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Improved parser for horizontal rule and codeblock

Browse Source
This commit is contained in:
Aadhavan Srinivasan
2025-07-30 15:28:58 -04:00
parent d4a550f6a7
commit 9d3d656065
1 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/MdToHTML.hs
View File

@@ -542,11 +542,15 @@ doubleNewlineText :: T.Text
doubleNewlineText = T.pack "\n\n" doubleNewlineText = T.pack "\n\n"
parseHorizontalRule :: Parser MdToken parseHorizontalRule :: Parser MdToken
parseHorizontalRule = string horizontalRuleText *> (void (string doubleNewlineText) <|> eof) *> return HorizontalRule parseHorizontalRule = parseHorizontalRuleLine *> (void (string doubleNewlineText) <|> eof) *> return HorizontalRule
where
parseHorizontalRuleLine = fallthroughParser (map (string . T.pack) ["---", "***", "___", "- - -", "* * *", "_ _ _"])
parseCodeblock :: Parser MdToken parseCodeblock :: Parser MdToken
parseCodeblock = do parseCodeblock = do
string (T.pack "```\n") string (T.pack "```")
_ <- many $ satisfy (/= '\n') -- Language name
char '\n'
inside <- someTill anySingle (string (T.pack "\n```")) inside <- someTill anySingle (string (T.pack "\n```"))
return $ Codeblock (Unit (concatMap escapeChar inside)) return $ Codeblock (Unit (concatMap escapeChar inside))