From 8c0f9167f8085ca02a5593afcf6b90a5c211fdd5 Mon Sep 17 00:00:00 2001 From: Richard Feldman Date: Fri, 4 Mar 2016 01:57:40 -0800 Subject: [PATCH] Initial import of stage 3. --- stages/3/.gitignore | 2 ++ stages/3/FunkHub.elm | 36 ++++++++++++++++++++++++++++++++++++ stages/3/elm-package.json | 17 +++++++++++++++++ stages/3/index.html | 26 ++++++++++++++++++++++++++ stages/3/package.json | 18 ++++++++++++++++++ stages/3/style.css | 0 6 files changed, 99 insertions(+) create mode 100644 stages/3/.gitignore create mode 100644 stages/3/FunkHub.elm create mode 100644 stages/3/elm-package.json create mode 100644 stages/3/index.html create mode 100644 stages/3/package.json create mode 100644 stages/3/style.css 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 @@ + + + + + + FunkHub + + + + + + + + + + + + + + + diff --git a/stages/3/package.json b/stages/3/package.json new file mode 100644 index 0000000..d4047ce --- /dev/null +++ b/stages/3/package.json @@ -0,0 +1,18 @@ +{ + "name": "funk-hub", + "version": "1.0.0", + "description": "Like GitHub, but funkier.", + "scripts": { + "build": "elm-make FunkHub.elm --output elm.js" + }, + "repository": { + "type": "git", + "url": "git+https://github.com/rtfeldman/elm-workshop.git" + }, + "author": "Richard Feldman", + "license": "BSD-3-Clause", + "bugs": { + "url": "https://github.com/rtfeldman/elm-workshop/issues" + }, + "homepage": "https://github.com/rtfeldman/elm-workshop#readme" +} diff --git a/stages/3/style.css b/stages/3/style.css new file mode 100644 index 0000000..e69de29