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

Parse CSS classes in image and figure

Browse Source
This commit is contained in:
Aadhavan Srinivasan
2025-06-10 09:11:56 -04:00
parent 0528e813c5
commit 04167e0f96
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/MdToHTML.hs
View File

@@ -251,15 +251,16 @@ parseImage :: Parser MdToken
parseImage = do parseImage = do
char '!' char '!'
link <- parseLink link <- parseLink
cssClasses <- optional $ try parseCssClasses
case link of case link of
Link text path -> return $ Image text path Link text path -> return $ Image text path cssClasses
_ -> empty -- This should never be reached _ -> empty -- This should never be reached
parseFigure = do parseFigure = do
img <- parseImage img <- parseImage
void (string doubleNewlineText) <|> eof void (string doubleNewlineText) <|> eof
case img of case img of
Image text path -> return $ Figure text path Image text path cssClasses -> return $ Figure text path cssClasses
_ -> return img _ -> return img
-- Parse an escaped character -- Parse an escaped character