gu

-module(examples@password).
-compile([no_auto_import, nowarn_unused_vars, nowarn_unused_function, nowarn_nomatch]).

-export([main/0]).

-spec main() -> nil.
main() ->
    Answer = begin
        _pipe = [<<"zenity"/utf8>>],
        _pipe@1 = gu:new_password(_pipe, true),
        _pipe@2 = gu:set_title(_pipe@1, <<"Password"/utf8>>),
        gu:run(_pipe@2, false)
    end,
    case Answer of
        {some, {_, Val}} ->
            case gu:parse_list(Val, <<"|"/utf8>>) of
                [Username, Password] ->
                    _pipe@3 = [<<"zenity"/utf8>>],
                    _pipe@4 = gu:new_info(_pipe@3),
                    _pipe@5 = gu:set_text(
                        _pipe@4,
                        <<<<<<"Username: "/utf8, Username/binary>>/binary,
                                "\nPassword: "/utf8>>/binary,
                            Password/binary>>
                    ),
                    _pipe@6 = gu:set_timeout(_pipe@5, 10),
                    gu:run(_pipe@6, false),
                    nil;

                _ ->
                    nil
            end;

        none ->
            nil
    end.