-module(commonmark@internal@parser@entity).
-compile([no_auto_import, nowarn_unused_vars, nowarn_unused_function, nowarn_nomatch]).

-export([match_html_entity/1]).

-spec match_html_entity(list(binary())) -> {ok, {list(binary()), binary()}} |
    {error, nil}.
match_html_entity(Input) ->
    case Input of
        [<<"A"/utf8>>,
            <<"E"/utf8>>,
            <<"l"/utf8>>,
            <<"i"/utf8>>,
            <<"g"/utf8>>,
            <<";"/utf8>> |
            Rest] ->
            {ok, {Rest, <<"Æ"/utf8>>}};

        [<<"a"/utf8>>, <<"m"/utf8>>, <<"p"/utf8>>, <<";"/utf8>> | Rest@1] ->
            {ok, {Rest@1, <<"&"/utf8>>}};

        [<<"C"/utf8>>,
            <<"l"/utf8>>,
            <<"o"/utf8>>,
            <<"c"/utf8>>,
            <<"k"/utf8>>,
            <<"w"/utf8>>,
            <<"i"/utf8>>,
            <<"s"/utf8>>,
            <<"e"/utf8>>,
            <<"C"/utf8>>,
            <<"o"/utf8>>,
            <<"n"/utf8>>,
            <<"t"/utf8>>,
            <<"o"/utf8>>,
            <<"u"/utf8>>,
            <<"r"/utf8>>,
            <<"I"/utf8>>,
            <<"n"/utf8>>,
            <<"t"/utf8>>,
            <<"e"/utf8>>,
            <<"g"/utf8>>,
            <<"r"/utf8>>,
            <<"a"/utf8>>,
            <<"l"/utf8>>,
            <<";"/utf8>> |
            Rest@2] ->
            {ok, {Rest@2, <<"∲"/utf8>>}};

        [<<"c"/utf8>>,
            <<"o"/utf8>>,
            <<"p"/utf8>>,
            <<"y"/utf8>>,
            <<";"/utf8>> |
            Rest@3] ->
            {ok, {Rest@3, <<"©"/utf8>>}};

        [<<"D"/utf8>>,
            <<"c"/utf8>>,
            <<"a"/utf8>>,
            <<"r"/utf8>>,
            <<"o"/utf8>>,
            <<"n"/utf8>>,
            <<";"/utf8>> |
            Rest@4] ->
            {ok, {Rest@4, <<"Ď"/utf8>>}};

        [<<"D"/utf8>>,
            <<"i"/utf8>>,
            <<"f"/utf8>>,
            <<"f"/utf8>>,
            <<"e"/utf8>>,
            <<"r"/utf8>>,
            <<"e"/utf8>>,
            <<"n"/utf8>>,
            <<"t"/utf8>>,
            <<"i"/utf8>>,
            <<"a"/utf8>>,
            <<"l"/utf8>>,
            <<"D"/utf8>>,
            <<";"/utf8>> |
            Rest@5] ->
            {ok, {Rest@5, <<"ⅆ"/utf8>>}};

        [<<"f"/utf8>>,
            <<"r"/utf8>>,
            <<"a"/utf8>>,
            <<"c"/utf8>>,
            <<"3"/utf8>>,
            <<"4"/utf8>>,
            <<";"/utf8>> |
            Rest@6] ->
            {ok, {Rest@6, <<"¾"/utf8>>}};

        [<<"H"/utf8>>,
            <<"i"/utf8>>,
            <<"l"/utf8>>,
            <<"b"/utf8>>,
            <<"e"/utf8>>,
            <<"r"/utf8>>,
            <<"t"/utf8>>,
            <<"S"/utf8>>,
            <<"p"/utf8>>,
            <<"a"/utf8>>,
            <<"c"/utf8>>,
            <<"e"/utf8>>,
            <<";"/utf8>> |
            Rest@7] ->
            {ok, {Rest@7, <<"ℋ"/utf8>>}};

        [<<"n"/utf8>>,
            <<"b"/utf8>>,
            <<"s"/utf8>>,
            <<"p"/utf8>>,
            <<";"/utf8>> |
            Rest@8] ->
            {ok, {Rest@8, <<"\x{A0}"/utf8>>}};

        [<<"n"/utf8>>, <<"g"/utf8>>, <<"E"/utf8>>, <<";"/utf8>> | Rest@9] ->
            {ok, {Rest@9, <<"≧̸"/utf8>>}};

        [<<"q"/utf8>>,
            <<"u"/utf8>>,
            <<"o"/utf8>>,
            <<"t"/utf8>>,
            <<";"/utf8>> |
            Rest@10] ->
            {ok, {Rest@10, <<"\""/utf8>>}};

        _ ->
            {error, nil}
    end.