File tree Expand file tree Collapse file tree 1 file changed +7
-1
lines changed Expand file tree Collapse file tree 1 file changed +7
-1
lines changed Original file line number Diff line number Diff line change @@ -5,8 +5,14 @@ module MyMark (prefixImageUrl) where
5
5
import CMarkGFM
6
6
import Data.Text qualified as T
7
7
8
+ tableCellToHTML :: Node -> T. Text
9
+ tableCellToHTML (Node _ _ nodes) = " <td>\n " <> T. intercalate " " (map (CMarkGFM. nodeToHtml [] [] ) (workOnInlineMath nodes)) <> " \n </td>"
10
+
11
+ tableRowToHTML :: Node -> T. Text
12
+ tableRowToHTML (Node _ _ nodes) = " <tr>\n " <> T. intercalate " \n " (map tableCellToHTML nodes) <> " \n </tr>"
13
+
8
14
tableToInlineHTML :: [TableCellAlignment ] -> [Node ] -> Node
9
- tableToInlineHTML _ _ = Node Nothing (HTML_BLOCK " some table" ) []
15
+ tableToInlineHTML _ nodes = Node Nothing (HTML_BLOCK $ " <table> \n " <> T. intercalate " \n " ( map tableRowToHTML nodes) <> " \n </ table> " ) []
10
16
11
17
prefixImageUrl :: String -> Node -> Node
12
18
prefixImageUrl prefix node =
You can’t perform that action at this time.
0 commit comments