Add suggestion on wrong content inside {table } and {tr }`

Signed-off-by: Paul-Elliot <[email protected]>

Author: panglesd

src/syntax.ml

@@ -1338,6 +1338,7 @@ and heavy_table ~parent_markup ~parent_markup_location input =
     | token ->
         Parse_error.not_allowed next_token.location ~what:(Token.describe token)
           ~in_what:(Token.describe parent_markup)
+          ~suggestion:"Move outside of {table ...}, or inside {tr ...}"
         |> add_warning input;
         junk input;
         consume_rows acc ~last_loc
@@ -1371,6 +1372,8 @@ and heavy_table_row ~parent_markup input =
     | token ->
         Parse_error.not_allowed next_token.location ~what:(Token.describe token)
           ~in_what:(Token.describe parent_markup)
+          ~suggestion:
+            "Move outside of {table ...}, or inside {td ...} or {th ...}"
         |> add_warning input;
         junk input;
         consume_cell_items acc

test/test_tables.ml

@@ -37,6 +37,33 @@ let%expect_test _ =
             (table (syntax heavy) (data ((row ((header ()))))) (align ())))))
          (warnings ())) |}]
 
+    let bad_data =
+      test "{table absurd content}";
+      [%expect
+        {|
+        ((output (((f.ml (1 0) (1 22)) (table (syntax heavy) (data ()) (align ())))))
+         (warnings
+          ( "File \"f.ml\", line 1, characters 7-13:\
+           \n'absurd' is not allowed in '{table ...}' (table).\
+           \nSuggestion: Move outside of {table ...}, or inside {tr ...}"
+            "File \"f.ml\", line 1, characters 14-21:\
+           \n'content' is not allowed in '{table ...}' (table).\
+           \nSuggestion: Move outside of {table ...}, or inside {tr ...}"))) |}]
+
+    let bad_row =
+      test "{table {tr absurd content}}";
+      [%expect
+        {|
+        ((output
+          (((f.ml (1 0) (1 27)) (table (syntax heavy) (data ((row ()))) (align ())))))
+         (warnings
+          ( "File \"f.ml\", line 1, characters 11-17:\
+           \n'absurd' is not allowed in '{tr ...}' (table row).\
+           \nSuggestion: Move outside of {table ...}, or inside {td ...} or {th ...}"
+            "File \"f.ml\", line 1, characters 18-25:\
+           \n'content' is not allowed in '{tr ...}' (table row).\
+           \nSuggestion: Move outside of {table ...}, or inside {td ...} or {th ...}"))) |}]
+
     let multiple_headers =
       test "{table {tr {th}} {tr {th}} {tr {td}}}";
       [%expect