Current section
Files
Jump to
Current section
Files
src/glome.erl
-module(glome).
-compile(no_auto_import).
-export([main/0]).
-spec main() -> {ok, nil} | {error, glome@core@error:glome_error()}.
main() ->
{some, Token@1} = case glome@homeassistant@environment:get_access_token() of
{some, Token} -> {some, Token};
_try ->
erlang:error(#{gleam_error => assert,
message => <<"Assertion pattern match failed"/utf8>>,
value => _try,
module => <<"glome"/utf8>>,
function => <<"main"/utf8>>,
line => 10})
end,
{ok, _@2} = case glome@homeassistant:connect(
{configuration, <<"192.168.178.62"/utf8>>, 8123, Token@1},
fun(Home_assistant) ->
_pipe = Home_assistant,
glome@homeassistant:add_handler(
_pipe,
{entity_selector, media_player, all},
fun all_lights_handler/2
)
end
) of
{ok, _@1} -> {ok, _@1};
_try@1 ->
erlang:error(#{gleam_error => assert,
message => <<"Assertion pattern match failed"/utf8>>,
value => _try@1,
module => <<"glome"/utf8>>,
function => <<"main"/utf8>>,
line => 11})
end.
-spec all_lights_handler(
glome@homeassistant@state_change_event:state_change_event(),
glome@homeassistant:home_assistant()
) -> {ok, nil} | {error, glome@core@error:glome_error()}.
all_lights_handler(Data, _) ->
gleam@io:debug(Data),
{ok, nil}.