Close <li> tags in linebreaks.

Thanks to Drew Gulino

src/erlydtl_filters.erl

@@ -759,6 +759,10 @@ unordered_list([], Acc) ->
     ["<ul>", lists:reverse(Acc), "</ul>"];
 unordered_list([First|_] = List, []) when is_integer(First) ->
     "<li>"++List;
+unordered_list([First|Rest], Acc) when is_list(First), Rest == [] ->
+    unordered_list(Rest, ["</li>"] ++ [unordered_list(First, []) |  Acc ])  ;
+unordered_list([First|Rest], Acc) when is_list(First), is_integer(hd(hd(Rest))) ->
+    unordered_list(Rest, [unordered_list(First, []) ++ "</li>" |Acc]);
 unordered_list([First|Rest], Acc) when is_list(First) ->
     unordered_list(Rest, [unordered_list(First, [])|Acc]).
 

tests/src/erlydtl_unittests.erl

@@ -780,7 +780,7 @@ tests() ->
                     <<"<p>The <strong>Long and <em>Winding</em>...</strong></p>">>},
                 {"|unordered_list",
                     <<"{{ var1|unordered_list }}">>, [{var1, ["States", ["Kansas", ["Lawrence", "Topeka"], "Illinois"]]}],
-                    <<"<li>States<ul><li>Kansas<ul><li>Lawrence<li>Topeka</ul><li>Illinois</ul>">>},
+                    <<"<li>States<ul><li>Kansas<ul><li>Lawrence</li><li>Topeka</li></ul></li><li>Illinois</li></ul></li>">>},
                 {"|upper",
                     <<"{{ message|upper }}">>, [{message, "That man has a gun."}],
                     <<"THAT MAN HAS A GUN.">>},