Implementation of the HelloWorld receipt using Concur (#166)

gcsolaroli · Giulio Cesare Solaroli · milesfrain · web-flow · commit 62e0cd46cdee · 2020-07-12T12:37:08.000-07:00
* Implementation of the HelloWorld receipt using Concur

* Update recipes/HelloConcur/README.md

Co-authored-by: milesfrain &lt;milesfrain@users.noreply.github.com&gt;

* Fixed readme

Fixed readme applying the `make readme` command.

Co-authored-by: Giulio Cesare Solaroli &lt;giuliocesare.solaroli@curaenergy.it&gt;
Co-authored-by: milesfrain &lt;milesfrain@users.noreply.github.com&gt;
diff --git a/README.md b/README.md
@@ -102,6 +102,7 @@ Running a web-compatible recipe:
 |   | :heavy_check_mark: | [FormsReactHooks](recipes/FormsReactHooks) | A React port of the ["User Interface - Forms" Elm Example](https://elm-lang.org/examples/forms). |
 |   | :heavy_check_mark: | [GroceriesHalogenHooks](recipes/GroceriesHalogenHooks) | A Halogen port of the ["HTML - Groceries" Elm Example](https://elm-lang.org/examples). |
 |   | :heavy_check_mark: | [GroceriesReactHooks](recipes/GroceriesReactHooks) | A React port of the ["HTML - Groceries" Elm Example](https://elm-lang.org/examples). |
+|   | :heavy_check_mark: | [HelloConcur](recipes/HelloConcur) | A Concur port of the ["HTML - Hello" Elm Example](https://elm-lang.org/examples/hello). |
 |   | :heavy_check_mark: | [HelloHalogenHooks](recipes/HelloHalogenHooks) | A Halogen port of the ["HTML - Hello" Elm Example](https://elm-lang.org/examples). |
 |   | :heavy_check_mark: | [HelloReactHooks](recipes/HelloReactHooks) | A React port of the ["HTML - Hello" Elm Example](https://elm-lang.org/examples). |
 | :heavy_check_mark: | :heavy_check_mark: | [HelloWorldLog](recipes/HelloWorldLog) | This recipe shows how to run a simple "Hello world!" program in either the node.js or web browser console. |
diff --git a/recipes/HelloConcur/.gitignore b/recipes/HelloConcur/.gitignore
@@ -0,0 +1,15 @@
+/bower_components/
+/node_modules/
+/.pulp-cache/
+/output/
+/generated-docs/
+/.psc-package/
+/.psc*
+/.purs*
+/.psa*
+/.spago
+/.cache/
+/dist/
+/web-dist/
+/prod-dist/
+/prod/
diff --git a/recipes/HelloConcur/README.md b/recipes/HelloConcur/README.md
@@ -0,0 +1,9 @@
+# HelloConcur
+
+A Concur port of the ["HTML - Hello" Elm Example](https://elm-lang.org/examples/hello).
+
+## Expected Behavior:
+
+### Browser
+
+The browser will display "Hello!" as an html element.
diff --git a/recipes/HelloConcur/spago.dhall b/recipes/HelloConcur/spago.dhall
@@ -0,0 +1,10 @@
+{ name = "HelloConcur"
+, dependencies =
+  [ "console"
+  , "effect"
+  , "concur-react"
+  , "psci-support"
+  ]
+, packages = ../../packages.dhall
+, sources = [ "recipes/HelloConcur/src/**/*.purs" ]
+}
diff --git a/recipes/HelloConcur/src/Main.purs b/recipes/HelloConcur/src/Main.purs
@@ -0,0 +1,10 @@
+module HelloConcur.Main where
+
+import Prelude
+import Effect (Effect)
+import Concur.React.Run (runWidgetInDom)
+import Concur.React.DOM (text)
+
+main :: Effect Unit
+main = do
+  runWidgetInDom "app" (text "Hello!")
diff --git a/recipes/HelloConcur/web/index.html b/recipes/HelloConcur/web/index.html
@@ -0,0 +1,14 @@
+<!DOCTYPE html>
+<html>
+
+<head>
+  <meta charset="UTF-8">
+  <title>Hello Concur</title>
+</head>
+
+<body>
+  <div id="app"></div>
+  <script src="./index.js"></script>
+</body>
+
+</html>
diff --git a/recipes/HelloConcur/web/index.js b/recipes/HelloConcur/web/index.js
@@ -0,0 +1,2 @@
+"use strict";
+require("../../../output/HelloConcur.Main/index.js").main();

Original file line number	Diff line number	Diff line change
`@@ -0,0 +1,2 @@`
	`1`	`+"use strict";`
	`2`	`+require("../../../output/HelloConcur.Main/index.js").main();`