Merge branch 'release/0.5.1'

cwmyers · Sep 23, 2013 · 3ebe3ff · 3ebe3ff
2 parents 0f58d71 + 7501e32
commit 3ebe3ff
Show file tree

Hide file tree

Showing 10 changed files with 2,813 additions and 29 deletions.
diff --git a/.gitignore b/.gitignore
@@ -5,11 +5,11 @@ target
 tmp
 .history
 dist
-/.idea
-/*.iml
-/out
-/.idea_modules
-/.classpath
-/.project
-/RUNNING_PID
-/.settings
+.idea
+*.iml
+out
+.idea_modules
+.classpath
+.project
+RUNNING_PID
+.settings
diff --git a/bower.json b/bower.json
@@ -1,6 +1,6 @@
 {
   "name": "monad.js",
-  "version": "0.5.0",
+  "version": "0.5.1",
   "main": "src/main/javascript/monad.js",
   "ignore": [
     "**/.*",

diff --git a/example/IO.html b/example/IO.html
@@ -0,0 +1,99 @@
+<!DOCTYPE html>
+<html>
+<head>
+    <script src="../src/main/javascript/monad.js" type="text/javascript"></script>
+    <script src="bower_components/underscore/underscore-min.js" type="text/javascript"></script>
+    <script src="bower_components/jquery/jquery.min.js" type="text/javascript"></script>
+    <script src="wu-0.1.8.min.js" type="text/javascript"></script>
+    <title>Example IO page</title>
+</head>
+<body>
+
+<span id="SomeId">Some text</span>
+
+<div>
+    <span>first name: <input type="text" id="firstName"/> </span>
+    <span>last name: <input type="text" id="lastName"/> </span>
+    <span>postcode: <input type="text" id="postcode"/> </span>
+</div>
+
+<div>
+    <span>Result:</span> <span id="result"></span>
+</div>
+
+<script>
+
+    Function.prototype.autoCurry = function (n) {
+        return wu.autoCurry(this, n);
+    }
+
+    function idFunction(id) {
+        return id
+    }
+
+    var happyPerson = function (f, l, p) {
+        return "Welcome " + f + " " + l + " who lives at " + p
+    }.autoCurry()
+
+    $("input").keyup(function () {
+        var validate = function (label, value) {
+            return value != "" ? value.success() : ["Please give a " + label].fail()
+        }.autoCurry()
+
+        var firstNameValidation = monadT(getValForId("#firstName").map(validate("first name")))
+        var lastNameValidation = monadT(getValForId("#lastName").map(validate("last name")))
+        var postCodeValidation = monadT(getValForId("#postcode").map(validate("postcode/zip code")))
+
+
+        // accumulate errors then convert back from a validation transformer.
+        var personValidationIO = (postCodeValidation.ap(lastNameValidation.ap(firstNameValidation.map(happyPerson)))).perform()
+
+        personValidationIO.map(function (v) {
+            return v.cata(function (errors) {
+                return _.reduce(errors, function (acc, e) {
+                    return acc + "<div>" + e + "</div>"
+                }, "")
+            }, idFunction)
+        }).flatMap(writer(setHtml)("#result")).run()
+    })
+
+    var getId = $.io1()
+
+    var getTextForId = function (id) {
+        return getId(id).map(getText)
+    }
+
+    var getValForId = function (id) {
+        return getId(id).map(getVal)
+    }
+
+    var getText = function (o) {
+        return o.text()
+    }
+
+    var setHtml = function (html, o) {
+        return o.html(html)
+    }.autoCurry()
+
+    var setText = function (text, e) {
+        return e.text(text)
+    }.autoCurry()
+
+    var getVal = function (o) {
+        return o.val()
+    }
+
+    var writer = function (writeFn, id, content) {
+        return getId(id).map(writeFn(content))
+    }.autoCurry()
+
+    var addAwesomeness = function (text) {
+        return text + " now with awesomeness"
+    }
+
+    getId("#SomeId").map(getText.andThen(addAwesomeness)).flatMap(writer(setText)("#SomeId")).run()
+
+</script>
+
+</body>
+</html>