Packages
lustre
4.5.1
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([custom/1, from/1, event/2, none/0, batch/1, map/2, perform/4]).
-export_type([effect/1, actions/1]).
-opaque effect(NQJ) :: {effect, list(fun((actions(NQJ)) -> nil))}.
-type actions(NQK) :: {actions,
fun((NQK) -> nil),
fun((binary(), gleam@json:json()) -> nil),
fun((gleam@erlang@process:selector(NQK)) -> nil)}.
-file("/home/runner/work/lustre/lustre/src/lustre/effect.gleam", 124).
-spec custom(
fun((fun((NQP) -> nil), fun((binary(), gleam@json:json()) -> nil), fun((gleam@erlang@process:selector(NQP)) -> nil)) -> nil)
) -> effect(NQP).
custom(Run) ->
{effect,
[fun(Actions) ->
Run(
erlang:element(2, Actions),
erlang:element(3, Actions),
erlang:element(4, Actions)
)
end]}.
-file("/home/runner/work/lustre/lustre/src/lustre/effect.gleam", 103).
-spec from(fun((fun((NQL) -> nil)) -> nil)) -> effect(NQL).
from(Effect) ->
custom(fun(Dispatch, _, _) -> Effect(Dispatch) end).
-file("/home/runner/work/lustre/lustre/src/lustre/effect.gleam", 115).
-spec event(binary(), gleam@json:json()) -> effect(any()).
event(Name, Data) ->
custom(fun(_, Emit, _) -> Emit(Name, Data) end).
-file("/home/runner/work/lustre/lustre/src/lustre/effect.gleam", 139).
-spec none() -> effect(any()).
none() ->
{effect, []}.
-file("/home/runner/work/lustre/lustre/src/lustre/effect.gleam", 157).
-spec batch(list(effect(NQU))) -> effect(NQU).
batch(Effects) ->
{effect,
(gleam@list:fold(
Effects,
[],
fun(B, _use1) ->
{effect, A} = _use1,
lists:append(B, A)
end
))}.
-file("/home/runner/work/lustre/lustre/src/lustre/effect.gleam", 171).
-spec map(effect(NQY), fun((NQY) -> NRA)) -> effect(NRA).
map(Effect, F) ->
{effect,
(gleam@list:map(
erlang:element(2, Effect),
fun(Eff) ->
fun(Actions) ->
Eff(
{actions,
fun(Msg) -> (erlang:element(2, Actions))(F(Msg)) end,
erlang:element(3, Actions),
fun(Selector) ->
(erlang:element(4, Actions))(
gleam_erlang_ffi:map_selector(Selector, F)
)
end}
)
end
end
))}.
-file("/home/runner/work/lustre/lustre/src/lustre/effect.gleam", 223).
-spec perform(
effect(NRC),
fun((NRC) -> nil),
fun((binary(), gleam@json:json()) -> nil),
fun((gleam@erlang@process:selector(NRC)) -> nil)
) -> nil.
perform(Effect, Dispatch, Emit, Select) ->
Actions = {actions, Dispatch, Emit, Select},
gleam@list:each(erlang:element(2, Effect), fun(Eff) -> Eff(Actions) end).