diff options
Diffstat (limited to 'test/counter.gleam')
-rw-r--r-- | test/counter.gleam | 73 |
1 files changed, 73 insertions, 0 deletions
diff --git a/test/counter.gleam b/test/counter.gleam new file mode 100644 index 0000000..5a5326b --- /dev/null +++ b/test/counter.gleam @@ -0,0 +1,73 @@ +// IMPORTS --------------------------------------------------------------------- + +import gleam/int +import gleam/io +import gleam/option.{None} +import lustre +import lustre/element.{Element, button, div, text} +import lustre/event + +// MAIN ------------------------------------------------------------------------ + +pub fn main() { + // A `simple` lustre application doesn't produce `Cmd`s. These are best to + // start with if you're just getting started with lustre or you know you don't + // need the runtime to manage any side effects. + let app = lustre.simple(init, update, view) + let assert Ok(dispatch) = lustre.start(app, "body") + + dispatch(Incr) + dispatch(Incr) + dispatch(Incr) +} + +// MODEL ----------------------------------------------------------------------- + +type Model = + Int + +fn init() -> Model { + 0 +} + +// UPDATE ---------------------------------------------------------------------- + +type Msg { + Incr + Decr + Reset +} + +fn update(model: Model, msg: Msg) -> Model { + case msg { + Incr -> model + 1 + Decr -> model - 1 + Reset -> 0 + } +} + +// VIEW ------------------------------------------------------------------------ + +fn view(model: Model) -> Element(Msg) { + div( + [], + [ + button([event.on_click(Incr)], [text("+")]), + button([event.on_click(Decr)], [text("-")]), + button([event.on_click(Reset)], [text("Reset")]), + button( + [ + event.on( + "click", + fn(_) { + io.println("Do nothing") + None + }, + ), + ], + [text("Do Nothing")], + ), + div([], [text(int.to_string(model))]), + ], + ) +} |