Implemented strikethrough parser

2025-05-16 19:29:39 -05:00
parent 23691f9cfe
commit b9c6cc4470
1 changed files with 7 additions and 0 deletions
--- a/src/MdToHTML.hs
+++ b/src/MdToHTML.hs
@@ -178,6 +178,13 @@ parseItalic = do
  let parsedText = fst $ leftmostLongestParse parseLine text
  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
 parseLink :: ReadP MdToken
 parseLink = do