zkessin

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

zkessin

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

zkessin

module Tests exposing (..)

import Test exposing (..)
import Expect
import String
import Fuzz exposing (..)

all : Test
all =
    describe "Pair Fuzzer"

zkessin

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

zkessin

* Day One - Morning

** Why Elm
*** The Javascript Problem
**** Evolution of JS Libraries
***** jQuery
***** Backbone
***** ExtJS
***** Angular
***** React

zkessin

cmd: { type = "leaf", home = "writeLines", value = [{ username = "alarnahope", email = "[email protected]" },{ username = "alexxis_xx", email = "[email protected]" },{ username = "bohotailor", email = "[email protected]" },{ username = "boneandfinn", email = "[email protected]" },{ username = "celebrityfashionlookbook", email = "[email protected]" },{ username = "crashingred", email = "[email protected]" },{ username = "damon_archbold", email = "[email protected]" },{ username = "designfinder", email = "[email protected]" },{ username = "emhewitt_", email = "[email protected]" },{ username = "gohandco", email = "[email protected]" },{ username = "houseofalexandra_co", email = "[email protected]" },{ username = "iamfashionshy", email = "[email protected]" },{ username = "intersectionpaddington", email = "[email protected]" },{ username = "jennifer__chong", email = "[email protected]" },{ username = "jes

zkessin

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

zkessin

Definitions.
D   = [0-9]
L   = [A-Za-z]
WS  = ([\000-\s]|%.*)
C   = (\:\-|\-\>)
WC  = [A-Za-z0-9]


Rules.
{WS}             : skip_token.

zkessin

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 ) =

zkessin

formView: Signal.Address Action -> Model -> Html
formView address model =
  Form.view (Signal.forwardTo address FormAction) model.form