Add gfm_task_list_item test suite.

Author: potatosalad

apps/markdown/src/html/markdown_html.erl

@@ -601,7 +601,7 @@ enter(CompileContext1 = #markdown_html_compile_context{events = Events, index =
             gfm_table_cell -> on_enter_gfm_table_cell(CompileContext1);
             gfm_table_head -> on_enter_gfm_table_head(CompileContext1);
             gfm_table_row -> on_enter_gfm_table_row(CompileContext1);
-            % gfm_task_list_item_check -> on_enter_gfm_task_list_item_check(CompileContext1);
+            gfm_task_list_item_check -> on_enter_gfm_task_list_item_check(CompileContext1);
             html_flow -> on_enter_html_flow(CompileContext1);
             html_text -> on_enter_html_text(CompileContext1);
             image -> on_enter_image(CompileContext1);
@@ -811,6 +811,25 @@ on_enter_gfm_table_row(CompileContext1 = #markdown_html_compile_context{}) ->
     CompileContext3 = markdown_html_compile_context:push(CompileContext2, <<"<tr>"/utf8>>),
     CompileContext3.
 
+%% @private
+-doc """
+Handle [`Enter`][Kind::Enter]:[`GfmTaskListItemCheck`][Name::GfmTaskListItemCheck].
+""".
+-spec on_enter_gfm_task_list_item_check(CompileContext) -> CompileContext when
+    CompileContext :: markdown_html_compile_context:t().
+on_enter_gfm_task_list_item_check(CompileContext1 = #markdown_html_compile_context{image_alt_inside = false}) ->
+    CompileContext2 = markdown_html_compile_context:push(CompileContext1, <<"<input type=\"checkbox\" "/utf8>>),
+    CompileContext3 =
+        case CompileContext2#markdown_html_compile_context.options of
+            #markdown_compile_options{gfm_task_list_item_checkable = false} ->
+                markdown_html_compile_context:push(CompileContext2, <<"disabled=\"\" "/utf8>>);
+            _ ->
+                CompileContext2
+        end,
+    CompileContext3;
+on_enter_gfm_task_list_item_check(CompileContext1 = #markdown_html_compile_context{}) ->
+    CompileContext1.
+
 %% @private
 -doc """
 Handle [`Enter`][Kind::Enter]:[`HtmlFlow`][Name::HtmlFlow].
@@ -1085,8 +1104,8 @@ exit(CompileContext1 = #markdown_html_compile_context{events = Events, index = I
             gfm_table_cell -> on_exit_gfm_table_cell(CompileContext1);
             gfm_table_head -> on_exit_gfm_table_head(CompileContext1);
             gfm_table_row -> on_exit_gfm_table_row(CompileContext1);
-            % gfm_task_list_item_check -> on_exit_gfm_task_list_item_check(CompileContext1);
-            % gfm_task_list_item_value_checked -> on_exit_gfm_task_list_item_value_checked(CompileContext1);
+            gfm_task_list_item_check -> on_exit_gfm_task_list_item_check(CompileContext1);
+            gfm_task_list_item_value_checked -> on_exit_gfm_task_list_item_value_checked(CompileContext1);
             hard_break_escape -> on_exit_break(CompileContext1);
             hard_break_trailing -> on_exit_break(CompileContext1);
             heading_atx -> on_exit_heading_atx(CompileContext1);
@@ -1734,6 +1753,30 @@ on_exit_gfm_table_row__phantom_cells(CompileContext1 = #markdown_html_compile_co
 on_exit_gfm_table_row__phantom_cells(CompileContext, _Column, _Len) ->
     CompileContext.
 
+%% @private
+-doc """
+Handle [`Exit`][Kind::Exit]:[`GfmTaskListItemCheck`][Name::GfmTaskListItemCheck].
+""".
+-spec on_exit_gfm_task_list_item_check(CompileContext) -> CompileContext when
+    CompileContext :: markdown_html_compile_context:t().
+on_exit_gfm_task_list_item_check(CompileContext1 = #markdown_html_compile_context{image_alt_inside = false}) ->
+    CompileContext2 = markdown_html_compile_context:push(CompileContext1, <<"/>"/utf8>>),
+    CompileContext2;
+on_exit_gfm_task_list_item_check(CompileContext1 = #markdown_html_compile_context{}) ->
+    CompileContext1.
+
+%% @private
+-doc """
+Handle [`Exit`][Kind::Exit]:[`GfmTaskListItemValueChecked`][Name::GfmTaskListItemValueChecked].
+""".
+-spec on_exit_gfm_task_list_item_value_checked(CompileContext) -> CompileContext when
+    CompileContext :: markdown_html_compile_context:t().
+on_exit_gfm_task_list_item_value_checked(CompileContext1 = #markdown_html_compile_context{image_alt_inside = false}) ->
+    CompileContext2 = markdown_html_compile_context:push(CompileContext1, <<"checked=\"\" "/utf8>>),
+    CompileContext2;
+on_exit_gfm_task_list_item_value_checked(CompileContext1 = #markdown_html_compile_context{}) ->
+    CompileContext1.
+
 %% @private
 -doc """
 Handle [`Exit`][Kind::Exit]:[`HeadingAtx`][Name::HeadingAtx].

apps/markdown/src/mdast/markdown_mdast.erl

@@ -2205,7 +2205,7 @@ on_exit_list_item__move_past_eol(Bytes = <<Byte1:8, _/bytes>>, Point1 = #markdow
 ->
     Point2 = Point1#markdown_unist_point{
         offset = Point1#markdown_unist_point.offset + 1,
-        column = Point1#markdown_unist_point.column + 1,
+        column = 1,
         line = Point1#markdown_unist_point.line + 1
     },
     Start2 = Start1 + 1,
@@ -2235,13 +2235,14 @@ on_exit_list_item__node_mut_func(
             ParagraphNode1 = #markdown_mdast_node{
                 inner = Paragraph1 = #markdown_mdast_paragraph{position = {some, ParagraphPosition1}}
             }} ->
-            ParagraphChildren1 = ParagraphNode1#markdown_mdast_paragraph.children,
+            ParagraphChildren1 = Paragraph1#markdown_mdast_paragraph.children,
             case markdown_vec:first_option(ParagraphChildren1) of
                 {some,
                     TextNode1 = #markdown_mdast_node{
                         inner =
                             Text1 = #markdown_mdast_text{
-                                position = {some, #markdown_unist_position{start = Point1}}, value = Bytes
+                                position = {some, TextPosition1 = #markdown_unist_position{start = Point1}},
+                                value = Bytes
                             }
                     }} ->
                     Start1 = 0,
@@ -2256,17 +2257,16 @@ on_exit_list_item__node_mut_func(
                                 Paragraph1#markdown_mdast_paragraph{
                                     children = ParagraphChildren2, position = {some, ParagraphPosition2}
                                 };
-                            _ ->
-                                <<TextValue1:Start2/bytes, _/bytes>> = Bytes,
+                            Len ->
+                                TextValue1 = binary:part(Bytes, Start2, Len - Start2),
                                 TextValue2 = markdown_types:unicode_binary(TextValue1),
-                                {some, TextPosition1} = Text1#markdown_mdast_text.position,
                                 TextPosition2 = TextPosition1#markdown_unist_position{start = Point2},
                                 Text2 = Text1#markdown_mdast_text{
                                     value = TextValue2,
                                     position = {some, TextPosition2}
                                 },
                                 TextNode2 = TextNode1#markdown_mdast_node{inner = Text2},
-                                ParagraphChildren2 = markdown_vec:set(ParagraphPosition1, 0, TextNode2),
+                                ParagraphChildren2 = markdown_vec:set(ParagraphChildren1, 0, TextNode2),
                                 ParagraphPosition2 = ParagraphPosition1#markdown_unist_position{start = Point2},
                                 Paragraph1#markdown_mdast_paragraph{
                                     children = ParagraphChildren2, position = {some, ParagraphPosition2}