Current section
Files
Jump to
Current section
Files
src/examples@file_selection.erl
-module(examples@file_selection).
-compile([no_auto_import, nowarn_unused_vars, nowarn_unused_function, nowarn_nomatch]).
-export([main/0]).
-spec main() -> {ok, binary()} | {error, {integer(), binary()}}.
main() ->
_pipe = [<<"zenity"/utf8>>],
_pipe@1 = gu:new_file_selection(
_pipe,
none,
true,
false,
false,
{some, <<"|"/utf8>>},
{some, [<<"*.gleam"/utf8>>]}
),
_pipe@2 = gu:set_title(_pipe@1, <<"Select Gleam Files"/utf8>>),
_pipe@3 = gu:prompt(_pipe@2),
_pipe@4 = gleam@result:map(
_pipe@3,
fun(_capture) -> gleam@string:split(_capture, <<"|"/utf8>>) end
),
_pipe@5 = gleam@result:map(
_pipe@4,
fun(_capture@1) -> gleam@string:join(_capture@1, <<",\n"/utf8>>) end
),
_pipe@6 = gleam@result:unwrap(_pipe@5, <<"No files selected"/utf8>>),
(fun(Answer) -> _pipe@7 = [<<"zenity"/utf8>>],
_pipe@8 = gu:new_info(_pipe@7),
_pipe@9 = gu:set_text(_pipe@8, Answer),
_pipe@10 = gu:set_timeout(_pipe@9, 10),
gu:show(_pipe@10, true) end)(_pipe@6).