evancz

module Animal where

data Either a b = Left a | Right b

-- Left 42      <=>  { "tag":"Left", "contents":[42] }
-- Right "cat"  <=>  { "tag":"Right", "contents":["cat"] }

port animal : Signal (Either Int String)
port animal = always (Right "cat") <~ every second

evancz

import Char (isDigit)
import String (all)
import Graphics.Input (Input, input, FieldContent, noContent, field)

main : Signal Element
main = scene <~ content.signal

content : Input FieldContent
content = input noContent

evancz

import Graphics.Input as Input

main : Signal Element
main = lift display check.signal

check : Input.Input Bool
check = Input.input True

display : Bool -> Element
display checked =

evancz

type Point3D = { x : Float, y : Float, z : Maybe Float }
    deriving Json, New, Binary

-- Resulting in the folliwing derived values:

Point3D.Json.encode : Point3D -> String
Point3D.Json.decode : String -> Maybe Point3D

Point3D.New : Float -> Float -> Maybe Float -> Point3D

evancz

module History where

data Step a = Undo | Redo | Checkpoint a | NoCheckpoint a

foldp : (a -> b -> b) -> b -> Signal (Step a) -> Signal b

-- It could also be interesting to have custom strategies for keeping track
-- of history. Maybe you want to have a fixed size stack, infinite stack,
-- stack with exponential decay, etc.

evancz

import Math.Vector3 (..)
import Math.Matrix4 (..)
import Graphics.WebGL (..)


-- This is the main function
-- It renders the triangle then prints the points 
-- of the triangle
-- Notice how the points change but the render doesn't
main = flow down <~ ( combine [ render <~ updateTriangle

evancz

-- Thanks to The PaperNES Guy for the texture:
-- http://the-papernes-guy.deviantart.com/art/Thwomps-Thwomps-Thwomps-186879685

import Graphics.WebGL (..)
import Http (..)
import Math.Vector2 (Vec2)
import Math.Vector3 (..)
import Math.Vector3 as V3
import Math.Matrix4 (..)
import Mouse

evancz

Command Line Refresh for Elm

With the upcoming improvements to elm-server and elm-get, it is becoming clear that the names of the various command line tools do not actually match what they do. This is a proposal of how to sort this out.

Proposal

I propose that the typical workflow will include the following tools:

• elm-repl - exactly the same as before
• elm-reactor - combination of elm-server and the debugger

evancz

Elm Hackathon 1

Theme: exploring and using elm-html

I want us to make some cool stuff together. First, I think it will be fun, but I think we may begin to learn interesting ways to improve and extend elm-html so that we can all be more productive.

evancz

import Window
import Color

floatify : (Int,Int) -> (Float,Float)
floatify (x,y) =
  (toFloat x, toFloat y)

scene (w,h) =
  flow down
    [ container (floor w) (floor (h / 2)) middle (asText "blue")