nicck · May 17, 2017 10:42 · May 17, 2017
diff --git a/Counter.elm b/Counter.elm
@@ -0,0 +1,32 @@
+module Counter exposing (view, update, Msg)
+
+import Data exposing (Model)
+import Html exposing (Html, body, div, button, text)
+import Html.Attributes exposing (attribute, class)
+-- import Html.Events exposing (onClick)
+
+type Msg
+    = Increment Int
+    | Decrement Int
+
+update : Msg -> Model -> Model
+update msg model =
+    case msg of
+        Increment off ->
+            { model | counter = model.counter + off }
+
+        Decrement off ->
+            { model | counter = model.counter - off }
+
+view : String -> Model -> Html msg
+view label model =
+    div [ class "counter" ]
+        -- [ button [ onClick (Decrement 2) ] [ text "-" ]
+        [ button [ ] [ text "-" ]
+        , div []
+            [ text (label ++ ": ")
+            , text (toString model.counter)
+            ]
+        -- , button [ onClick (Increment 2) ] [ text "+" ]
+        , button [  ] [ text "+" ]
+        ]
diff --git a/Data.elm b/Data.elm
@@ -0,0 +1,5 @@
+module Data exposing (Model)
+
+type alias Model =
+    { counter : Int
+    }
diff --git a/Main.elm b/Main.elm
@@ -0,0 +1,26 @@
+module Main exposing (..)
+
+import Html exposing (Html, body, div, button, text)
+import Html.Attributes exposing (attribute, class)
+import Counter
+import Data exposing (Model)
+
+main : Program Never Model Msg
+main =
+    Html.beginnerProgram { model = model, view = view, update = update }
+
+model : Model
+model = { counter = 10 }
+
+type Msg = Counter.Msg | Int
+
+update : Msg -> Model -> Model
+update msg model =
+    case msg of
+        Counter.Msg ->
+            Counter.update msg model
+
+
+view : Model -> Html Msg
+view model =
+    body [ attribute "id" "main" ] [ Counter.view "Counter" model ]