whistle

defmodule Whistle do
  @moduledoc """
  Documentation for Whistle.
  """

  alias Whistle.Html

  def init() do
    0
  end

  def update(model, {:increment}) do
    model + 1
  end

  def update(model, {:decrement}) do
    model - 1
  end

  def view(model) do
    number = model |> Integer.to_string() |> Html.text()

    {0, Html.div([class: "text"], [
      Html.p([], [Html.text("hello")]),
      Html.p([], [number])
    ])}
  end
end