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

Implemented strikethrough parser

Browse Source
This commit is contained in:
Aadhavan Srinivasan
2025-05-16 19:29:39 -05:00
parent 23691f9cfe
commit b9c6cc4470
1 changed files with 7 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
src/MdToHTML.hs
View File

@@ -178,6 +178,13 @@ parseItalic = do
let parsedText = fst $ leftmostLongestParse parseLine text let parsedText = fst $ leftmostLongestParse parseLine text
return (Italic parsedText) return (Italic parsedText)
-- Parse strikethrough text
parseStrikethrough :: ReadP MdToken
parseStrikethrough = do
text <- between (string "~~") (string "~~") (many1 (lookaheadParse (/= "~~")))
let parsedText = fst $ leftmostLongestParse parseLine text
return (Strikethrough parsedText)
-- Parse a link -- Parse a link
parseLink :: ReadP MdToken parseLink :: ReadP MdToken
parseLink = do parseLink = do