-module(blah@internet).
-compile([no_auto_import, nowarn_unused_vars]).

-export([username/0, email/0, password/0, passphrase/0, domain_name/0, url/0, ip_v4/0, ip_v6/0, mac/0, long_hex_color/0, short_hex_color/0, hex_color/0, uuid/0, mongo_object_id/0, semver/0, language_code/0, status_code/0, status_code_in_class/1]).
-export_type([http_status_class/0]).

-type http_status_class() :: informational |
    successful |
    redirection |
    client_error |
    server_error.

-spec username() -> binary().
username() ->
    Adjective = blah@en@word:adjective(),
    Last_name = blah@name:last_name(),
    Nonce = gleam@int:random(4, 2048),
    case Nonce rem 4 of
        0 ->
            _pipe = [Adjective, Last_name],
            gleam@string:join(_pipe, <<""/utf8>>);

        1 ->
            _pipe@1 = [Adjective, gleam@string:lowercase(Last_name)],
            gleam@string:join(_pipe@1, <<"."/utf8>>);

        2 ->
            _pipe@2 = [Adjective, gleam@string:lowercase(Last_name)],
            gleam@string:join(_pipe@2, <<"-"/utf8>>);

        3 ->
            _pipe@3 = [Adjective, gleam@string:lowercase(Last_name)],
            gleam@string:join(_pipe@3, <<"_"/utf8>>)
    end.

-spec email() -> binary().
email() ->
    Email_domain = blah@utils:get_random_item(
        [<<"aol.com"/utf8>>,
            <<"gmail.com"/utf8>>,
            <<"hotmail.com"/utf8>>,
            <<"live.com"/utf8>>,
            <<"mail.ru"/utf8>>,
            <<"msn.com"/utf8>>,
            <<"outlook.com"/utf8>>,
            <<"proton.me"/utf8>>,
            <<"protonmail.com"/utf8>>,
            <<"yahoo.com"/utf8>>,
            <<"ymail.com"/utf8>>]
    ),
    _pipe = [username(), Email_domain],
    gleam@string:join(_pipe, <<"@"/utf8>>).

-spec password() -> binary().
password() ->
    Length = gleam@int:random(8, 32),
    blah@en@string:alphanumeric(Length).

-spec passphrase() -> binary().
passphrase() ->
    _pipe@1 = [blah@en@word:adjective(),
        begin
            _pipe = blah@name:first_name(),
            gleam@string:lowercase(_pipe)
        end,
        blah@en@word:verb(),
        blah@en@word:adverb()],
    gleam@string:join(_pipe@1, <<" "/utf8>>).

-spec domain_name() -> binary().
domain_name() ->
    Adjective = blah@en@word:adjective(),
    Noun = blah@en@word:noun(),
    Nonce = gleam@int:random(4, 2048),
    Hostname = case Nonce rem 3 of
        0 ->
            _pipe = [Adjective, Noun],
            gleam@string:join(_pipe, <<"."/utf8>>);

        1 ->
            _pipe@1 = [Adjective, Noun],
            gleam@string:join(_pipe@1, <<"-"/utf8>>);

        2 ->
            _pipe@2 = [Adjective, Noun],
            gleam@string:join(_pipe@2, <<"_"/utf8>>)
    end,
    Suffix = blah@utils:get_random_item(
        [<<"co"/utf8>>,
            <<"com"/utf8>>,
            <<"edu"/utf8>>,
            <<"gov"/utf8>>,
            <<"int"/utf8>>,
            <<"io"/utf8>>,
            <<"mil"/utf8>>,
            <<"net"/utf8>>,
            <<"org"/utf8>>]
    ),
    _pipe@3 = [Hostname, Suffix],
    gleam@string:join(_pipe@3, <<"."/utf8>>).

-spec url() -> binary().
url() ->
    Protocol = blah@utils:get_random_item([<<"http"/utf8>>, <<"https"/utf8>>]),
    _pipe = [Protocol, <<"://"/utf8>>, domain_name()],
    gleam@string:join(_pipe, <<""/utf8>>).

-spec ip_v4() -> binary().
ip_v4() ->
    _pipe = gleam@list:repeat(<<""/utf8>>, 4),
    _pipe@1 = gleam@list:map(_pipe, fun(_) -> gleam@int:random(0, 256) end),
    _pipe@2 = gleam@list:map(_pipe@1, fun gleam@int:to_string/1),
    gleam@string:join(_pipe@2, <<"."/utf8>>).

-spec ip_v6() -> binary().
ip_v6() ->
    _pipe = gleam@list:repeat(<<""/utf8>>, 8),
    _pipe@1 = gleam@list:map(_pipe, fun(_) -> gleam@int:random(0, 65536) end),
    _pipe@4 = gleam@list:map(_pipe@1, fun(Field) -> _pipe@2 = Field,
            _pipe@3 = gleam@int:to_base16(_pipe@2),
            gleam@string:lowercase(_pipe@3) end),
    gleam@string:join(_pipe@4, <<":"/utf8>>).

-spec mac() -> binary().
mac() ->
    _pipe = gleam@list:repeat(<<""/utf8>>, 6),
    _pipe@1 = gleam@list:map(_pipe, fun(_) -> gleam@int:random(0, 256) end),
    _pipe@4 = gleam@list:map(_pipe@1, fun(Field) -> _pipe@2 = Field,
            _pipe@3 = gleam@int:to_base16(_pipe@2),
            gleam@string:lowercase(_pipe@3) end),
    gleam@string:join(_pipe@4, <<":"/utf8>>).

-spec long_hex_color() -> binary().
long_hex_color() ->
    _pipe@5 = [<<"#"/utf8>> |
        begin
            _pipe = gleam@list:repeat(<<""/utf8>>, 3),
            _pipe@1 = gleam@list:map(
                _pipe,
                fun(_) -> gleam@int:random(0, 256) end
            ),
            gleam@list:map(_pipe@1, fun(Field) -> _pipe@2 = Field,
                    _pipe@3 = gleam@int:to_base16(_pipe@2),
                    _pipe@4 = gleam@string:lowercase(_pipe@3),
                    gleam@string:pad_left(_pipe@4, 2, <<"0"/utf8>>) end)
        end],
    gleam@string:join(_pipe@5, <<""/utf8>>).

-spec short_hex_color() -> binary().
short_hex_color() ->
    _pipe@4 = [<<"#"/utf8>> |
        begin
            _pipe = gleam@list:repeat(<<""/utf8>>, 3),
            _pipe@1 = gleam@list:map(
                _pipe,
                fun(_) -> gleam@int:random(0, 15) end
            ),
            gleam@list:map(_pipe@1, fun(Field) -> _pipe@2 = Field,
                    _pipe@3 = gleam@int:to_base16(_pipe@2),
                    gleam@string:lowercase(_pipe@3) end)
        end],
    gleam@string:join(_pipe@4, <<""/utf8>>).

-spec hex_color() -> binary().
hex_color() ->
    Nonce = gleam@int:random(4, 2048),
    case Nonce rem 2 of
        0 ->
            long_hex_color();

        1 ->
            short_hex_color()
    end.

-spec uuid() -> binary().
uuid() ->
    _pipe = gleam@list:repeat(<<""/utf8>>, 32),
    _pipe@1 = gleam@list:map(_pipe, fun(_) -> gleam@int:random(0, 15) end),
    _pipe@4 = gleam@list:map(_pipe@1, fun(Digit) -> _pipe@2 = Digit,
            _pipe@3 = gleam@int:to_base16(_pipe@2),
            gleam@string:lowercase(_pipe@3) end),
    gleam@list:fold(
        _pipe@4,
        <<""/utf8>>,
        fun(Uuid, Char) ->
            Uuid@1 = gleam@string:append(Uuid, Char),
            case gleam@string:length(Uuid@1) of
                8 ->
                    gleam@string:append(Uuid@1, <<"-"/utf8>>);

                13 ->
                    gleam@string:append(Uuid@1, <<"-"/utf8>>);

                18 ->
                    gleam@string:append(Uuid@1, <<"-"/utf8>>);

                23 ->
                    gleam@string:append(Uuid@1, <<"-"/utf8>>);

                _ ->
                    Uuid@1
            end
        end
    ).

-spec mongo_object_id() -> binary().
mongo_object_id() ->
    _pipe = gleam@list:repeat(<<""/utf8>>, 24),
    _pipe@1 = gleam@list:map(_pipe, fun(_) -> gleam@int:random(0, 15) end),
    _pipe@4 = gleam@list:map(_pipe@1, fun(Digit) -> _pipe@2 = Digit,
            _pipe@3 = gleam@int:to_base16(_pipe@2),
            gleam@string:lowercase(_pipe@3) end),
    gleam@string:join(_pipe@4, <<""/utf8>>).

-spec semver() -> binary().
semver() ->
    _pipe = gleam@list:repeat(<<""/utf8>>, gleam@int:random(2, 4)),
    _pipe@1 = gleam@list:map(_pipe, fun(_) -> gleam@int:random(0, 32) end),
    _pipe@2 = gleam@list:map(_pipe@1, fun gleam@int:to_string/1),
    gleam@string:join(_pipe@2, <<"."/utf8>>).

-spec language_code() -> binary().
language_code() ->
    blah@utils:get_random_item(
        [<<"aa"/utf8>>,
            <<"ab"/utf8>>,
            <<"ae"/utf8>>,
            <<"af"/utf8>>,
            <<"ak"/utf8>>,
            <<"am"/utf8>>,
            <<"an"/utf8>>,
            <<"ar"/utf8>>,
            <<"as"/utf8>>,
            <<"av"/utf8>>,
            <<"ay"/utf8>>,
            <<"az"/utf8>>,
            <<"ba"/utf8>>,
            <<"be"/utf8>>,
            <<"bg"/utf8>>,
            <<"bh"/utf8>>,
            <<"bi"/utf8>>,
            <<"bm"/utf8>>,
            <<"bn"/utf8>>,
            <<"bo"/utf8>>,
            <<"br"/utf8>>,
            <<"bs"/utf8>>,
            <<"ca"/utf8>>,
            <<"ce"/utf8>>,
            <<"ch"/utf8>>,
            <<"co"/utf8>>,
            <<"cr"/utf8>>,
            <<"cs"/utf8>>,
            <<"cu"/utf8>>,
            <<"cv"/utf8>>,
            <<"cy"/utf8>>,
            <<"da"/utf8>>,
            <<"de"/utf8>>,
            <<"dv"/utf8>>,
            <<"dz"/utf8>>,
            <<"ee"/utf8>>,
            <<"el"/utf8>>,
            <<"en"/utf8>>,
            <<"eo"/utf8>>,
            <<"es"/utf8>>,
            <<"et"/utf8>>,
            <<"eu"/utf8>>,
            <<"fa"/utf8>>,
            <<"ff"/utf8>>,
            <<"fi"/utf8>>,
            <<"fj"/utf8>>,
            <<"fo"/utf8>>,
            <<"fr"/utf8>>,
            <<"fy"/utf8>>,
            <<"ga"/utf8>>,
            <<"gd"/utf8>>,
            <<"gl"/utf8>>,
            <<"gn"/utf8>>,
            <<"gu"/utf8>>,
            <<"gv"/utf8>>,
            <<"ha"/utf8>>,
            <<"he"/utf8>>,
            <<"hi"/utf8>>,
            <<"ho"/utf8>>,
            <<"hr"/utf8>>,
            <<"ht"/utf8>>,
            <<"hu"/utf8>>,
            <<"hy"/utf8>>,
            <<"hz"/utf8>>,
            <<"ia"/utf8>>,
            <<"id"/utf8>>,
            <<"ie"/utf8>>,
            <<"ig"/utf8>>,
            <<"ii"/utf8>>,
            <<"ik"/utf8>>,
            <<"io"/utf8>>,
            <<"is"/utf8>>,
            <<"it"/utf8>>,
            <<"iu"/utf8>>,
            <<"ja"/utf8>>,
            <<"jv"/utf8>>,
            <<"ka"/utf8>>,
            <<"kg"/utf8>>,
            <<"ki"/utf8>>,
            <<"kj"/utf8>>,
            <<"kk"/utf8>>,
            <<"kl"/utf8>>,
            <<"km"/utf8>>,
            <<"kn"/utf8>>,
            <<"ko"/utf8>>,
            <<"kr"/utf8>>,
            <<"ks"/utf8>>,
            <<"ku"/utf8>>,
            <<"kv"/utf8>>,
            <<"kw"/utf8>>,
            <<"ky"/utf8>>,
            <<"la"/utf8>>,
            <<"lb"/utf8>>,
            <<"lg"/utf8>>,
            <<"li"/utf8>>,
            <<"ln"/utf8>>,
            <<"lo"/utf8>>,
            <<"lt"/utf8>>,
            <<"lu"/utf8>>,
            <<"lv"/utf8>>,
            <<"mg"/utf8>>,
            <<"mh"/utf8>>,
            <<"mi"/utf8>>,
            <<"mk"/utf8>>,
            <<"ml"/utf8>>,
            <<"mn"/utf8>>,
            <<"mr"/utf8>>,
            <<"ms"/utf8>>,
            <<"mt"/utf8>>,
            <<"my"/utf8>>,
            <<"na"/utf8>>,
            <<"nb"/utf8>>,
            <<"nd"/utf8>>,
            <<"ne"/utf8>>,
            <<"ng"/utf8>>,
            <<"nl"/utf8>>,
            <<"nn"/utf8>>,
            <<"no"/utf8>>,
            <<"nr"/utf8>>,
            <<"nv"/utf8>>,
            <<"ny"/utf8>>,
            <<"oc"/utf8>>,
            <<"oj"/utf8>>,
            <<"om"/utf8>>,
            <<"or"/utf8>>,
            <<"os"/utf8>>,
            <<"pa"/utf8>>,
            <<"pi"/utf8>>,
            <<"pl"/utf8>>,
            <<"ps"/utf8>>,
            <<"pt"/utf8>>,
            <<"qu"/utf8>>,
            <<"rm"/utf8>>,
            <<"rn"/utf8>>,
            <<"ro"/utf8>>,
            <<"ru"/utf8>>,
            <<"rw"/utf8>>,
            <<"sa"/utf8>>,
            <<"sc"/utf8>>,
            <<"sd"/utf8>>,
            <<"se"/utf8>>,
            <<"sg"/utf8>>,
            <<"si"/utf8>>,
            <<"sk"/utf8>>,
            <<"sl"/utf8>>,
            <<"sm"/utf8>>,
            <<"sn"/utf8>>,
            <<"so"/utf8>>,
            <<"sq"/utf8>>,
            <<"sr"/utf8>>,
            <<"ss"/utf8>>,
            <<"st"/utf8>>,
            <<"su"/utf8>>,
            <<"sv"/utf8>>,
            <<"sw"/utf8>>,
            <<"ta"/utf8>>,
            <<"te"/utf8>>,
            <<"tg"/utf8>>,
            <<"th"/utf8>>,
            <<"ti"/utf8>>,
            <<"tk"/utf8>>,
            <<"tl"/utf8>>,
            <<"tn"/utf8>>,
            <<"to"/utf8>>,
            <<"tr"/utf8>>,
            <<"ts"/utf8>>,
            <<"tt"/utf8>>,
            <<"tw"/utf8>>,
            <<"ty"/utf8>>,
            <<"ug"/utf8>>,
            <<"uk"/utf8>>,
            <<"ur"/utf8>>,
            <<"uz"/utf8>>,
            <<"ve"/utf8>>,
            <<"vi"/utf8>>,
            <<"vo"/utf8>>,
            <<"wa"/utf8>>,
            <<"wo"/utf8>>,
            <<"xh"/utf8>>,
            <<"yi"/utf8>>,
            <<"yo"/utf8>>,
            <<"za"/utf8>>,
            <<"zh"/utf8>>,
            <<"zu"/utf8>>]
    ).

-spec status_code() -> integer().
status_code() ->
    {_, Codes} = blah@utils:get_random_item(
        [{<<"informational"/utf8>>, [100, 101, 102, 103]},
            {<<"successful"/utf8>>,
                [200, 201, 202, 203, 204, 205, 206, 207, 208, 226]},
            {<<"redirection"/utf8>>,
                [300, 301, 302, 303, 304, 305, 306, 307, 308]},
            {<<"client_error"/utf8>>,
                [400,
                    401,
                    402,
                    403,
                    404,
                    405,
                    406,
                    407,
                    408,
                    409,
                    410,
                    411,
                    412,
                    413,
                    414,
                    415,
                    416,
                    417,
                    418,
                    421,
                    422,
                    423,
                    424,
                    425,
                    426,
                    428,
                    429,
                    431,
                    451]},
            {<<"server_error"/utf8>>,
                [500, 501, 502, 503, 504, 505, 506, 507, 508, 510, 511]}]
    ),
    blah@utils:get_random_item(Codes).

-spec status_code_in_class(http_status_class()) -> integer().
status_code_in_class(Class) ->
    Class_string = case Class of
        informational ->
            <<"informational"/utf8>>;

        successful ->
            <<"successful"/utf8>>;

        redirection ->
            <<"redirection"/utf8>>;

        client_error ->
            <<"client_error"/utf8>>;

        server_error ->
            <<"server_error"/utf8>>
    end,
    [{_, Codes}] = gleam@list:filter(
        [{<<"informational"/utf8>>, [100, 101, 102, 103]},
            {<<"successful"/utf8>>,
                [200, 201, 202, 203, 204, 205, 206, 207, 208, 226]},
            {<<"redirection"/utf8>>,
                [300, 301, 302, 303, 304, 305, 306, 307, 308]},
            {<<"client_error"/utf8>>,
                [400,
                    401,
                    402,
                    403,
                    404,
                    405,
                    406,
                    407,
                    408,
                    409,
                    410,
                    411,
                    412,
                    413,
                    414,
                    415,
                    416,
                    417,
                    418,
                    421,
                    422,
                    423,
                    424,
                    425,
                    426,
                    428,
                    429,
                    431,
                    451]},
            {<<"server_error"/utf8>>,
                [500, 501, 502, 503, 504, 505, 506, 507, 508, 510, 511]}],
        fun(Kv) -> gleam@pair:first(Kv) =:= Class_string end
    ),
    blah@utils:get_random_item(Codes).