| module PivotApp exposing (..) | |
| {- | |
| ******************************************************************************** | |
| Copyright 2016 Zachary Kessin | |
| Released under the BSD3 licence | |
| Test your Code for better code quiality | |
| http://elm-test.com/?utm_source=gist&utm_content=template |
| module Main exposing (..) | |
| {- | |
| ******************************************************************************** | |
| Copyright 2016 Zachary Kessin | |
| Released under the BSD3 licence | |
| Test your Code for better code quiality | |
| http://elm-test.com/?utm_source=gist&utm_content=template |
| module Tests exposing (..) | |
| import Test exposing (..) | |
| import Expect | |
| import String | |
| import Fuzz exposing (..) | |
| all : Test | |
| all = | |
| describe "Pair Fuzzer" |
Intro to Erlang class. This is a 4 day class that will introduce students to the Erlang Language. At the end of 4 days, students will have a good sense of how to use Erlang and its tools. Students will also have an idea of where to find resources for Erlang.
This class assumes no knowledge of Erlang before it starts and will be based around Erlang v 19.
Why Erlang
| * Day One - Morning | |
| ** Why Elm | |
| *** The Javascript Problem | |
| **** Evolution of JS Libraries | |
| ***** jQuery | |
| ***** Backbone | |
| ***** ExtJS | |
| ***** Angular | |
| ***** React |
| cmd: { type = "leaf", home = "writeLines", value = [{ username = "alarnahope", email = "style@thateffortlessbitch.com.au" },{ username = "alexxis_xx", email = "info@alexxis.com.au" },{ username = "bohotailor", email = "Bohochicnlt@gmail.com" },{ username = "boneandfinn", email = "info@boneandfinn.com.au" },{ username = "celebrityfashionlookbook", email = "Info@celebrityfashionlookbook.com" },{ username = "crashingred", email = "info@sonailicious.com" },{ username = "damon_archbold", email = "damon@mere.com.au" },{ username = "designfinder", email = "designfinderstyling@gmail.com" },{ username = "emhewitt_", email = "emmakatehewitt@gmail.com" },{ username = "gohandco", email = "info@gohandco.com.au" },{ username = "houseofalexandra_co", email = "hello@houseofalexandra.com" },{ username = "iamfashionshy", email = "fashionshy13@gmail.com" },{ username = "intersectionpaddington", email = "info@theintersectionpaddington.com.au" },{ username = "jennifer__chong", email = "tnightwedream@gmail.com" },{ username = "jes |
| Module MatchEmail exposing (..) | |
| import Regex exposing (..) | |
| bodyHasEmail : String -> Maybe String | |
| bodyHasEmail bodyText = | |
| let -- "\b[A-Z0-9._%+-]+@[A-Z0-9.-]+\.[A-Z]{2,}\b" | |
| re = regex "\b[A-Z0-9._%+-]+@[A-Z0-9.-]+\.[A-Z]{2,}\b" | |
| |> caseInsensitive | |
| limit =(AtMost 1) | |
| match = find limit re bodyText |
| Definitions. | |
| D = [0-9] | |
| L = [A-Za-z] | |
| WS = ([\000-\s]|%.*) | |
| C = (\:\-|\-\>) | |
| WC = [A-Za-z0-9] | |
| Rules. | |
| {WS} : skip_token. |
| loadData : CRMBox.Crm -> ModelEnc -> ( CrmData, Effects.Effects Action ) | |
| loadData crm data = | |
| case crm of | |
| CRMBox.Streak -> | |
| let | |
| streak = | |
| Result.withDefault { apiKey = "", currentCrmAction = "", pipeline = "" } | |
| <| Json.Decode.decodeValue loadStreakData data.crmData | |
| ( sdata, action ) = |
| formView: Signal.Address Action -> Model -> Html | |
| formView address model = | |
| Form.view (Signal.forwardTo address FormAction) model.form |