Packages
lustre
1.0.0
5.7.1
5.7.0
5.6.0
5.5.2
5.5.1
5.5.0
5.4.0
5.3.5
5.3.4
5.3.3
5.3.2
5.3.1
5.3.0
5.2.1
5.2.0
5.1.1
5.1.0
5.0.3
5.0.2
5.0.1
5.0.0
4.6.4
4.6.3
4.6.2
4.6.1
4.6.0
4.5.1
4.5.0
4.4.4
4.4.3
4.4.1
4.4.0
4.3.6
4.3.5
4.3.4
4.3.3
4.3.2
4.3.1
4.3.0
4.2.6
4.2.5
4.2.4
4.2.3
4.2.2
4.2.1
4.2.0
4.1.8
4.1.7
4.1.6
4.1.5
4.1.4
4.1.3
4.1.2
4.1.1
4.1.0
4.0.0
4.0.0-rc1
4.0.0-rc.2
3.1.4
3.1.3
3.1.2
3.1.1
3.1.0
3.0.12
3.0.11
3.0.10
3.0.9
3.0.8
3.0.7
3.0.6
3.0.5
3.0.4
3.0.3
3.0.2
3.0.1
3.0.0
3.0.0-rc.8
3.0.0-rc.7
3.0.0-rc.6
3.0.0-rc.5
3.0.0-rc.4
3.0.0-rc.3
3.0.0-rc.2
3.0.0-rc.1
2.0.1
2.0.0
1.3.0
1.2.0
1.1.0
1.0.0
Create HTML templates, single page applications, Web Components, and real-time server components in Gleam!
Current section
Files
Jump to
Current section
Files
src/lustre@event.erl
-module(lustre@event).
-compile(no_auto_import).
-export([on/2, dispatch/1, on_click/1, on_mouse_down/1, on_mouse_up/1, on_mouse_enter/1, on_mouse_leave/1, on_mouse_over/1, on_mouse_out/1, on_keypress/1, on_keydown/1, on_keyup/1, on_input/1, on_check/1, on_submit/1, on_focus/1, on_blur/1]).
-spec on(binary(), fun((gleam@dynamic:dynamic(), fun((FQN) -> nil)) -> nil)) -> lustre@attribute:attribute(FQN).
on(Name, Handler) ->
lustre@attribute:event(Name, Handler).
-spec dispatch(FQP) -> fun((fun((FQP) -> nil)) -> nil).
dispatch(Action) ->
fun(Dispatch) -> Dispatch(Action) end.
-spec on_click(fun((fun((FQQ) -> nil)) -> nil)) -> lustre@attribute:attribute(FQQ).
on_click(Handler) ->
on(<<"click"/utf8>>, fun(_, Dispatch) -> Handler(Dispatch) end).
-spec on_mouse_down(fun((fun((FQS) -> nil)) -> nil)) -> lustre@attribute:attribute(FQS).
on_mouse_down(Handler) ->
on(<<"mousedown"/utf8>>, fun(_, Dispatch) -> Handler(Dispatch) end).
-spec on_mouse_up(fun((fun((FQU) -> nil)) -> nil)) -> lustre@attribute:attribute(FQU).
on_mouse_up(Handler) ->
on(<<"mouseup"/utf8>>, fun(_, Dispatch) -> Handler(Dispatch) end).
-spec on_mouse_enter(fun((fun((FQW) -> nil)) -> nil)) -> lustre@attribute:attribute(FQW).
on_mouse_enter(Handler) ->
on(<<"mouseenter"/utf8>>, fun(_, Dispatch) -> Handler(Dispatch) end).
-spec on_mouse_leave(fun((fun((FQY) -> nil)) -> nil)) -> lustre@attribute:attribute(FQY).
on_mouse_leave(Handler) ->
on(<<"mouseleave"/utf8>>, fun(_, Dispatch) -> Handler(Dispatch) end).
-spec on_mouse_over(fun((fun((FRA) -> nil)) -> nil)) -> lustre@attribute:attribute(FRA).
on_mouse_over(Handler) ->
on(<<"mouseover"/utf8>>, fun(_, Dispatch) -> Handler(Dispatch) end).
-spec on_mouse_out(fun((fun((FRC) -> nil)) -> nil)) -> lustre@attribute:attribute(FRC).
on_mouse_out(Handler) ->
on(<<"mouseout"/utf8>>, fun(_, Dispatch) -> Handler(Dispatch) end).
-spec on_keypress(fun((binary(), fun((FRE) -> nil)) -> nil)) -> lustre@attribute:attribute(FRE).
on_keypress(Handler) ->
on(
<<"keypress"/utf8>>,
fun(E, Dispatch) ->
{ok, Key@1} = case begin
_pipe = E,
(gleam@dynamic:field(<<"key"/utf8>>, fun gleam@dynamic:string/1))(
_pipe
)
end of
{ok, Key} -> {ok, Key};
_try ->
erlang:error(#{gleam_error => assert,
message => <<"Assertion pattern match failed"/utf8>>,
value => _try,
module => <<"lustre/event"/utf8>>,
function => <<"on_keypress"/utf8>>,
line => 63})
end,
Handler(Key@1, Dispatch)
end
).
-spec on_keydown(fun((binary(), fun((FRG) -> nil)) -> nil)) -> lustre@attribute:attribute(FRG).
on_keydown(Handler) ->
on(
<<"keydown"/utf8>>,
fun(E, Dispatch) ->
{ok, Key@1} = case begin
_pipe = E,
(gleam@dynamic:field(<<"key"/utf8>>, fun gleam@dynamic:string/1))(
_pipe
)
end of
{ok, Key} -> {ok, Key};
_try ->
erlang:error(#{gleam_error => assert,
message => <<"Assertion pattern match failed"/utf8>>,
value => _try,
module => <<"lustre/event"/utf8>>,
function => <<"on_keydown"/utf8>>,
line => 71})
end,
Handler(Key@1, Dispatch)
end
).
-spec on_keyup(fun((binary(), fun((FRI) -> nil)) -> nil)) -> lustre@attribute:attribute(FRI).
on_keyup(Handler) ->
on(
<<"keyup"/utf8>>,
fun(E, Dispatch) ->
{ok, Key@1} = case begin
_pipe = E,
(gleam@dynamic:field(<<"key"/utf8>>, fun gleam@dynamic:string/1))(
_pipe
)
end of
{ok, Key} -> {ok, Key};
_try ->
erlang:error(#{gleam_error => assert,
message => <<"Assertion pattern match failed"/utf8>>,
value => _try,
module => <<"lustre/event"/utf8>>,
function => <<"on_keyup"/utf8>>,
line => 79})
end,
Handler(Key@1, Dispatch)
end
).
-spec on_input(fun((binary(), fun((FRK) -> nil)) -> nil)) -> lustre@attribute:attribute(FRK).
on_input(Handler) ->
on(
<<"input"/utf8>>,
fun(E, Dispatch) ->
{ok, Value@1} = case begin
_pipe = E,
(gleam@dynamic:field(
<<"target"/utf8>>,
gleam@dynamic:field(
<<"value"/utf8>>,
fun gleam@dynamic:string/1
)
))(_pipe)
end of
{ok, Value} -> {ok, Value};
_try ->
erlang:error(#{gleam_error => assert,
message => <<"Assertion pattern match failed"/utf8>>,
value => _try,
module => <<"lustre/event"/utf8>>,
function => <<"on_input"/utf8>>,
line => 90})
end,
Handler(Value@1, Dispatch)
end
).
-spec on_check(fun((boolean(), fun((FRM) -> nil)) -> nil)) -> lustre@attribute:attribute(FRM).
on_check(Handler) ->
on(
<<"check"/utf8>>,
fun(E, Dispatch) ->
{ok, Value@1} = case begin
_pipe = E,
(gleam@dynamic:field(
<<"target"/utf8>>,
gleam@dynamic:field(
<<"checked"/utf8>>,
fun gleam@dynamic:bool/1
)
))(_pipe)
end of
{ok, Value} -> {ok, Value};
_try ->
erlang:error(#{gleam_error => assert,
message => <<"Assertion pattern match failed"/utf8>>,
value => _try,
module => <<"lustre/event"/utf8>>,
function => <<"on_check"/utf8>>,
line => 98})
end,
Handler(Value@1, Dispatch)
end
).
-spec on_submit(fun((fun((FRO) -> nil)) -> nil)) -> lustre@attribute:attribute(FRO).
on_submit(Handler) ->
on(<<"submit"/utf8>>, fun(_, Dispatch) -> Handler(Dispatch) end).
-spec on_focus(fun((fun((FRQ) -> nil)) -> nil)) -> lustre@attribute:attribute(FRQ).
on_focus(Handler) ->
on(<<"focus"/utf8>>, fun(_, Dispatch) -> Handler(Dispatch) end).
-spec on_blur(fun((fun((FRS) -> nil)) -> nil)) -> lustre@attribute:attribute(FRS).
on_blur(Handler) ->
on(<<"blur"/utf8>>, fun(_, Dispatch) -> Handler(Dispatch) end).