aboutsummaryrefslogtreecommitdiff
path: root/aoc2023/build/packages/adglent/src/adglent@init.erl
diff options
context:
space:
mode:
Diffstat (limited to 'aoc2023/build/packages/adglent/src/adglent@init.erl')
-rw-r--r--aoc2023/build/packages/adglent/src/adglent@init.erl142
1 files changed, 0 insertions, 142 deletions
diff --git a/aoc2023/build/packages/adglent/src/adglent@init.erl b/aoc2023/build/packages/adglent/src/adglent@init.erl
deleted file mode 100644
index fb28101..0000000
--- a/aoc2023/build/packages/adglent/src/adglent@init.erl
+++ /dev/null
@@ -1,142 +0,0 @@
--module(adglent@init).
--compile([no_auto_import, nowarn_unused_vars, nowarn_unused_function]).
-
--export([main/0]).
-
--spec main() -> {ok, binary()} | {error, binary()}.
-main() ->
- Year = priv@prompt:value(<<"Year"/utf8>>, <<"2023"/utf8>>, false),
- Session = priv@prompt:value(<<"Session Cookie"/utf8>>, <<""/utf8>>, false),
- Use_showtime = priv@prompt:confirm(<<"Use showtime"/utf8>>, false),
- Aoc_toml_file = <<"aoc.toml"/utf8>>,
- Overwrite = case simplifile:create_file(Aoc_toml_file) of
- {ok, _} ->
- true;
-
- {error, eexist} ->
- priv@prompt:confirm(<<"aoc.toml exits - overwrite"/utf8>>, false);
-
- _ ->
- erlang:error(#{gleam_error => panic,
- message => <<"Could not create aoc.toml"/utf8>>,
- module => <<"adglent/init"/utf8>>,
- function => <<"main"/utf8>>,
- line => 29})
- end,
- _pipe@3 = case Overwrite of
- true ->
- _pipe@1 = priv@template:render(
- <<"
-version = {{ version }}
-year = \"{{ year }}\"
-session = \"{{ session }}\"
-showtime = {{ showtime }}
-"/utf8>>,
- [{<<"version"/utf8>>, <<"2"/utf8>>},
- {<<"year"/utf8>>, Year},
- {<<"session"/utf8>>, Session},
- {<<"showtime"/utf8>>,
- begin
- _pipe = gleam@bool:to_string(Use_showtime),
- gleam@string:lowercase(_pipe)
- end}]
- ),
- _pipe@2 = simplifile:write(Aoc_toml_file, _pipe@1),
- priv@errors:map_messages(
- _pipe@2,
- <<"aoc.toml - written"/utf8>>,
- <<"Error when writing aoc.toml"/utf8>>
- );
-
- false ->
- {ok, <<"aoc.toml - skipped"/utf8>>}
- end,
- priv@errors:print_result(_pipe@3),
- Gleam_toml = begin
- _pipe@4 = simplifile:read(<<"gleam.toml"/utf8>>),
- _pipe@5 = priv@errors:map_error(
- _pipe@4,
- <<"Could not read gleam.toml"/utf8>>
- ),
- _pipe@6 = priv@errors:print_error(_pipe@5),
- priv@errors:assert_ok(_pipe@6)
- end,
- Name = begin
- _pipe@7 = priv@toml:get_string(Gleam_toml, [<<"name"/utf8>>]),
- _pipe@8 = priv@errors:map_error(
- _pipe@7,
- <<"Could not read \"name\" from gleam.toml"/utf8>>
- ),
- _pipe@9 = priv@errors:print_error(_pipe@8),
- priv@errors:assert_ok(_pipe@9)
- end,
- Test_main_file = <<<<"test/"/utf8, Name/binary>>/binary,
- "_test.gleam"/utf8>>,
- _pipe@12 = case Use_showtime of
- true ->
- _pipe@10 = priv@template:render(
- <<"
-import showtime
-
-pub fn main() {
- showtime.main()
-}
-"/utf8>>,
- []
- ),
- _pipe@11 = simplifile:write(Test_main_file, _pipe@10),
- priv@errors:map_messages(
- _pipe@11,
- <<"Wrote "/utf8, Test_main_file/binary>>,
- <<"Could not write to "/utf8, Test_main_file/binary>>
- );
-
- false ->
- {ok, <<"Using existing (gleeunit) "/utf8, Test_main_file/binary>>}
- end,
- _pipe@13 = priv@errors:print_result(_pipe@12),
- priv@errors:assert_ok(_pipe@13),
- _pipe@17 = case simplifile:is_file(<<".gitignore"/utf8>>) of
- true ->
- gleam@result:'try'(
- begin
- _pipe@14 = simplifile:read(<<".gitignore"/utf8>>),
- gleam@result:map_error(
- _pipe@14,
- fun(Err) ->
- <<"Could not read .gitignore: "/utf8,
- (gleam@string:inspect(Err))/binary>>
- end
- )
- end,
- fun(Gitignore) ->
- Aoc_toml_ignored = begin
- _pipe@15 = gleam@string:split(Gitignore, <<"\n"/utf8>>),
- gleam@list:find(
- _pipe@15,
- fun(Line) -> Line =:= <<"aoc.toml"/utf8>> end
- )
- end,
- case Aoc_toml_ignored of
- {error, _} ->
- _pipe@16 = simplifile:append(
- <<".gitignore"/utf8>>,
- <<"\naoc.toml"/utf8>>
- ),
- priv@errors:map_messages(
- _pipe@16,
- <<".gitignore written"/utf8>>,
- <<"Error when writing .gitignore"/utf8>>
- );
-
- {ok, _} ->
- {ok,
- <<".gitignore - skipped (already configured)"/utf8>>}
- end
- end
- );
-
- false ->
- {error, <<"Could not find .gitignore"/utf8>>}
- end,
- priv@errors:print_result(_pipe@17).