diff --git a/stages/3/.gitignore b/stages/3/.gitignore new file mode 100644 index 0000000..3bd52a1 --- /dev/null +++ b/stages/3/.gitignore @@ -0,0 +1,2 @@ +elm-stuff +elm.js diff --git a/stages/3/FunkHub.elm b/stages/3/FunkHub.elm new file mode 100644 index 0000000..0adc091 --- /dev/null +++ b/stages/3/FunkHub.elm @@ -0,0 +1,36 @@ +module FunkHub (..) where + +import Html exposing (div, button, text) +import Html.Events exposing (onClick) +import StartApp.Simple as StartApp + + +main = + StartApp.start { model = model, view = view, update = update } + + +model = + 0 + + +view address model = + div + [] + [ button [ onClick address Decrement ] [ text "-" ] + , div [] [ text (toString model) ] + , button [ onClick address Increment ] [ text "+" ] + ] + + +type Action + = Increment + | Decrement + + +update action model = + case action of + Increment -> + model + 1 + + Decrement -> + model - 1 diff --git a/stages/3/elm-package.json b/stages/3/elm-package.json new file mode 100644 index 0000000..eb28a1e --- /dev/null +++ b/stages/3/elm-package.json @@ -0,0 +1,17 @@ +{ + "version": "1.0.0", + "summary": "Like GitHub, but funkier.", + "repository": "https://github.com/evancz/start-app.git", + "license": "BSD-3-Clause", + "source-directories": [ + "." + ], + "exposed-modules": [], + "dependencies": { + "elm-lang/core": "3.0.0 <= v < 4.0.0", + "evancz/elm-effects": "2.0.0 <= v < 3.0.0", + "evancz/elm-html": "4.0.0 <= v < 5.0.0", + "evancz/start-app": "2.0.0 <= v < 3.0.0" + }, + "elm-version": "0.16.0 <= v < 0.17.0" +} diff --git a/stages/3/index.html b/stages/3/index.html new file mode 100644 index 0000000..3c03303 --- /dev/null +++ b/stages/3/index.html @@ -0,0 +1,26 @@ + + + +
+ +