Packages
lustre
4.2.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@effect.erl
-module(lustre@effect).
-compile([no_auto_import, nowarn_unused_vars, nowarn_unused_function, nowarn_nomatch]).
-export([from/1, event/2, none/0, batch/1, map/2, perform/3]).
-export_type([effect/1]).
-opaque effect(MZM) :: {effect,
list(fun((fun((MZM) -> nil), fun((binary(), gleam@json:json()) -> nil)) -> nil))}.
-spec from(fun((fun((MZN) -> nil)) -> nil)) -> effect(MZN).
from(Effect) ->
{effect, [fun(Dispatch, _) -> Effect(Dispatch) end]}.
-spec event(binary(), gleam@json:json()) -> effect(any()).
event(Name, Data) ->
{effect, [fun(_, Emit) -> Emit(Name, Data) end]}.
-spec none() -> effect(any()).
none() ->
{effect, []}.
-spec batch(list(effect(MZT))) -> effect(MZT).
batch(Effects) ->
{effect,
(gleam@list:fold(
Effects,
[],
fun(B, _use1) ->
{effect, A} = _use1,
gleam@list:append(B, A)
end
))}.
-spec map(effect(MZX), fun((MZX) -> MZZ)) -> effect(MZZ).
map(Effect, F) ->
{effect,
(gleam@list:map(
erlang:element(2, Effect),
fun(Eff) ->
fun(Dispatch, Emit) ->
Eff(fun(Msg) -> Dispatch(F(Msg)) end, Emit)
end
end
))}.
-spec perform(
effect(NAB),
fun((NAB) -> nil),
fun((binary(), gleam@json:json()) -> nil)
) -> nil.
perform(Effect, Dispatch, Emit) ->
gleam@list:each(
erlang:element(2, Effect),
fun(Eff) -> Eff(Dispatch, Emit) end
).