atradio_gleam

-module(smoke).
-compile([no_auto_import, nowarn_unused_vars, nowarn_unused_function, nowarn_nomatch, inline]).
-define(FILEPATH, "src/smoke.gleam").
-export([main/0]).

-if(?OTP_RELEASE >= 27).
-define(MODULEDOC(Str), -moduledoc(Str)).
-define(DOC(Str), -doc(Str)).
-else.
-define(MODULEDOC(Str), -compile([])).
-define(DOC(Str), -compile([])).
-endif.

?MODULEDOC(" Live read smoke test. Run: gleam run -m smoke\n").

-file("src/smoke.gleam", 9).
-spec main() -> nil.
main() ->
    Recent = atradio_gleam:recent_stations(3),
    First = case gleam@list:first(Recent) of
        {ok, S} ->
            erlang:element(3, S);

        {error, _} ->
            <<"-"/utf8>>
    end,
    gleam_stdlib:println(
        <<<<<<"recent_stations: "/utf8,
                    (erlang:integer_to_binary(erlang:length(Recent)))/binary>>/binary,
                " — first: "/utf8>>/binary,
            First/binary>>
    ),
    gleam_stdlib:println(
        <<"popular_stations: "/utf8,
            (erlang:integer_to_binary(
                erlang:length(atradio_gleam:popular_stations(3))
            ))/binary>>
    ),
    gleam_stdlib:println(
        <<"global_recently_played: "/utf8,
            (erlang:integer_to_binary(
                erlang:length(atradio_gleam:global_recently_played(3))
            ))/binary>>
    ),
    Rk = atradio:favorite_rkey(
        <<"rb:00000000-0000-0000-0000-000000000000"/utf8>>
    ),
    gleam_stdlib:println(
        <<<<<<<<"favorite_rkey: "/utf8, Rk/binary>>/binary, " ("/utf8>>/binary,
                (erlang:integer_to_binary(string:length(Rk)))/binary>>/binary,
            ")"/utf8>>
    ),
    case string:length(Rk) =:= 16 of
        true ->
            gleam_stdlib:println(<<"Gleam read smoke OK"/utf8>>);

        false ->
            erlang:error(#{gleam_error => panic,
                    message => <<"favorite rkey must be 16 chars"/utf8>>,
                    file => <<?FILEPATH/utf8>>,
                    module => <<"smoke"/utf8>>,
                    function => <<"main"/utf8>>,
                    line => 33})
    end.