danyx23

var h = require('virtual-dom/h');
var diff = require('virtual-dom/diff');
var patch = require('virtual-dom/patch');
var createElement = require('virtual-dom/create-element');

// 1: Create a function that declares what the DOM should look like 
function render(value)  {
  return h('input', {
    className: "form-control",
    type: "range",

danyx23

var h = require('virtual-dom/h');
var diff = require('virtual-dom/diff');
var patch = require('virtual-dom/patch');
var createElement = require('virtual-dom/create-element');

// 1: Create a function that declares what the DOM should look like 
function render(value)  {
  return h('input', {
    attributes: {
    	class: "form-control",

danyx23

// This doesn't work, it's just a draft while thinking how best to model collections of non-trivial objects
const model = (function () {
  const mediaAsset$ = createStream(droppedFiles$.filter(droppedFile => droppedFile.type.match('image.*'))
    .map (droppedfile => {
      const reader = new FileReader();

      const asset = {
        id = cuid(),
        name = droppedfile.name,
        imageLoadSucceeded$ = Rx.Observable.fromEvent(reader.onload).map(_ => reader.result),

danyx23

type PortAction 
  = StartAudioPlayback AudioPlaybackMessage
  | StopAudioPlayback
  | DecodeAudioData AudioRawDataMessage
  | NoopPortAction 

update : Action -> Model -> (Model, Effects Action, PortAction)

app : App Model MainActions.PortAction
app = 

danyx23

module CustomStartApp where

import Debug
import Html exposing (Html)
import Signal exposing (Address)
import Automaton exposing ((>>>))

type alias Config model action =
    { model : model
    , view : Address action -> model -> Html

danyx23

module PortsExample where

import Html exposing (div, button, text)
import Html.Events exposing (onClick)
import Signal exposing (Mailbox, mailbox, send)
import StartApp
import Effects

type alias Model = String

danyx23

import Html exposing (div, button, text)
import Html.Events exposing (onClick)
import Signal exposing (Mailbox, mailbox, send)
import StartApp.Simple as StartApp

main =
  StartApp.start { model = model, view = view, update = update }

model = "hi"

danyx23

import Html exposing (text, div)
import String exposing (padLeft)

-- You can paste this code into http://elm-lang.org/try to have it evaluated

gen0WildTypeFemales = 2000000000.0
gen0WildTypeMales   = 2000000000.0
gen0MutantFemals = 100.0
gen0MutantMales  = 100.0
femaleMatingSuccessFactor = 0.2

danyx23

{
    "version": "1.0.0",
    "summary": "helpful summary of your project, less than 80 characters",
    "repository": "https://github.com/user/project.git",
    "license": "BSD3",
    "source-directories": [
        "."
    ],
    "exposed-modules": [],
    "dependencies": {

danyx23

module CustomStartApp (start, App, Config) where

import Html exposing (Html)
import Effects exposing (Effects, Never)
import Task


type alias Config model action portAction =
  { init : ( model, Effects action, portAction )
  , update : action -> model -> ( model, Effects action, Maybe portAction )