-module(spectator@internal@components@dashboard_live).
-compile([no_auto_import, nowarn_unused_vars, nowarn_unused_function, nowarn_nomatch]).

-export([app/0]).
-export_type([model/0, relative_memory_statistics/0, relative_system_limits/0, msg/0]).

-opaque model() :: {model,
        gleam@option:option(gleam@erlang@process:subject(msg())),
        gleam@option:option(spectator@internal@api:memory_statistics()),
        gleam@option:option(relative_memory_statistics()),
        gleam@option:option(spectator@internal@api:system_info()),
        gleam@option:option(relative_system_limits())}.

-type relative_memory_statistics() :: {relative_memory_statistics,
        float(),
        float(),
        float(),
        float(),
        float(),
        float(),
        integer()}.

-type relative_system_limits() :: {relative_system_limits,
        float(),
        float(),
        float(),
        float()}.

-opaque msg() :: refresh |
    {created_subject, gleam@erlang@process:subject(msg())}.

-file("/Users/jonas/Projects/spectator/src/spectator/internal/components/dashboard_live.gleam", 77).
-spec get_relative_memory_stats(spectator@internal@api:memory_statistics()) -> relative_memory_statistics().
get_relative_memory_stats(Input) ->
    Factor = case gleam@int:to_float(erlang:element(2, Input)) of
        +0.0 -> +0.0;
        -0.0 -> -0.0;
        Gleam@denominator -> 100.0 / Gleam@denominator
    end,
    Processes = gleam@int:to_float(erlang:element(3, Input)) * Factor,
    Code = gleam@int:to_float(erlang:element(9, Input)) * Factor,
    Ets = gleam@int:to_float(erlang:element(10, Input)) * Factor,
    Atom = gleam@int:to_float(erlang:element(6, Input)) * Factor,
    Binary = gleam@int:to_float(erlang:element(8, Input)) * Factor,
    Other = ((((100.0 - Processes) - Code) - Ets) - Atom) - Binary,
    {relative_memory_statistics,
        Processes,
        Code,
        Ets,
        Atom,
        Binary,
        Other,
        (((erlang:element(5, Input) - erlang:element(6, Input)) - erlang:element(
            8,
            Input
        ))
        - erlang:element(9, Input))
        - erlang:element(10, Input)}.

-file("/Users/jonas/Projects/spectator/src/spectator/internal/components/dashboard_live.gleam", 101).
-spec get_relative_system_limits(spectator@internal@api:system_info()) -> relative_system_limits().
get_relative_system_limits(Input) ->
    Processes = (case gleam@int:to_float(erlang:element(15, Input)) of
        +0.0 -> +0.0;
        -0.0 -> -0.0;
        Gleam@denominator -> gleam@int:to_float(erlang:element(14, Input)) / Gleam@denominator
    end) * 100.0,
    Ports = (case gleam@int:to_float(erlang:element(13, Input)) of
        +0.0 -> +0.0;
        -0.0 -> -0.0;
        Gleam@denominator@1 -> gleam@int:to_float(erlang:element(12, Input)) / Gleam@denominator@1
    end) * 100.0,
    Atoms = (case gleam@int:to_float(erlang:element(9, Input)) of
        +0.0 -> +0.0;
        -0.0 -> -0.0;
        Gleam@denominator@2 -> gleam@int:to_float(erlang:element(8, Input)) / Gleam@denominator@2
    end) * 100.0,
    Ets = (case gleam@int:to_float(erlang:element(11, Input)) of
        +0.0 -> +0.0;
        -0.0 -> -0.0;
        Gleam@denominator@3 -> gleam@int:to_float(erlang:element(10, Input)) / Gleam@denominator@3
    end) * 100.0,
    {relative_system_limits, Processes, Ports, Atoms, Ets}.

-file("/Users/jonas/Projects/spectator/src/spectator/internal/components/dashboard_live.gleam", 116).
-spec do_refresh(model()) -> model().
do_refresh(Model) ->
    Memory_stats = begin
        _pipe = spectator_ffi:get_memory_statistics(),
        gleam@option:from_result(_pipe)
    end,
    Memory_relative = case Memory_stats of
        none ->
            none;

        {some, Stats} ->
            {some, get_relative_memory_stats(Stats)}
    end,
    System_info = begin
        _pipe@1 = spectator_ffi:get_system_info(),
        gleam@option:from_result(_pipe@1)
    end,
    System_limits = case System_info of
        none ->
            none;

        {some, Info} ->
            {some, get_relative_system_limits(Info)}
    end,
    erlang:setelement(
        6,
        erlang:setelement(
            5,
            erlang:setelement(
                4,
                erlang:setelement(3, Model, Memory_stats),
                Memory_relative
            ),
            System_info
        ),
        System_limits
    ).

-file("/Users/jonas/Projects/spectator/src/spectator/internal/components/dashboard_live.gleam", 52).
-spec init(list({binary(), binary()})) -> {model(), lustre@effect:effect(msg())}.
init(_) ->
    {do_refresh({model, none, none, none, none, none}),
        spectator@internal@common:emit_after(
            1000,
            refresh,
            none,
            fun(Field@0) -> {created_subject, Field@0} end
        )}.

-file("/Users/jonas/Projects/spectator/src/spectator/internal/components/dashboard_live.gleam", 130).
-spec update(model(), msg()) -> {model(), lustre@effect:effect(msg())}.
update(Model, Msg) ->
    case Msg of
        refresh ->
            {do_refresh(Model),
                spectator@internal@common:emit_after(
                    1000,
                    refresh,
                    erlang:element(2, Model),
                    fun(Field@0) -> {created_subject, Field@0} end
                )};

        {created_subject, Subject} ->
            {erlang:setelement(2, Model, {some, Subject}), lustre@effect:none()}
    end.

-file("/Users/jonas/Projects/spectator/src/spectator/internal/components/dashboard_live.gleam", 222).
-spec limit_label(binary(), integer(), integer(), float()) -> lustre@internals@vdom:element(any()).
limit_label(Label, Value, Limit, Percent) ->
    lustre@element@html:'div'(
        [lustre@attribute:class(<<"limit-item"/utf8>>)],
        [lustre@element@html:text(
                <<<<<<<<<<<<<<Label/binary, ": "/utf8>>/binary,
                                        (gleam@int:to_string(Value))/binary>>/binary,
                                    " / "/utf8>>/binary,
                                (gleam@int:to_string(Limit))/binary>>/binary,
                            " ("/utf8>>/binary,
                        (spectator@internal@common:format_percentage(Percent))/binary>>/binary,
                    ")"/utf8>>
            )]
    ).

-file("/Users/jonas/Projects/spectator/src/spectator/internal/components/dashboard_live.gleam", 237).
-spec info_item(binary(), binary()) -> lustre@internals@vdom:element(any()).
info_item(Label, Value) ->
    lustre@element@html:'div'(
        [lustre@attribute:class(<<"info-item"/utf8>>)],
        [lustre@element@html:'div'(
                [lustre@attribute:class(<<"info-label"/utf8>>)],
                [lustre@element@html:text(Label)]
            ),
            lustre@element@html:'div'(
                [lustre@attribute:class(<<"info-value"/utf8>>)],
                [lustre@element@html:text(Value)]
            )]
    ).

-file("/Users/jonas/Projects/spectator/src/spectator/internal/components/dashboard_live.gleam", 244).
-spec split_section(
    list(lustre@internals@vdom:element(AQHU)),
    list(lustre@internals@vdom:element(AQHU))
) -> lustre@internals@vdom:element(AQHU).
split_section(Left, Right) ->
    lustre@element@html:'div'(
        [lustre@attribute:class(<<"split"/utf8>>)],
        [lustre@element@html:'div'(
                [lustre@attribute:class(<<"split-left"/utf8>>)],
                Left
            ),
            lustre@element@html:'div'(
                [lustre@attribute:class(<<"split-right"/utf8>>)],
                Right
            )]
    ).

-file("/Users/jonas/Projects/spectator/src/spectator/internal/components/dashboard_live.gleam", 251).
-spec render_memory_section(
    spectator@internal@api:memory_statistics(),
    relative_memory_statistics()
) -> lustre@internals@vdom:element(any()).
render_memory_section(Memory_stats, Memory_relative) ->
    lustre@element@html:section(
        [],
        [lustre@element@html:h1(
                [],
                [lustre@element@html:text(<<"Memory Usage"/utf8>>)]
            ),
            spectator@internal@views@charts:column_chart(
                [{chart_segment,
                        <<"#EF5976"/utf8>>,
                        <<"Processes"/utf8>>,
                        erlang:element(2, Memory_relative)},
                    {chart_segment,
                        <<"#FDA870"/utf8>>,
                        <<"Code "/utf8>>,
                        erlang:element(3, Memory_relative)},
                    {chart_segment,
                        <<"#ECE27C"/utf8>>,
                        <<"ETS"/utf8>>,
                        erlang:element(4, Memory_relative)},
                    {chart_segment,
                        <<"#95EA8C"/utf8>>,
                        <<"Atoms"/utf8>>,
                        erlang:element(5, Memory_relative)},
                    {chart_segment,
                        <<"#91D0DA"/utf8>>,
                        <<"Binaries"/utf8>>,
                        erlang:element(6, Memory_relative)},
                    {chart_segment,
                        <<"#B498F6"/utf8>>,
                        <<"Other"/utf8>>,
                        erlang:element(7, Memory_relative)}]
            ),
            lustre@element@html:'div'(
                [lustre@attribute:class(<<"memory-breakdown"/utf8>>)],
                [spectator@internal@views@charts:legend_item(
                        <<"Total"/utf8>>,
                        <<"var(--background)"/utf8>>,
                        spectator@internal@views@display:storage(
                            erlang:element(2, Memory_stats)
                        )
                    ),
                    spectator@internal@views@charts:legend_item(
                        <<"Processes"/utf8>>,
                        <<"#EF5976"/utf8>>,
                        spectator@internal@views@display:storage(
                            erlang:element(3, Memory_stats)
                        )
                    ),
                    spectator@internal@views@charts:legend_item(
                        <<"Code"/utf8>>,
                        <<"#FDA870"/utf8>>,
                        spectator@internal@views@display:storage(
                            erlang:element(9, Memory_stats)
                        )
                    ),
                    spectator@internal@views@charts:legend_item(
                        <<"ETS"/utf8>>,
                        <<"#ECE27C"/utf8>>,
                        spectator@internal@views@display:storage(
                            erlang:element(10, Memory_stats)
                        )
                    ),
                    spectator@internal@views@charts:legend_item(
                        <<"Atoms"/utf8>>,
                        <<"#95EA8C"/utf8>>,
                        spectator@internal@views@display:storage(
                            erlang:element(6, Memory_stats)
                        )
                    ),
                    spectator@internal@views@charts:legend_item(
                        <<"Binaries"/utf8>>,
                        <<"#91D0DA"/utf8>>,
                        spectator@internal@views@display:storage(
                            erlang:element(8, Memory_stats)
                        )
                    ),
                    spectator@internal@views@charts:legend_item(
                        <<"Other"/utf8>>,
                        <<"#B498F6"/utf8>>,
                        spectator@internal@views@display:storage(
                            erlang:element(8, Memory_relative)
                        )
                    )]
            )]
    ).

-file("/Users/jonas/Projects/spectator/src/spectator/internal/components/dashboard_live.gleam", 152).
-spec view(model()) -> lustre@internals@vdom:element(msg()).
view(Model) ->
    _pipe = (gleam@option:then(
        erlang:element(3, Model),
        fun(Memory_stats) ->
            gleam@option:then(
                erlang:element(4, Model),
                fun(Memory_relative) ->
                    gleam@option:then(
                        erlang:element(5, Model),
                        fun(System_info) ->
                            gleam@option:then(
                                erlang:element(6, Model),
                                fun(System_limits) ->
                                    {some,
                                        lustre@element@html:'div'(
                                            [lustre@attribute:class(
                                                    <<"dashboard"/utf8>>
                                                )],
                                            [split_section(
                                                    [lustre@element@html:h1(
                                                            [],
                                                            [lustre@element@html:text(
                                                                    <<"System Information"/utf8>>
                                                                )]
                                                        ),
                                                        lustre@element@html:'div'(
                                                            [lustre@attribute:class(
                                                                    <<"info-container"/utf8>>
                                                                )],
                                                            [info_item(
                                                                    <<"Uptime"/utf8>>,
                                                                    erlang:element(
                                                                        2,
                                                                        System_info
                                                                    )
                                                                ),
                                                                info_item(
                                                                    <<"System Architecture"/utf8>>,
                                                                    erlang:element(
                                                                        3,
                                                                        System_info
                                                                    )
                                                                ),
                                                                info_item(
                                                                    <<"Runtime Version"/utf8>>,
                                                                    erlang:element(
                                                                        4,
                                                                        System_info
                                                                    )
                                                                ),
                                                                info_item(
                                                                    <<"OTP Release"/utf8>>,
                                                                    erlang:element(
                                                                        5,
                                                                        System_info
                                                                    )
                                                                ),
                                                                info_item(
                                                                    <<"Schedulers"/utf8>>,
                                                                    <<<<(gleam@int:to_string(
                                                                                erlang:element(
                                                                                    7,
                                                                                    System_info
                                                                                )
                                                                            ))/binary,
                                                                            " / "/utf8>>/binary,
                                                                        (gleam@int:to_string(
                                                                            erlang:element(
                                                                                6,
                                                                                System_info
                                                                            )
                                                                        ))/binary>>
                                                                )]
                                                        )],
                                                    [lustre@element@html:h1(
                                                            [],
                                                            [lustre@element@html:text(
                                                                    <<"System Limits"/utf8>>
                                                                )]
                                                        ),
                                                        spectator@internal@views@charts:meter(
                                                            erlang:element(
                                                                2,
                                                                System_limits
                                                            )
                                                        ),
                                                        limit_label(
                                                            <<"Processes"/utf8>>,
                                                            erlang:element(
                                                                14,
                                                                System_info
                                                            ),
                                                            erlang:element(
                                                                15,
                                                                System_info
                                                            ),
                                                            erlang:element(
                                                                2,
                                                                System_limits
                                                            )
                                                        ),
                                                        spectator@internal@views@charts:meter(
                                                            erlang:element(
                                                                3,
                                                                System_limits
                                                            )
                                                        ),
                                                        limit_label(
                                                            <<"Ports"/utf8>>,
                                                            erlang:element(
                                                                12,
                                                                System_info
                                                            ),
                                                            erlang:element(
                                                                13,
                                                                System_info
                                                            ),
                                                            erlang:element(
                                                                3,
                                                                System_limits
                                                            )
                                                        ),
                                                        spectator@internal@views@charts:meter(
                                                            erlang:element(
                                                                4,
                                                                System_limits
                                                            )
                                                        ),
                                                        limit_label(
                                                            <<"Atoms"/utf8>>,
                                                            erlang:element(
                                                                8,
                                                                System_info
                                                            ),
                                                            erlang:element(
                                                                9,
                                                                System_info
                                                            ),
                                                            erlang:element(
                                                                4,
                                                                System_limits
                                                            )
                                                        ),
                                                        spectator@internal@views@charts:meter(
                                                            erlang:element(
                                                                5,
                                                                System_limits
                                                            )
                                                        ),
                                                        limit_label(
                                                            <<"ETS"/utf8>>,
                                                            erlang:element(
                                                                10,
                                                                System_info
                                                            ),
                                                            erlang:element(
                                                                11,
                                                                System_info
                                                            ),
                                                            erlang:element(
                                                                5,
                                                                System_limits
                                                            )
                                                        )]
                                                ),
                                                render_memory_section(
                                                    Memory_stats,
                                                    Memory_relative
                                                )]
                                        )}
                                end
                            )
                        end
                    )
                end
            )
        end
    )),
    gleam@option:unwrap(
        _pipe,
        lustre@element@html:'div'(
            [lustre@attribute:class(<<"component-error"/utf8>>)],
            [lustre@element@html:text(<<"Could not fetch dashboard data"/utf8>>)]
        )
    ).

-file("/Users/jonas/Projects/spectator/src/spectator/internal/components/dashboard_live.gleam", 16).
-spec app() -> lustre:app(list({binary(), binary()}), model(), msg()).
app() ->
    lustre:application(fun init/1, fun update/2, fun view/1).