Skip to content

Instantly share code, notes, and snippets.

@pdamoc
pdamoc / RelativeMouse.elm
Created May 20, 2016 07:33
Relative Mouse Position
import Html exposing (..)
import Html.App as App
import Html.Attributes exposing (..)
import Mouse exposing (Position)
import Window exposing (Size)
import Task
-- MODEL
plottingSize = Size 600 400
@pdamoc
pdamoc / Component.elm
Last active June 27, 2016 08:09
Counter through JS
module Component exposing (..)
import Html exposing (..)
import Html.Attributes exposing (style)
import Html.Events exposing (onClick)
import Ports exposing (..)
-- MODEL
@pdamoc
pdamoc / Component.elm
Created May 20, 2016 20:48
Counters through JS
module Component exposing (..)
import Html exposing (..)
import Html.Attributes exposing (style)
import Html.Events exposing (onClick)
import Ports exposing (..)
-- MODEL
@pdamoc
pdamoc / RandomGif.elm
Last active May 24, 2016 06:32
Chain Html.App.map Error - Start from WidgetList.elm
module RandomGif exposing (..)
import Html exposing (..)
import Html.Attributes exposing (style)
import Html.Events exposing (onClick)
import Http
import Json.Decode as Json
import Task
@pdamoc
pdamoc / Main.elm
Last active June 17, 2016 15:11
SAM in Elm
module Main exposing (..)
import Html exposing (..)
import Html.App as App
import Html.Events exposing (onClick)
import Time
-- MODEL
@pdamoc
pdamoc / Main.elm
Created May 31, 2016 18:33
Req msg instead of Cmd msg
module Main exposing (..)
import Html exposing (..)
import Html.App as App
import Html.Events exposing (onClick)
import Req exposing (..)
main : Program Never
main =
@pdamoc
pdamoc / Main.elm
Created May 31, 2016 19:35
Req msg with cache
module Main exposing (..)
import Html exposing (..)
import Html.App as App
import Html.Events exposing (onClick)
import Req exposing (..)
import Dict exposing (Dict)
main : Program Never
@pdamoc
pdamoc / Child.elm
Created June 3, 2016 10:09
Child 2 Child Communication.
module Child exposing (..)
import Html exposing (..)
import Html.Attributes exposing (value)
import Html.Events exposing (on, onClick, targetValue)
import Json.Decode as Json
-- MODEL
@pdamoc
pdamoc / Main2.elm
Created June 17, 2016 15:26
SAM with AnimationFrame
module Main exposing (..)
import Html exposing (..)
import Html.App as App
import Html.Events exposing (onClick)
import AnimationFrame
import Time exposing (Time, second)
-- MODEL
@pdamoc
pdamoc / Sam.elm
Created June 21, 2016 08:01
Another SAM approach
import Html exposing (..)
import Html.App as App
import Html.Events exposing (on, onClick)
import Html.Attributes exposing (style)
import Mouse exposing (Position)
import Json.Decode as Json
-- MODEL