TheSeamau5

----------------------------
-- Basic Audio Operations --
----------------------------

getAudio : String -> Task Http.Error Audio

play : Audio -> Task error ()

stop : Audio -> Task error ()

TheSeamau5

import Html exposing (Html, button, text)
import Html.Attributes exposing (style)
import Html.Events exposing (..)

import Signal exposing (Signal, Mailbox, Address, mailbox, send)

import Task exposing (Task, andThen, succeed, spawn, ThreadID)

import Graphics.Element exposing (show)

TheSeamau5

type alias Component state action view 
  =  { initial : (state, action)
     , view    : Address action -> state -> view
     , address : Address action 
     , history : Signal (List (state, action))
     }


makeComponent 
  :  state 

TheSeamau5

import Signal exposing (Address, Mailbox, Signal, forwardTo)
import Html exposing (Html, div, ul, li)
import List

update : ID -> (state -> state) -> ContainerState state -> ContainerState state
update id f list = 
  case list of
    [] -> []
    (id', x) :: xs ->
      if id == id'

TheSeamau5

import Color exposing (Color)
import Graphics.Collage exposing (collage, circle, move, filled)
import Graphics.Element exposing (Element, show)
import Signal exposing (Signal)
import Time

type alias Wave =
  { center : { x : Float, y : Float }
  , radius : Float
  , color : Color

TheSeamau5

import Html exposing (Html)
import Html.Events exposing (onClick)
import Signal exposing (Signal, Address, Mailbox)
import Json.Decode as Decode exposing (Decoder, (:=))
import Json.Encode as Encode exposing (Value)
import List
--------------------------------------------
-- Example : 

initial = 0

TheSeamau5

import Signal
import Time
import List
import Graphics.Element exposing (show)
import Graphics.Collage as Collage
import Color
import Random


initial = 

TheSeamau5

import Signal exposing (Signal)
import Html exposing (Html)
import Time
import Random exposing (Generator)
import Json.Decode exposing (Decoder)
import Json.Encode exposing (Value)

type alias Encoder a = a -> Value

mock 

TheSeamau5

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

import Signal exposing (mailbox)

import Json.Decode exposing (Decoder, (:=), int)


positionDecoder = 

TheSeamau5

import Html exposing (Html)
import Html.Attributes exposing (style)
import Html.Events exposing (onClick, onMouseOver, onMouseOut)

import Signal exposing (Signal, Address)
import Time

(=>) = (,)

type alias Options =