diff options
| -rw-r--r-- | src/asciideck_parser.erl | 9 | ||||
| -rw-r--r-- | test/parser_SUITE.erl | 10 |
2 files changed, 17 insertions, 2 deletions
diff --git a/src/asciideck_parser.erl b/src/asciideck_parser.erl index 7d81112..9755d29 100644 --- a/src/asciideck_parser.erl +++ b/src/asciideck_parser.erl @@ -195,8 +195,13 @@ p1_ll_glob([{LN, <<"+">>}|Tail], Acc) -> p1_ll_glob(Tail, [{LN, <<>>}|Acc]); p1_ll_glob([{LN, <<" ", Line/bits>>}|Tail], Acc) -> p1_ll_glob([{LN, trim_ws(Line)}|Tail], Acc); -p1_ll_glob([Line|Tail], Acc) -> - p1_ll_glob(Tail, [Line|Acc]). +p1_ll_glob(Lines=[Line={LN, Text}|Tail], Acc) -> + case binary:split(<< Text/binary, $\s >>, <<":: ">>) of + [_, _] -> + {Lines, lists:reverse([{LN, <<>>}|Acc])}; + _ -> + p1_ll_glob(Tail, [Line|Acc]) + end. p1_text(Lines=[{LN, Line}|Tail], AST, St) -> case binary:split(<< Line/binary, $\s >>, <<":: ">>) of diff --git a/test/parser_SUITE.erl b/test/parser_SUITE.erl index eca21a3..0f7b393 100644 --- a/test/parser_SUITE.erl +++ b/test/parser_SUITE.erl @@ -303,6 +303,16 @@ labeled_list(_) -> [{ll, _, [ {li, #{label := <<"The label">>}, [{p, _, <<"The value!">>, _}], _} ], _}] = parse("The label:: The value!"), + %% @todo Currently this returns two ll. This is a bug but it gives + %% me the result I want, or close enough, for now. + [{ll, _, [ + {li, #{label := <<"The label">>}, [{p, _, <<"The value!">>, _}], _} + ], _}, + {ll, _, [ + {li, #{label := <<"More labels">>}, [{p, _, <<"More values!">>, _}], _} + ], _}] = parse( + "The label:: The value!\n" + "More labels:: More values!\n"), [{ll, _, [ {li, #{label := <<"The label">>}, [{p, _, <<"The value!">>, _}], _} ], _}] = parse( |