illustrious

-module(illustrious@client).
-compile([no_auto_import, nowarn_unused_vars, nowarn_unused_function, nowarn_nomatch]).

-export([perform/1, go_to/1, redirect/1, forward/0, back/0, build_app/1]).
-export_type([client_app_builder/3]).

-type client_app_builder(OPD, OPE, OPF) :: {client_app_builder,
        fun((list(binary()), OPE) -> gleam@option:option(lustre@internals@vdom:element(illustrious@state:illustrious_action(OPF)))),
        OPE,
        fun((OPE, OPF) -> {OPE,
            lustre@effect:effect(illustrious@state:illustrious_action(OPF))}),
        fun((gleam@dynamic:dynamic_()) -> {ok,
                illustrious@state:illustrious_action(OPF)} |
            {error, list(gleam@dynamic:decode_error())})} |
    {gleam_phantom, OPD}.

-spec perform(OPG) -> illustrious@state:illustrious_action(OPG).
perform(Action) ->
    {perform, Action}.

-spec go_to(binary()) -> illustrious@state:illustrious_action(any()).
go_to(Route) ->
    {go_to, Route}.

-spec redirect(binary()) -> illustrious@state:illustrious_action(any()).
redirect(Route) ->
    {redirect, Route}.

-spec forward() -> illustrious@state:illustrious_action(any()).
forward() ->
    forward.

-spec back() -> illustrious@state:illustrious_action(any()).
back() ->
    back.

-spec listen_for_navigation() -> lustre@effect:effect(illustrious@state:illustrious_action(any())).
listen_for_navigation() ->
    lustre@effect:from(
        fun(Handler) ->
            illustrious@internal@router:register_callback(
                fun(Split_path) -> Handler({set_path, Split_path}) end
            )
        end
    ).

-spec build_app(client_app_builder(any(), OPO, OPP)) -> lustre:app(any(), illustrious@state:illustrious_model(OPO), illustrious@state:illustrious_action(OPP)).
build_app(Builder) ->
    Decoder = illustrious@internal@state_priv:wrap_decoder(
        erlang:element(5, Builder)
    ),
    Updater = illustrious@internal@state_priv:wrap_updater(
        erlang:element(4, Builder),
        erlang:element(5, Builder)
    ),
    New_init = fun(_) ->
        Split_path = illustrious@internal@router:get_current_path(),
        Model = {illustrious_model, Split_path, erlang:element(3, Builder)},
        Data = case illustrious@internal@api_helpers:get_baked_data() of
            {ok, Json} ->
                Decoder(Json);

            {error, _} ->
                noop
        end,
        Updated_model = Updater(Model, Data),
        {erlang:element(1, Updated_model),
            lustre@effect:batch(
                [erlang:element(2, Updated_model), listen_for_navigation()]
            )}
    end,
    New_view = fun(Illustrious_model) ->
        case (erlang:element(2, Builder))(
            erlang:element(2, Illustrious_model),
            erlang:element(3, Illustrious_model)
        ) of
            {some, El} ->
                El;

            none ->
                lustre@element@html:h2(
                    [],
                    [lustre@element:text(<<"404"/utf8>>)]
                )
        end
    end,
    lustre:application(New_init, Updater, New_view).