Simple Elm example for an Oaxaca.rb talk

oaxacarb.elm

import Html exposing (..)
import Html.Attributes exposing(placeholder)
import Html.Events exposing(onInput, onClick)
import Random exposing (..)
import Random.String 
import Random.Char

type alias Model = {
    content : String
  }  

-- MODEL

initialModel : Model
initialModel = { content = "Hola" }

-- UPDATE

type Msg = Update String | Reset 

update : Msg -> Model -> (Model, Cmd Msg)
update msg model =
  case msg of
    Reset ->
      ( { model | content = "" } , generateRandomString)
    Update newString ->
      ( { model | content = newString }, Cmd.none)

-- COMMANDS

generateRandomString : Cmd Msg
generateRandomString = 
  Random.generate Update (Random.String.string 5 Random.Char.english)




-- VIEW
view model = div [] [
    input [ placeholder "Escribe algo", onInput Update ] []  
    , h1 [] [ text model.content ] 
    , button [onClick Reset] [ text "Reset" ]
  ]

-- MAIN
main = program {
  init = ( initialModel, Cmd.none)
  , update = update
  , view = view
  , subscriptions = ( \_ -> Sub.none ) 
 }