final simple features of markdown?

Author: ta4ilka69

src/Parser.hs

@@ -518,7 +518,7 @@ parseHtmlTags text
 -- Handle plain text until a special character
 parsePlainText :: Text -> [MDElement]
 parsePlainText text =
-  let (content, rest) = T.break (`elem` ['*', '_', '~', '<']) text
+  let (content, rest) = T.break (`elem` ['*', '_', '~', '<', '!', '[', '`']) text
    in PlainText content : parseInline rest
 
 isCodeBlockStart :: Text -> Bool
@@ -535,11 +535,11 @@ parseCodeBlock _ = (CodeBlock T.empty, [])
 
 parseInlineCode :: Text -> [MDElement]
 parseInlineCode text
-  | T.isPrefixOf (T.pack "``") text =
-      let (content, rest) = T.breakOn (T.pack "``") (T.drop 2 text)
-       in if T.isPrefixOf (T.pack "``") rest
-            then InlineCode (T.strip content) : parseInline (T.drop 2 rest)
-            else PlainText (T.pack "``") : parseInline (T.drop 2 text)
+  | T.isPrefixOf (T.pack "```") text =
+      let (content, rest) = T.breakOn (T.pack "```") (T.drop 3 text)
+       in if T.isPrefixOf (T.pack "```") rest
+            then InlineCode (T.strip content) : parseInline (T.drop 3 rest)
+            else PlainText (T.pack "```") : parseInline (T.drop 2 text)
   | T.isPrefixOf (T.pack "`") text =
       let (content, rest) = T.breakOn (T.pack "`") (T.drop 1 text)
        in if T.isPrefixOf (T.pack "`") rest

test/output.html

@@ -203,7 +203,9 @@ <h2 id="9f9a76a951506992fc919b8ae3f5ae15">Заголовок второго ур
   src="https://upload.wikimedia.org/wikipedia/commons/thumb/4/48/Markdown-mark.svg/1920px-Markdown-mark.svg.png"
   alt="Изображение title="Логотип Markdown"" />
 </p>
-<p>Функция `print (x)` выводит содержимое переменной ```x```.</p>
+<p>
+  Функция <code>print (x)</code> выводит содержимое переменной <code>x</code>.
+</p>
 <pre><code>#include &lt;stdio.h&gt;
 int main() {
    printf(&quot;Hello, World!&quot;);