From 90c7a585d2be7f258701ea87f1a8e7ec93ab6c0c Mon Sep 17 00:00:00 2001
From: Aadhavan Srinivasan <aadhavan@twomorecents.org>
Date: Fri, 23 May 2025 14:04:37 -0400
Subject: [PATCH] Added image parser

---
 src/MdToHTML.hs | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/src/MdToHTML.hs b/src/MdToHTML.hs
index 9c9d95f..7021075 100644
--- a/src/MdToHTML.hs
+++ b/src/MdToHTML.hs
@@ -194,6 +194,17 @@ parseSingleNewline = do
   char '\n'
   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
 parseEscapedChar :: ReadP MdToken
 parseEscapedChar = do
@@ -213,6 +224,7 @@ lineParsers =
     parseSingleNewline,
     parseEscapedChar,
     parseCode,
+    parseImage,
     parseBold,
     parseItalic,
     parseStrikethrough,
@@ -225,6 +237,7 @@ listLineParsers =
   [ parseLinebreak,
     parseEscapedChar,
     parseCode,
+    parseImage,
     parseBold,
     parseItalic,
     parseStrikethrough,