render inside headers added

Author: ta4ilka69

src/Markdown.hs

@@ -17,7 +17,7 @@ renderElement element = case element of
   LineBreak -> T.pack "<br />\n"
   Header level text id ->
     T.concat
-      [T.pack "<h", T.pack (show level), T.pack " id=\"", id, T.pack "\">", escapeHtml text, T.pack "</h", T.pack (show level), T.pack ">\n"]
+      [T.pack "<h", T.pack (show level), T.pack " id=\"", id, T.pack "\">", T.concat (map renderListItem text), T.pack "</h", T.pack (show level), T.pack ">\n"]
   Bold text -> T.concat [T.pack "<strong>", escapeHtml text, T.pack "</strong>"]
   Italic text -> T.concat [T.pack "<em>", escapeHtml text, T.pack "</em>"]
   BoldItalic text -> T.concat [T.pack "<strong><em>", escapeHtml text, T.pack "</em></strong>"]

src/Parser.hs

@@ -217,18 +217,21 @@ parseHeader line =
       text = T.strip $ T.dropWhile (== '#') line
       cleanText = T.strip $ T.takeWhile (/= '#') text
       headerId = makeHeaderId cleanText
-   in Header level cleanText headerId
+      mdElementsText = parseInline cleanText
+   in Header level mdElementsText headerId
 
 parseUnderlineHeader :: [Text] -> Maybe (MDElement, [Text])
 parseUnderlineHeader (line1 : line2 : rest)
   | not (T.null line1) && not (T.null line2) && T.all (== '=') (T.strip line2) =
       let cleanText = T.strip line1
           headerId = makeHeaderId cleanText
-       in Just (Header 1 cleanText headerId, rest)
+          mdElementsText = parseInline cleanText
+       in Just (Header 1 mdElementsText headerId, rest)
   | not (T.null line1) && not (T.null line2) && T.all (== '-') (T.strip line2) =
       let cleanText = T.strip line1
           headerId = makeHeaderId cleanText
-       in Just (Header 2 cleanText headerId, rest)
+          mdElementsText = parseInline cleanText
+       in Just (Header 2 mdElementsText headerId, rest)
   | otherwise = Nothing
 parseUnderlineHeader _ = Nothing
 

src/Types.hs

@@ -8,7 +8,7 @@ import Data.Text (Text)
 data MDElement
   = Paragraph [MDElement]
   | PlainText Text
-  | Header Int Text Text
+  | Header Int [MDElement] Text
   | Bold Text
   | Italic Text
   | BoldItalic Text

test/output.html

@@ -6,7 +6,7 @@
   Перенос с помощью тега <br />
   Последняя строка
 </p>
-<h1 id="26c6a567ef051205b8ef7476284083fd">Заголовок первого уровня</h1>
+<h1 id="b95e0dcefa314300fb3b1f9b7022cfed">Заголовок пер<em>вого уровня</em></h1>
 <h2 id="9f9a76a951506992fc919b8ae3f5ae15">Заголовок второго уровня</h2>
 <h3 id="bc59a8b4d2160d2f5780e2c0771df8a0">Заголовок третьего уровня</h3>
 <h4 id="6661f1977bd9c37260dc1ca80a1516e5">Заголовок четвёртого уровня</h4>
@@ -73,9 +73,13 @@ <h2 id="9f9a76a951506992fc919b8ae3f5ae15">Заголовок второго ур
   <li>Первый пункт</li>
   <li>Второй пункт</li>
   <li>Третий пункт</li>
+</ul>
+<ul>
   <li>Первый пункт</li>
   <li>Второй пункт</li>
   <li>Третий пункт</li>
+</ul>
+<ul>
   <li>Первый пункт</li>
   <li>Второй пункт</li>
   <li>Третий пункт</li>

test/simple_features.md

@@ -7,7 +7,7 @@
 Перенос с помощью обратного слеша\
 Перенос с помощью тега <br> Последняя строка
 
-# Заголовок первого уровня
+# Заголовок пер*вого уровня*
 ## Заголовок второго уровня ##
 ### Заголовок третьего уровня
 #### Заголовок четвёртого уровня #
@@ -75,9 +75,11 @@ ___
 * Первый пункт
 * Второй пункт
 * Третий пункт
+
 - Первый пункт
 - Второй пункт
 - Третий пункт
+
 + Первый пункт
 + Второй пункт
 + Третий пункт