Added image parser
This commit is contained in:
@@ -194,6 +194,17 @@ parseSingleNewline = do
|
|||||||
char '\n'
|
char '\n'
|
||||||
return SingleNewline
|
return SingleNewline
|
||||||
|
|
||||||
|
parseImage :: ReadP MdToken
|
||||||
|
parseImage = do
|
||||||
|
char '!'
|
||||||
|
char '['
|
||||||
|
altText <- many1 (parseEscapedChar <++ parseUnit)
|
||||||
|
char ']'
|
||||||
|
char '('
|
||||||
|
path <- many1 get
|
||||||
|
char ')'
|
||||||
|
return $ Image (Line altText) (ImgPath path)
|
||||||
|
|
||||||
-- Parse an escaped character
|
-- Parse an escaped character
|
||||||
parseEscapedChar :: ReadP MdToken
|
parseEscapedChar :: ReadP MdToken
|
||||||
parseEscapedChar = do
|
parseEscapedChar = do
|
||||||
@@ -213,6 +224,7 @@ lineParsers =
|
|||||||
parseSingleNewline,
|
parseSingleNewline,
|
||||||
parseEscapedChar,
|
parseEscapedChar,
|
||||||
parseCode,
|
parseCode,
|
||||||
|
parseImage,
|
||||||
parseBold,
|
parseBold,
|
||||||
parseItalic,
|
parseItalic,
|
||||||
parseStrikethrough,
|
parseStrikethrough,
|
||||||
@@ -225,6 +237,7 @@ listLineParsers =
|
|||||||
[ parseLinebreak,
|
[ parseLinebreak,
|
||||||
parseEscapedChar,
|
parseEscapedChar,
|
||||||
parseCode,
|
parseCode,
|
||||||
|
parseImage,
|
||||||
parseBold,
|
parseBold,
|
||||||
parseItalic,
|
parseItalic,
|
||||||
parseStrikethrough,
|
parseStrikethrough,
|
||||||
|
Reference in New Issue
Block a user