Initial import of stage 3.

This commit is contained in:
Richard Feldman
2016-03-04 01:57:40 -08:00
parent ef83083c31
commit 8c0f9167f8
6 changed files with 99 additions and 0 deletions

2
stages/3/.gitignore vendored Normal file
View File

@@ -0,0 +1,2 @@
elm-stuff
elm.js

36
stages/3/FunkHub.elm Normal file
View File

@@ -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

17
stages/3/elm-package.json Normal file
View File

@@ -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"
}

26
stages/3/index.html Normal file
View File

@@ -0,0 +1,26 @@
<!DOCTYPE HTML>
<html>
<head>
<meta charset="UTF-8">
<title>FunkHub</title>
<script type="text/javascript" src="elm.js"></script>
<!-- Uncomment the below line to enable elm-reactor support. -->
<!-- <script type="text/javascript" src="/_reactor/debug.js"></script> -->
<link href='http://fonts.googleapis.com/css?family=Germania+One' rel='stylesheet' type='text/css'>
<link rel="stylesheet" href="style.css">
</head>
<body>
</body>
<script type="text/javascript">
var app = Elm.fullscreen(Elm.FunkHub, {});
// Uncomment this line and comment out the above to enable elm-reactor support.
// var app = Elm.fullscreenDebug('FunkHub', 'FunkHub.elm');
</script>
</html>

18
stages/3/package.json Normal file
View File

@@ -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"
}

0
stages/3/style.css Normal file
View File