Implemented strikethrough parser
This commit is contained in:
@@ -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
|
||||||
|
Reference in New Issue
Block a user