joanllenas

• Random with Random.generate Cmd, Generators
• Random with Ports Cmd, Sub, Ports

joanllenas

module Main exposing (..)

import Html exposing (..)
import Html.Attributes as Attrs exposing (..)
import Html.Events exposing (..)


type Msg
    = SetPrice String

joanllenas

module Main exposing (..)

import Html exposing (..)
import Html.Attributes as Attrs exposing (..)
import Html.Events exposing (..)




type Msg

joanllenas

Elm json decoder recipes

• Primitive decoders
• Primitive object fields field
• Basic mapping map, map2, mapN...
• Mapping bool to unions
• String to union andThen
• String to Int andThen
• Demistifying decoder mapping
• [nullable fields](https://gist.github.com/joanllenas/60edc839742

joanllenas

  <div class="pure-u-1-1 welcome" *ngIf="service.state | isNotAsked">
    <p>Welcome, use the controls above to obtain today's sunset and sunrise times.</p>
  </div>

  <div class="pure-u-1-1" *ngIf="service.state | isLoading">
    <p class="loading">
      Loading...
    </p>
  </div>

joanllenas

export class NotAsked {}
export class Loading {}
export class Faliure<E> {
  constructor(private error: E){}
  fold(): E {
    return this.error;
  }
}
export class Success<T> {
  constructor(private value: T){}

joanllenas

  <div class="pure-u-1-1" *ngIf="service.state.isLoading">
    <p class="loading">
      Loading...
    </p>
  </div>

  <div class="pure-u-1-1" *ngIf="!service.state.isLoading && !service.state.error && service.state.data">
    <p>
      Sunrise: {{ service.state.data.sunrise }}<br>
      Sunset: {{ service.state.data.sunset }}

joanllenas

export interface SunriseState {
  isLoading: boolean;
  error: string;
  data: {
    sunrise: string,
    sunset: string,
  }
}

joanllenas

-- https://ellie-app.com/fMXwpzt7va1/1
module MouseCoordinates exposing (..)

import Html exposing (Html, div, text, program)
import Html.Attributes exposing (style)
import Html.Events exposing (on)
import Json.Decode as Decode exposing (Decoder, map2, at, int)


-- MODEL

joanllenas

module Counter exposing (..)

import Html exposing (..)
import Html.Attributes exposing (..)
import Html.Events exposing (..)


programParams =
    { model = modelo
    , view = vista